從DELPHI2009開始,所有的string類型都被編譯器當(dāng)成了widestring了.早期版本的各個(gè)模塊單元不得不重寫.前些天一直在忙著處理這個(gè)AES單元,在網(wǎng)上搜索到了幾個(gè)所謂的解決方案,但實(shí)際上都是在亂來,結(jié)果雖然是正確的,但是比結(jié)果更為重要的是修改的思路吧.這個(gè)單元在D2009無法使用,是因?yàn)檩敵鼋Y(jié)果時(shí)使用的是widestring導(dǎo)致尾部有部分字符被截?cái)? 網(wǎng)上的解決辦法居然是去修改原來封裝得接近完美的單元...天...其實(shí)這問題很容易解決,只要重寫一下他的輸出流...

共有兩個(gè)單元,AES,和ELAES,以下是AES單元的主要內(nèi)容.ELAES單元不需要改動(dòng).不多說了,需要的自己看吧.

type
  TMyStringStream=class(TStringStream)
    function GetHexData:string;
  end;

implementation

{ TMyStringStream }
function TMyStringStream.GetHexData: string;
var
i:integer;
begin
for I := 0 to (size - 1) do //div 2 do
 Result := Result + IntToHex(Bytes[I], 2);
end;

function AES_EncryptString(Value,Key: String): string;
var
  SS, DS: TMyStringStream;
  Size: Integer;
  AESKey: TAESKey128;
  Key: AnsiString;//string;
  AnsiValue:AnsiString;
begin
  AnsiValue:=Value;

  Result := '';
  SS := TMyStringStream.Create(AnsiValue);
  DS := TMyStringStream.Create('');
  try
    Size := SS.Size;
    DS.WriteBuffer(Size, SizeOf(Size));
    FillChar(AESKey, SizeOf(AESKey), 0);
    Move(PAnsiChar(Key)^, AESKey, Min(SizeOf(AESKey), Length(Key)));
    EncryptAESStreamECB(SS, 0, AESKey, DS);
    Result :=DS.GetHexData;// StrToHex(DS.DataString);
  finally
    SS.Free;
    DS.Free;
  end;
end;

function AES_DecryptString(Value,Key: string): string;
var
  SS: TMyStringStream;
  DS: TMyStringStream;
  Size: Integer;
  AESKey: TAESKey128;
  Key: AnsiString;
begin
  Result := '';
  SS := TMyStringStream.Create(HexToAnsi(Value));//Trim(HexToStr(Value)));
  DS := TMyStringStream.Create('');
  try
    Size := SS.Size;
    SS.ReadBuffer(Size, SizeOf(Size)); //起始信息
    FillChar(AESKey, SizeOf(AESKey), 0);
    Move(PAnsiChar(Key)^, AESKey, Min(SizeOf(AESKey), Length(Key)));
    DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey, DS);
    //DecryptAESStreamECB(SS, SS.Size, AESKey, DS);
    //Result :=DS.GetStringData;//
    Result := DS.DataString;
  finally
    SS.Free;
    DS.Free;
  end;
end;