.net平台的RSA实现以及与Delphi之间的互操作性

.net平台下面的RSA算法实现是RSACryptoServiceProvider,如果安装了 Microsoft Enhanced Cryptographic Provider,则 RSACryptoServiceProvider 支持长度从 384 位至 16384 位(增量为 8 位)的密钥。如果安装了 Microsoft Base Cryptographic Provider,则支持长度从 384 位至 512 位(增量为 8 位)的密钥。
   目前该算法支持的填充Padding算法为PKCS#1 1.5和OAEPPadding,而签名算法目前仅支持SHA1withRSA算法,其他的好像没有提供,或许需要安装其他provider,目前第三方的provider可以使用Bouncy Castle的C#实现
http://www.bouncycastle.org/csharp/,使用Bouncy Castle的包可以实现
RIPEMD128、RIPEMD160、RIPEMD256、SHA-1、SHA-224、SHA-256、SHA-384、SHA-512、MD2,MD4,MD5等HASH算法与RSA的集成签名算法。
为了更好的处理BigInteger运算的问题,在本文中用到了
http://www.codeproject.com/csharp/biginteger.asp提供的BigInteger.cs用来处理大数运算的问题,用来验证的DLL实用delphi实现的,当然也可以用java来验证,效果相同,该DLL的代码在下面专题中作详细讲解。
   具体源代码如下:

  1 .net平台的RSA实现以及与Delphi之间的互操作性 using System.Text.RegularExpressions;
  2 .net平台的RSA实现以及与Delphi之间的互操作性 using System.Text;
  3 .net平台的RSA实现以及与Delphi之间的互操作性 using System.IO;
  4 .net平台的RSA实现以及与Delphi之间的互操作性 using System.Net;
  5 .net平台的RSA实现以及与Delphi之间的互操作性 using System.Xml;
  6 .net平台的RSA实现以及与Delphi之间的互操作性 using System.Runtime.InteropServices;
  7 .net平台的RSA实现以及与Delphi之间的互操作性 using System;
  8 .net平台的RSA实现以及与Delphi之间的互操作性 using System.Security;
  9 .net平台的RSA实现以及与Delphi之间的互操作性 using System.Security.Cryptography;
 10 .net平台的RSA实现以及与Delphi之间的互操作性 /*
 11.net平台的RSA实现以及与Delphi之间的互操作性    RSA Keyinfo:
 12.net平台的RSA实现以及与Delphi之间的互操作性    ---------------------------------------------------------------------
 13.net平台的RSA实现以及与Delphi之间的互操作性    可以采用java或者.net生成下面参数信息
 14.net平台的RSA实现以及与Delphi之间的互操作性    加密位:1024bits
 15.net平台的RSA实现以及与Delphi之间的互操作性    >>>PrivateKey:
 16.net平台的RSA实现以及与Delphi之间的互操作性    modulus:123410773237385713572440712840019405878257600213906351775134402766524785605776353635515879438375969303333340691224323217379791619946464100287854264933660919378485000299257054039555887477610831829409144592603086784397675690934246422666689022312589317493002336070775714030955737435316659994026756956753416169929
 17.net平台的RSA实现以及与Delphi之间的互操作性    public exponent:65537
 18.net平台的RSA实现以及与Delphi之间的互操作性    private exponent:102299672961750099570264341757280532275542401837445663770632643616494888426681205847125069294737520917541038900032845310395266178574112466427178094767628391398378924953787043659322148498169017989730953803803890989295625028193153480552247210183981959942844345362118479513739632952091865360095551345350474614233
 19.net平台的RSA实现以及与Delphi之间的互操作性    prime p:12794390226544301614076650435602993036558056678553112540698297249963365434628505393116653422818365344228379828231764392521731584684435248093787027949139091
 20.net平台的RSA实现以及与Delphi之间的互操作性    prime q:9645694015283940797244851561543569992525098416055322825220116046655435860727361740896753161534492415500799272063647633894112205918420307541634544631799219
 21.net平台的RSA实现以及与Delphi之间的互操作性    prime exponent p:1529969882744521289493243655703200580244831014386083326692594344385048063096931454992679141166478923397741927672190328275520857365639547725880173612423563
 22.net平台的RSA实现以及与Delphi之间的互操作性    prime exponent q:769453717928871362558494956494038236735297839680443531596667023084892788499361386413907037681040120057954721673997128797449053397950796768659923391901465
 23.net平台的RSA实现以及与Delphi之间的互操作性    crt coefficient:12583540851660819630796910273258143748946857763306703439274571717196507402536398234616014735603915981141807543055250658251670340810611251684169356826070785
 24.net平台的RSA实现以及与Delphi之间的互操作性    >>>PublicKey:
 25.net平台的RSA实现以及与Delphi之间的互操作性    modulus:123410773237385713572440712840019405878257600213906351775134402766524785605776353635515879438375969303333340691224323217379791619946464100287854264933660919378485000299257054039555887477610831829409144592603086784397675690934246422666689022312589317493002336070775714030955737435316659994026756956753416169929
 26.net平台的RSA实现以及与Delphi之间的互操作性    public exponent:65537
 27.net平台的RSA实现以及与Delphi之间的互操作性    */

 28 .net平台的RSA实现以及与Delphi之间的互操作性
 29 .net平台的RSA实现以及与Delphi之间的互操作性 public  class RSATest
 30 .net平台的RSA实现以及与Delphi之间的互操作性 {
 31.net平台的RSA实现以及与Delphi之间的互操作性    [DllImport("cmipcrypt.dll")]
 32.net平台的RSA实现以及与Delphi之间的互操作性    public static extern String Cmip_Encrypt(String text,String exp,String module);
 33.net平台的RSA实现以及与Delphi之间的互操作性
 34.net平台的RSA实现以及与Delphi之间的互操作性    [DllImport("cmipcrypt.dll")]
 35.net平台的RSA实现以及与Delphi之间的互操作性    public static extern String Cmip_Decrypt(String etext,String d,String module);
 36.net平台的RSA实现以及与Delphi之间的互操作性
 37.net平台的RSA实现以及与Delphi之间的互操作性    [DllImport("cmipcrypt.dll")]
 38.net平台的RSA实现以及与Delphi之间的互操作性    public static extern String Cmip_SignData(String text,String d,String module,String alg);
 39.net平台的RSA实现以及与Delphi之间的互操作性
 40.net平台的RSA实现以及与Delphi之间的互操作性    [DllImport("cmipcrypt.dll")]
 41.net平台的RSA实现以及与Delphi之间的互操作性    public static extern String Cmip_VerifyData(String text,String signtext,String r,String module);
 42.net平台的RSA实现以及与Delphi之间的互操作性
 43.net平台的RSA实现以及与Delphi之间的互操作性    [DllImport("cmipcrypt.dll")]
 44.net平台的RSA实现以及与Delphi之间的互操作性    public static extern String Cmip_ComputeHash(String text,String alg);
 45.net平台的RSA实现以及与Delphi之间的互操作性
 46.net平台的RSA实现以及与Delphi之间的互操作性    private String p,q,e,n,d,dp,dq,crt;
 47.net平台的RSA实现以及与Delphi之间的互操作性    private RSAParameters param;
 48.net平台的RSA实现以及与Delphi之间的互操作性
 49.net平台的RSA实现以及与Delphi之间的互操作性    public void init(){
 50.net平台的RSA实现以及与Delphi之间的互操作性        p="12794390226544301614076650435602993036558056678553112540698297249963365434628505393116653422818365344228379828231764392521731584684435248093787027949139091";
 51.net平台的RSA实现以及与Delphi之间的互操作性        q="9645694015283940797244851561543569992525098416055322825220116046655435860727361740896753161534492415500799272063647633894112205918420307541634544631799219";
 52.net平台的RSA实现以及与Delphi之间的互操作性        e="65537";
 53.net平台的RSA实现以及与Delphi之间的互操作性        n="123410773237385713572440712840019405878257600213906351775134402766524785605776353635515879438375969303333340691224323217379791619946464100287854264933660919378485000299257054039555887477610831829409144592603086784397675690934246422666689022312589317493002336070775714030955737435316659994026756956753416169929";
 54.net平台的RSA实现以及与Delphi之间的互操作性        d="102299672961750099570264341757280532275542401837445663770632643616494888426681205847125069294737520917541038900032845310395266178574112466427178094767628391398378924953787043659322148498169017989730953803803890989295625028193153480552247210183981959942844345362118479513739632952091865360095551345350474614233";
 55.net平台的RSA实现以及与Delphi之间的互操作性        dp="1529969882744521289493243655703200580244831014386083326692594344385048063096931454992679141166478923397741927672190328275520857365639547725880173612423563";
 56.net平台的RSA实现以及与Delphi之间的互操作性        dq="769453717928871362558494956494038236735297839680443531596667023084892788499361386413907037681040120057954721673997128797449053397950796768659923391901465";
 57.net平台的RSA实现以及与Delphi之间的互操作性        crt="12583540851660819630796910273258143748946857763306703439274571717196507402536398234616014735603915981141807543055250658251670340810611251684169356826070785";
 58.net平台的RSA实现以及与Delphi之间的互操作性
 59.net平台的RSA实现以及与Delphi之间的互操作性        param=new RSAParameters();
 60.net平台的RSA实现以及与Delphi之间的互操作性        byte[] bdata=GetBytes(e);
 61.net平台的RSA实现以及与Delphi之间的互操作性        param.Exponent=bdata;
 62.net平台的RSA实现以及与Delphi之间的互操作性        param.P=GetBytes(p);
 63.net平台的RSA实现以及与Delphi之间的互操作性        param.Q=GetBytes(q);
 64.net平台的RSA实现以及与Delphi之间的互操作性        param.Modulus=GetBytes(n);
 65.net平台的RSA实现以及与Delphi之间的互操作性        param.D=GetBytes(d);
 66.net平台的RSA实现以及与Delphi之间的互操作性        param.DP=GetBytes(dp);
 67.net平台的RSA实现以及与Delphi之间的互操作性        param.DQ=GetBytes(dq);
 68.net平台的RSA实现以及与Delphi之间的互操作性        param.InverseQ=GetBytes(crt);
 69.net平台的RSA实现以及与Delphi之间的互操作性    }

 70.net平台的RSA实现以及与Delphi之间的互操作性
 71.net平台的RSA实现以及与Delphi之间的互操作性    public static void Main(String[] args)
 72.net平台的RSA实现以及与Delphi之间的互操作性    {
 73.net平台的RSA实现以及与Delphi之间的互操作性        if(args.Length<2){
 74.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("\nRSATest.exe [text明文] [hash算法]。");
 75.net平台的RSA实现以及与Delphi之间的互操作性            return;
 76.net平台的RSA实现以及与Delphi之间的互操作性        }

 77.net平台的RSA实现以及与Delphi之间的互操作性        RSATest rsa=new RSATest();
 78.net平台的RSA实现以及与Delphi之间的互操作性        rsa.init();
 79.net平台的RSA实现以及与Delphi之间的互操作性        rsa.DelphiDllTest(args[0],args[1]);
 80.net平台的RSA实现以及与Delphi之间的互操作性        rsa.DotnetRSATest(args[0],args[1]);
 81.net平台的RSA实现以及与Delphi之间的互操作性        rsa.InteropTest(args[0],args[1]);
 82.net平台的RSA实现以及与Delphi之间的互操作性        
 83.net平台的RSA实现以及与Delphi之间的互操作性
 84.net平台的RSA实现以及与Delphi之间的互操作性
 85.net平台的RSA实现以及与Delphi之间的互操作性    }

 86.net平台的RSA实现以及与Delphi之间的互操作性    
 87.net平台的RSA实现以及与Delphi之间的互操作性    public void DelphiDllTest(String text,String alg){
 88.net平台的RSA实现以及与Delphi之间的互操作性        String res=Cmip_Encrypt(text,e,n);
 89.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("=====================Dll调用RSA测试=====================");
 90.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n1.明文:"+text);
 91.net平台的RSA实现以及与Delphi之间的互操作性        //加密
 92.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n2.RSA加密:"+res);    
 93.net平台的RSA实现以及与Delphi之间的互操作性        res=Cmip_Decrypt(res,d,n);
 94.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n3.RSA解密:"+res);    
 95.net平台的RSA实现以及与Delphi之间的互操作性        //签名
 96.net平台的RSA实现以及与Delphi之间的互操作性        String signdata=Cmip_SignData(text,d,n,alg);
 97.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n4.对明文采用"+alg.Trim()+"withRSA的签名算法,签名数据为:\n"+signdata);    
 98.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n5.RSA验证签名:"+Cmip_VerifyData(text,signdata,e,n));    
 99.net平台的RSA实现以及与Delphi之间的互操作性
100.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n6.采用HASH算法"+alg+"计算明文的结果:"+Cmip_ComputeHash(text,alg));
101.net平台的RSA实现以及与Delphi之间的互操作性    }

102.net平台的RSA实现以及与Delphi之间的互操作性    //.net只实现了SHA1的rsa签名算法
103.net平台的RSA实现以及与Delphi之间的互操作性    public void  DotnetRSATest(String text,String alg){
104.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n\n\n=========.net RSACryptoServiceProvider调用RSA测试=========");
105.net平台的RSA实现以及与Delphi之间的互操作性        
106.net平台的RSA实现以及与Delphi之间的互操作性        RSACryptoServiceProvider rsa = new RSACryptoServiceProvider();
107.net平台的RSA实现以及与Delphi之间的互操作性        rsa.ImportParameters(param);
108.net平台的RSA实现以及与Delphi之间的互操作性        RSAParameters param1=rsa.ExportParameters(true);
109.net平台的RSA实现以及与Delphi之间的互操作性
110.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("1.明文:"+text);
111.net平台的RSA实现以及与Delphi之间的互操作性        byte[] data=Encoding.Default.GetBytes(text);
112.net平台的RSA实现以及与Delphi之间的互操作性        byte[] endata=rsa.Encrypt(data,false);
113.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n2.publicKey加密后的数据:"+Convert.ToBase64String(endata));
114.net平台的RSA实现以及与Delphi之间的互操作性        byte[] dedata=rsa.Decrypt(endata,false);
115.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n3.privateKey解密后的数据:"+Encoding.Default.GetString(dedata));
116.net平台的RSA实现以及与Delphi之间的互操作性        //签名
117.net平台的RSA实现以及与Delphi之间的互操作性        HashAlgorithm hashalg=null;
118.net平台的RSA实现以及与Delphi之间的互操作性        switch(alg.ToUpper()){
119.net平台的RSA实现以及与Delphi之间的互操作性            case "MD5":
120.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new MD5CryptoServiceProvider();
121.net平台的RSA实现以及与Delphi之间的互操作性                break;
122.net平台的RSA实现以及与Delphi之间的互操作性            case "SHA1":
123.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new SHA1CryptoServiceProvider (); ;
124.net平台的RSA实现以及与Delphi之间的互操作性                break;
125.net平台的RSA实现以及与Delphi之间的互操作性            case "SHA256":
126.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new SHA256Managed();
127.net平台的RSA实现以及与Delphi之间的互操作性                break;
128.net平台的RSA实现以及与Delphi之间的互操作性            case "SHA384":
129.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new SHA384Managed();
130.net平台的RSA实现以及与Delphi之间的互操作性                break;
131.net平台的RSA实现以及与Delphi之间的互操作性            case "SHA512":
132.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new SHA512Managed();
133.net平台的RSA实现以及与Delphi之间的互操作性                break;
134.net平台的RSA实现以及与Delphi之间的互操作性            default:
135.net平台的RSA实现以及与Delphi之间的互操作性                throw new Exception("不支持的HASH算法:"+alg);
136.net平台的RSA实现以及与Delphi之间的互操作性        }

137.net平台的RSA实现以及与Delphi之间的互操作性        try{
138.net平台的RSA实现以及与Delphi之间的互操作性            byte[] signdata=rsa.SignData(data,hashalg);
139.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("\n4.对明文采用"+alg.Trim()+"withRSA的签名算法,签名数据为:\n"+Convert.ToBase64String(signdata));    
140.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("\n5.RSA验证签名:"+rsa.VerifyData(data,hashalg,signdata));    
141.net平台的RSA实现以及与Delphi之间的互操作性        }
catch(CryptographicException ex){
142.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("\n===================================");
143.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("!!!指定的HASH算法在.net中可能未实现!:"+ex.Message+"\n.net可用算法"+rsa.SignatureAlgorithm);
144.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("===================================");
145.net平台的RSA实现以及与Delphi之间的互操作性        }

146.net平台的RSA实现以及与Delphi之间的互操作性        byte[] hash=hashalg.ComputeHash(data);
147.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n6.采用HASH算法"+alg+"计算明文的结果:"+ConvByteArrayToHex(hash));
148.net平台的RSA实现以及与Delphi之间的互操作性
149.net平台的RSA实现以及与Delphi之间的互操作性
150.net平台的RSA实现以及与Delphi之间的互操作性        String res=Cmip_Decrypt(Convert.ToBase64String(endata),d,n);
151.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n"+res);
152.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine(Encoding.Default.ToString());
153.net平台的RSA实现以及与Delphi之间的互操作性
154.net平台的RSA实现以及与Delphi之间的互操作性    }

155.net平台的RSA实现以及与Delphi之间的互操作性    //dll加密,.net解密
156.net平台的RSA实现以及与Delphi之间的互操作性    //dll签名,.net验证
157.net平台的RSA实现以及与Delphi之间的互操作性    public void InteropTest(String text,String alg){
158.net平台的RSA实现以及与Delphi之间的互操作性        String res=Cmip_Encrypt(text,e,n);
159.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n=====================跨语言平台调用RSA测试=====================");
160.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n1.明文:"+text);
161.net平台的RSA实现以及与Delphi之间的互操作性        //加密
162.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n2.DLL RSA加密:"+res);    
163.net平台的RSA实现以及与Delphi之间的互操作性        RSACryptoServiceProvider rsa = new RSACryptoServiceProvider();
164.net平台的RSA实现以及与Delphi之间的互操作性        rsa.ImportParameters(param);
165.net平台的RSA实现以及与Delphi之间的互操作性        byte[] txdata=rsa.Decrypt(Convert.FromBase64String(res),false);
166.net平台的RSA实现以及与Delphi之间的互操作性
167.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n3.RSACryptoServiceProvider RSA解密:"+Encoding.Default.GetString(txdata));    
168.net平台的RSA实现以及与Delphi之间的互操作性        //dll签名,.net验证
169.net平台的RSA实现以及与Delphi之间的互操作性        String signdata=Cmip_SignData(text,d,n,alg);
170.net平台的RSA实现以及与Delphi之间的互操作性        Console.WriteLine("\n4.DLL 对明文采用"+alg.Trim()+"withRSA的签名算法,签名数据为:\n"+signdata);    
171.net平台的RSA实现以及与Delphi之间的互操作性        //签名
172.net平台的RSA实现以及与Delphi之间的互操作性        HashAlgorithm hashalg=null;
173.net平台的RSA实现以及与Delphi之间的互操作性        switch(alg.ToUpper()){
174.net平台的RSA实现以及与Delphi之间的互操作性            case "MD5":
175.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new MD5CryptoServiceProvider();
176.net平台的RSA实现以及与Delphi之间的互操作性                break;
177.net平台的RSA实现以及与Delphi之间的互操作性            case "SHA1":
178.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new SHA1CryptoServiceProvider (); ;
179.net平台的RSA实现以及与Delphi之间的互操作性                break;
180.net平台的RSA实现以及与Delphi之间的互操作性            case "SHA256":
181.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new SHA256Managed();
182.net平台的RSA实现以及与Delphi之间的互操作性                break;
183.net平台的RSA实现以及与Delphi之间的互操作性            case "SHA384":
184.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new SHA384Managed();
185.net平台的RSA实现以及与Delphi之间的互操作性                break;
186.net平台的RSA实现以及与Delphi之间的互操作性            case "SHA512":
187.net平台的RSA实现以及与Delphi之间的互操作性                hashalg=new SHA512Managed();
188.net平台的RSA实现以及与Delphi之间的互操作性                break;
189.net平台的RSA实现以及与Delphi之间的互操作性            default:
190.net平台的RSA实现以及与Delphi之间的互操作性                throw new Exception("不支持的HASH算法:"+alg);
191.net平台的RSA实现以及与Delphi之间的互操作性        }

192.net平台的RSA实现以及与Delphi之间的互操作性        try{
193.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("\n5.RSACryptoServiceProvider RSA验证签名:"+rsa.VerifyData(Encoding.Default.GetBytes(text),hashalg,Convert.FromBase64String(signdata)));    
194.net平台的RSA实现以及与Delphi之间的互操作性        }
catch(CryptographicException ex){
195.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("\n===================================");
196.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("!!!指定的HASH算法在.net中可能未实现!:"+ex.Message+"\n.net可用算法"+rsa.SignatureAlgorithm);
197.net平台的RSA实现以及与Delphi之间的互操作性            Console.WriteLine("===================================");
198.net平台的RSA实现以及与Delphi之间的互操作性        }

199.net平台的RSA实现以及与Delphi之间的互操作性    }

200.net平台的RSA实现以及与Delphi之间的互操作性
201.net平台的RSA实现以及与Delphi之间的互操作性    public static byte[] GetBytes(String num){
202.net平台的RSA实现以及与Delphi之间的互操作性        BigInteger n=new BigInteger(num,10);
203.net平台的RSA实现以及与Delphi之间的互操作性        String s=n.ToString(2);
204.net平台的RSA实现以及与Delphi之间的互操作性        if(s.Length%8>0){
205.net平台的RSA实现以及与Delphi之间的互操作性            s=new String('0',8-s.Length%8)+s;
206.net平台的RSA实现以及与Delphi之间的互操作性        }

207.net平台的RSA实现以及与Delphi之间的互操作性        byte[] data=new byte[s.Length/8];
208.net平台的RSA实现以及与Delphi之间的互操作性        String ocetstr;
209.net平台的RSA实现以及与Delphi之间的互操作性        for(int i=0;i<data.Length;i++){
210.net平台的RSA实现以及与Delphi之间的互操作性            ocetstr=s.Substring(8*i,8);
211.net平台的RSA实现以及与Delphi之间的互操作性            data[i]=Convert.ToByte(ocetstr , 2 ) ;
212.net平台的RSA实现以及与Delphi之间的互操作性        }

213.net平台的RSA实现以及与Delphi之间的互操作性        return data;
214.net平台的RSA实现以及与Delphi之间的互操作性    }

215.net平台的RSA实现以及与Delphi之间的互操作性
216.net平台的RSA实现以及与Delphi之间的互操作性    public String ConvByteArrayToHex(byte[] data){
217.net平台的RSA实现以及与Delphi之间的互操作性        String s="";
218.net平台的RSA实现以及与Delphi之间的互操作性        for(int i=0;i<data.Length;i++){
219.net平台的RSA实现以及与Delphi之间的互操作性            s+=Convert.ToString(data[i],16);
220.net平台的RSA实现以及与Delphi之间的互操作性        }

221.net平台的RSA实现以及与Delphi之间的互操作性        return s.ToUpper();
222.net平台的RSA实现以及与Delphi之间的互操作性    }

223.net平台的RSA实现以及与Delphi之间的互操作性
224.net平台的RSA实现以及与Delphi之间的互操作性
225.net平台的RSA实现以及与Delphi之间的互操作性}


运行结果如下:

d:\>rsatest hello加密 sha1
=====================Dll调用RSA测试=====================

1.明文:hello加密

2.RSA加密:A/0ZWckK9C6JyTk8NmwESVSI/N8OyQ7nYBEK8cpzo30nHj+Pb0WfvQ+lFa38Xk3cd+d8ueysTSc7tqr4Wjk831d0MexAC2yJ4SkqLWfKnhuU0OxF6d4s8UpegvuMBy1KWpzovbFGa3HUGRmMVbu4GqPDdzkvFmfWzGArXXiDpVw=

3.RSA解密:hello加密

4.对明文采用sha1withRSA的签名算法,签名数据为:
iz5J3e3H9NhHhs0qV7GlAODemWR8k7lhubqQJ+rdWl00ekOXu1EgULmeqalfip/3G98+X2eQyJ37bTjSpZ2oW4sIDYDJ3tHaaqooLtS6Iz8GWND+52YDZFLX8t+Yure5+tn2e1C9R181RnZfKt9dKQ2vpw0H6KqXNRwbmQJLynY=

5.RSA验证签名:true

6.采用HASH算法sha1计算明文的结果:C3F118FF24E166AC977EC9C3D69A5AF8B7C78F8B

=========.net RSACryptoServiceProvider调用RSA测试=========

1.明文:hello加密

2.publicKey加密后的数据:NrW/Uwjd72SduBgQkOFjjtEibTX/+WOCV0/oIFMiEln5uhLZ5OaH6cyWPEXBEwjZIiUY78dmdk8BW6SmiDArNwFePf/tM7KCAcSU9Zz3PGl07ZDmvT1P8F24caKaX9+fGwy72mOtoBhFnKh18oOjq4wZ06e1g8IQQQco9W+kHgU=

3.privateKey解密后的数据:hello加密

4.对明文采用sha1withRSA的签名算法,签名数据为:
iz5J3e3H9NhHhs0qV7GlAODemWR8k7lhubqQJ+rdWl00ekOXu1EgULmeqalfip/3G98+X2eQyJ37bTjSpZ2oW4sIDYDJ3tHaaqooLtS6Iz8GWND+52YDZFLX8t+Yure5+tn2e1C9R181RnZfKt9dKQ2vpw0H6KqXNRwbmQJLynY=

5.RSA验证签名:True

6.采用HASH算法sha1计算明文的结果:C3F118FF24E166AC977EC9C3D69A5AF8B7C78F8B

hello加密

System.Text.DBCSCodePageEncoding

=====================跨语言平台调用RSA测试=====================

1.明文:hello加密

2.DLL RSA加密:P/AP7Iwv7pYxh+T1a/PZ4UBCZABu7zPpNt65W5ncNfo8eVQbH8jlH/Jv+fGa0x4CCmRUaTA0O1HeO4LowRpFyPJkwLxQAsMedvfRcQ7Ro2Hggoz5uwRG6QZ2go0Io0KAOGhcV4efKHFG2xro4jYX2O2hWyHTeMldDQPxt98z2co=

3.RSACryptoServiceProvider RSA解密:hello加密

4.DLL 对明文采用sha1withRSA的签名算法,签名数据为:
iz5J3e3H9NhHhs0qV7GlAODemWR8k7lhubqQJ+rdWl00ekOXu1EgULmeqalfip/3G98+X2eQyJ37bTjSpZ2oW4sIDYDJ3tHaaqooLtS6Iz8GWND+52YDZFLX8t+Yure5+tn2e1C9R181RnZfKt9dKQ2vpw0H6KqXNRwbmQJLynY=

5.RSACryptoServiceProvider RSA验证签名:True


有关程序下载:
http://files.cnblogs.com/midea0978/rsa.net.rar

 

附注:对于这个RSA的跨平台技术,已经是07年研究的结果,后来就没怎么深入了,目前本人已经在一个项目中使用这方面该技术,应用在delphi,powerbuilder,J2EE复合环境中。对于这方面的详细源代码或者技术支持感兴趣的话,如能提供一定报酬的基础上,可使用站内消息联系博主转让!

当然如果免费使用的话,附件中的cmipcrypt.dll是没有任何限制,随便使用。

你可能感兴趣的:(Delphi)