在Delphi 2007.Net中帮助使用Rijndael算法 [英] Help using Rijndael Algorithm in Delphi 2007. Net
本文介绍了在Delphi 2007.Net中帮助使用Rijndael算法的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我在Delphi 2007.Net中工作,在那里我可以找到使用Rijndael算法的例子。
I'm working in Delphi 2007. Net, where I can find an example of using the Rijndael algorithm.
再见。
推荐答案
前段时间我写了这段代码,应该可以正常工作。
Some time ago I wrote this code, should work ok.
uses
System.Security.Cryptography,
System.Text;
type
TDynamicArrayOfByte = array of Byte;
function Encrypt(StrtoEncrypt, PK: string): TDynamicArrayOfByte; // pk, must be of a string of 32 characters
var
miRijndael: Rijndael;
encrypted: TDynamicArrayOfByte;
toEncrypt: TDynamicArrayOfByte;
bytPK: TDynamicArrayOfByte;
i: integer;
begin
Result := nil;
miRijndael := System.Security.Cryptography.RijndaelManaged.Create;
try
toEncrypt := System.Text.Encoding.UTF8.GetBytes(StrtoEncrypt);
bytPK := System.Text.Encoding.UTF8.GetBytes(PK);
miRijndael.Key := bytPK;
miRijndael.GenerateIV;
encrypted := (miRijndael.CreateEncryptor()).TransformFinalBlock(toEncrypt, 0, Length(toEncrypt));
setlength(result, Length(miRijndael.IV) + Length(encrypted));
for i:=0 to Length(miRijndael.IV)-1 do
result[i] := miRijndael.IV[i];
for i:=0 to Length(encrypted)-1 do
result[i + Length(miRijndael.IV)] := encrypted[i];
finally
miRijndael.Clear();
end;
end;
function DesEncrypt(BufferEncrypted: TDynamicArrayOfByte; PK: string): string; // pk, must be of a string of 32 characters
var
miRijndael: Rijndael;
encrypted: TDynamicArrayOfByte;
tempArray: TDynamicArrayOfByte;
bytPK: TDynamicArrayOfByte;
i : integer;
begin
Result := '';
miRijndael := System.Security.Cryptography.RijndaelManaged.Create;
setlength(tempArray, Length(miRijndael.IV));
setlength(encrypted, Length(BufferEncrypted) - Length(miRijndael.IV));
try
bytPK := System.Text.Encoding.UTF8.GetBytes(PK);
miRijndael.Key := bytPK;
for i:=0 to Length(tempArray)-1 do
tempArray[i] := BufferEncrypted[i];
for i:=0 to Length(encrypted)-1 do
encrypted[i] := BufferEncrypted[i + Length(tempArray)];
miRijndael.IV := tempArray;
Result := System.Text.Encoding.UTF8.GetString((miRijndael.CreateDecryptor()).TransformFinalBlock(encrypted, 0, Length(encrypted)));
finally
miRijndael.Clear();
end;
end;
再见。
这篇关于在Delphi 2007.Net中帮助使用Rijndael算法的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文