Add SHA1

Author: ddlencemc

RSAOpenSSL.dcu

@@ -9,7 +9,7 @@
 
 interface
 
-uses Forms, Dialogs, Classes, Controls, StdCtrls, libeay32;
+uses SysUtils, Dialogs, Classes, Controls, StdCtrls, libeay32;
 
 type
   TRSAData = packed record
@@ -35,6 +35,7 @@   TRSAOpenSSL = class
     function LoadPrivateKeyFromString(KeyFile: string): pEVP_PKEY;
 
 
+
   public
     { Public declarations }
     constructor Create(aPathToPublickKey, aPathToPrivateKey: string); overload;
@@ -43,6 +44,9 @@   TRSAOpenSSL = class
     procedure PrivateDecrypt(var aRSAData: TRSAData);
     procedure PrivateEncrypt(var aRSAData: TRSAData);
     procedure PublicDecrypt(var aRSAData: TRSAData);
+    function SHA1_base64(AData: string): string;
+    function SHA1_Sign_PK(AData: string): string;
+    function SHA1(AData: string): string;
   protected
 
   end;
@@ -164,19 +168,19 @@ function TRSAOpenSSL.LoadPrivateKeyFromString(KeyFile: string) :pEVP_PKEY;
 begin
   keystring :=
   '-----BEGIN RSA PRIVATE KEY-----' + #10 +
-  'MIICXgIBAAKBgQCfydli2u2kJfb2WetkOekjzQIg7bIuU7AzAlBUPuA72UYXWnQ/' + #10 +
-  'XcdSzEEMWSBLP7FO1vyVXR4Eb0/WqthF0ZViOK5bCN9CnR/1GMMiSqmIdByv/gUe' + #10 +
-  'Z/UjGrKmxeQOoa2Yt0MJC64cNXgnKmYC7ui3A12LlvNdBBEF3WpcDbv+PQIDAQAB' + #10 +
-  'AoGBAJnxukKHchSHjxthHmv9byRSyw42c0g20LcUL5g6y4Zdmi29s+moy/R1XOYs' + #10 +
-  'p/RXdNfkQI0WnWjgZScIij0Z4rSs39uh7eQ5qxK+NH3QIWeR2ZNIno9jAXPn2bkQ' + #10 +
-  'odS8FPzbZM9wHhpRvKW4FNPXqTc3ZkTcxi4zOwOdlECf9G+BAkEAzsJHgW1Isyac' + #10 +
-  'I61MDu2qjMUwOdOBYS8GwEBfi/vbn/duwZIBXG/BZ7Pn+cBwImfksEXwx0MTkgF3' + #10 +
-  'gyaChUSu+QJBAMXX3d94TwcF7lG9zkzc+AR/Onl4Z5UAb1GmUV57oYIFVgW1RIOk' + #10 +
-  'vqynXWrTjTOg9C9j+VEpBG67LcnkwU16JmUCQH7pukKz9kAhnw43PcycDmhCUgvs' + #10 +
-  'zCn/V8GCwiOHAZT7qLyhBrzazHj/cZFYknxMEZAyHk3x2n1w8Q9MACoVsuECQQDF' + #10 +
-  'U7cyara31IyM7vlS5JpjMdrKyPLXRKXDFFXYHQtLubLA4rlBbBHZ9txP7kzJj+G9' + #10 +
-  'WsOS1YxcPUlAM28xrYGZAkEArVKJHX4dF8UUtfvyv78muXJZNXTwmaaFy02xjtR5' + #10 +
-  'uXWT1QjVN2a6jv6AW7ukXiSoE/spgfvdoriMk2JSs88nUw==' + #10 +
+  'MIICXgIBAAKBgQCfydli2u2kJfb2WetkOekjzQIg7bIuU7AzAlBUPuA72UYXWnQ/' + #10 +
+  'XcdSzEEMWSBLP7FO1vyVXR4Eb0/WqthF0ZViOK5bCN9CnR/1GMMiSqmIdByv/gUe' + #10 +
+  'Z/UjGrKmxeQOoa2Yt0MJC64cNXgnKmYC7ui3A12LlvNdBBEF3WpcDbv+PQIDAQAB' + #10 +
+  'AoGBAJnxukKHchSHjxthHmv9byRSyw42c0g20LcUL5g6y4Zdmi29s+moy/R1XOYs' + #10 +
+  'p/RXdNfkQI0WnWjgZScIij0Z4rSs39uh7eQ5qxK+NH3QIWeR2ZNIno9jAXPn2bkQ' + #10 +
+  'odS8FPzbZM9wHhpRvKW4FNPXqTc3ZkTcxi4zOwOdlECf9G+BAkEAzsJHgW1Isyac' + #10 +
+  'I61MDu2qjMUwOdOBYS8GwEBfi/vbn/duwZIBXG/BZ7Pn+cBwImfksEXwx0MTkgF3' + #10 +
+  'gyaChUSu+QJBAMXX3d94TwcF7lG9zkzc+AR/Onl4Z5UAb1GmUV57oYIFVgW1RIOk' + #10 +
+  'vqynXWrTjTOg9C9j+VEpBG67LcnkwU16JmUCQH7pukKz9kAhnw43PcycDmhCUgvs' + #10 +
+  'zCn/V8GCwiOHAZT7qLyhBrzazHj/cZFYknxMEZAyHk3x2n1w8Q9MACoVsuECQQDF' + #10 +
+  'U7cyara31IyM7vlS5JpjMdrKyPLXRKXDFFXYHQtLubLA4rlBbBHZ9txP7kzJj+G9' + #10 +
+  'WsOS1YxcPUlAM28xrYGZAkEArVKJHX4dF8UUtfvyv78muXJZNXTwmaaFy02xjtR5' + #10 +
+  'uXWT1QjVN2a6jv6AW7ukXiSoE/spgfvdoriMk2JSs88nUw==' + #10 +
   '-----END RSA PRIVATE KEY-----' ;
   k := nil;
 
@@ -454,6 +458,72 @@ procedure TRSAOpenSSL.PublicDecrypt(var aRSAData: TRSAData);
   RSA_free(rsa);
 end;
 
+
+function TRSAOpenSSL.SHA1_base64(AData: string): string;
+var
+  b64Length: integer;
+  mdLength: cardinal;
+  mdValue: array [0..EVP_MAX_MD_SIZE] of byte;
+  mdctx: EVP_MD_CTX;
+  memout, b64: pBIO;
+  inbuf, outbuf: array [0..1023] of char;
+begin
+  StrPCopy(inbuf, AData);
+  EVP_DigestInit(@mdctx, EVP_sha1());
+  EVP_DigestUpdate(@mdctx, @inbuf, StrLen(inbuf));
+  EVP_DigestFinal(@mdctx, @mdValue, mdLength);
+
+  b64 := BIO_new(BIO_f_base64);
+  memout := BIO_new(BIO_s_mem);
+  b64 := BIO_push(b64, memout);
+  BIO_write(b64, @mdValue, mdLength);
+  BIO_flush(b64);
+  b64Length := BIO_read(memout, @outbuf, 1024);
+  outbuf[b64Length-1] := #0;
+  result := StrPas(@outbuf);
+end;
+
+function TRSAOpenSSL.SHA1(AData: string): string;
+  var
+  Len: cardinal;
+  mdctx: EVP_MD_CTX;
+  inbuf, outbuf: array [0..1023] of char;
+  key: pEVP_PKEY;
+begin
+  StrPCopy(inbuf, AData);
+  LoadSSL;
+
+  EVP_DigestInit(@mdctx, EVP_sha1());
+  EVP_DigestUpdate(@mdctx, @inbuf, StrLen(inbuf));
+  EVP_DigestFinal(@mdctx, @outbuf, Len);
+
+  FreeSSL;
+  BinToHex(outbuf, inbuf,Len);
+  inbuf[2*Len]:=#0;
+  result := StrPas(inbuf);
+end;
+
+function TRSAOpenSSL.SHA1_Sign_PK(AData: string): string;
+  var
+  Len: cardinal;
+  mdctx: EVP_MD_CTX;
+  inbuf, outbuf: array [0..1023] of char;
+  key: pEVP_PKEY;
+begin
+  StrPCopy(inbuf, AData);
+  LoadSSL;
+
+  key := LoadPrivateKeyFromString('');
+  EVP_SignInit(@mdctx, EVP_sha1());
+  EVP_SignUpdate(@mdctx, @inbuf, StrLen(inbuf));
+  EVP_SignFinal(@mdctx, @outbuf, Len, key);
+
+  FreeSSL;
+  BinToHex(outbuf, inbuf,Len);
+  inbuf[2*Len]:=#0;
+  result := StrPas(inbuf);
+end;
+
 procedure TRSAOpenSSL.LoadSSL;
 begin
   OpenSSL_add_all_algorithms;
@@ -469,4 +539,5 @@ procedure TRSAOpenSSL.FreeSSL;
   ERR_free_strings;
 end;
 
+
 end.

RSAOpenSSL.pas

@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 131
-  Top = 186
+  Left = 196
+  Top = 192
   Width = 628
   Height = 468
   Caption = 'RSA Sample'
@@ -60,6 +60,15 @@ object Form1: TForm1
       TabOrder = 3
       OnClick = Button4Click
     end
+    object Button5: TButton
+      Left = 8
+      Top = 192
+      Width = 121
+      Height = 25
+      Caption = 'SHA1'
+      TabOrder = 4
+      OnClick = Button5Click
+    end
   end
   object Panel2: TPanel
     Left = 0

RSAUtil.exe

@@ -22,11 +22,13 @@   TForm1 = class(TForm)
     Button2: TButton;
     Button3: TButton;
     Button4: TButton;
+    Button5: TButton;
     procedure FormCreate(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
+    procedure Button5Click(Sender: TObject);
   private
     { Private declarations }
     fRSAOpenSSL : TRSAOpenSSL;
@@ -97,8 +99,11 @@ procedure TForm1.Button4Click(Sender: TObject);
   if aRSAData.ErrorResult = 0 then
   memo3.Lines.Text := aRSAData.DecryptedData;
   memo4.Lines.Add(aRSAData.ErrorMessage);
+end;
 
+procedure TForm1.Button5Click(Sender: TObject);
+begin
+  Memo3.Text := fRSAOpenSSL.SHA1(Memo1.Text);
 end;
 
 end.
-