Add SHA1, SHA256, SHA512

Author: ddlencemc

RSAOpenSSL.dcu

@@ -34,8 +34,6 @@   TRSAOpenSSL = class
     procedure LoadSSL;
     function LoadPrivateKeyFromString(KeyFile: string): pEVP_PKEY;
 
-
-
   public
     { Public declarations }
     constructor Create(aPathToPublickKey, aPathToPrivateKey: string); overload;
@@ -47,6 +45,8 @@   TRSAOpenSSL = class
     function SHA1_base64(AData: string): string;
     function SHA1_Sign_PK(AData: string): string;
     function SHA1(AData: string): string;
+    function SHA256(AData: string): string;
+    function SHA512(AData: string): string;
   protected
 
   end;
@@ -503,6 +503,46 @@ function TRSAOpenSSL.SHA1(AData: string): string;
   result := StrPas(inbuf);
 end;
 
+function TRSAOpenSSL.SHA256(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_sha256());
+  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.SHA512(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_sha512());
+  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;

RSAOpenSSL.pas

@@ -69,6 +69,24 @@ object Form1: TForm1
       TabOrder = 4
       OnClick = Button5Click
     end
+    object Button6: TButton
+      Left = 8
+      Top = 232
+      Width = 121
+      Height = 25
+      Caption = 'SHA256'
+      TabOrder = 5
+      OnClick = Button6Click
+    end
+    object Button7: TButton
+      Left = 8
+      Top = 272
+      Width = 121
+      Height = 25
+      Caption = 'SHA512'
+      TabOrder = 6
+      OnClick = Button7Click
+    end
   end
   object Panel2: TPanel
     Left = 0

RSAUtil.exe

@@ -23,12 +23,16 @@   TForm1 = class(TForm)
     Button3: TButton;
     Button4: TButton;
     Button5: TButton;
+    Button6: TButton;
+    Button7: 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);
+    procedure Button6Click(Sender: TObject);
+    procedure Button7Click(Sender: TObject);
   private
     { Private declarations }
     fRSAOpenSSL : TRSAOpenSSL;
@@ -106,4 +110,14 @@ procedure TForm1.Button5Click(Sender: TObject);
   Memo3.Text := fRSAOpenSSL.SHA1(Memo1.Text);
 end;
 
+procedure TForm1.Button6Click(Sender: TObject);
+begin
+  Memo3.Text := fRSAOpenSSL.SHA256(Memo1.Text);
+end;
+
+procedure TForm1.Button7Click(Sender: TObject);
+begin
+  Memo3.Text := fRSAOpenSSL.SHA512(Memo1.Text);
+end;
+
 end.

Unit1.dcu

@@ -983,6 +983,8 @@ function EVP_md2: pEVP_MD; cdecl;
 function EVP_md5: pEVP_MD; cdecl;
 function EVP_sha: pEVP_MD; cdecl;
 function EVP_sha1: pEVP_MD; cdecl;
+function EVP_sha256: pEVP_MD; cdecl;
+function EVP_sha512: pEVP_MD; cdecl;
 function EVP_dss: pEVP_MD; cdecl;
 function EVP_dss1: pEVP_MD; cdecl;
 function EVP_mdc2: pEVP_MD; cdecl;
@@ -1662,6 +1664,8 @@ function  EVP_md2; external LIBEAY_DLL_NAME;
 function  EVP_md5; external LIBEAY_DLL_NAME;
 function  EVP_sha; external LIBEAY_DLL_NAME;
 function  EVP_sha1; external LIBEAY_DLL_NAME;
+function  EVP_sha256; external LIBEAY_DLL_NAME;
+function  EVP_sha512; external LIBEAY_DLL_NAME;
 function  EVP_dss; external LIBEAY_DLL_NAME;
 function  EVP_dss1; external LIBEAY_DLL_NAME;
 function  EVP_mdc2; external LIBEAY_DLL_NAME;