Hello guys
I´ve a single code to encrypt/decrypt strings using Blowfish.
function TBlowFishCripto.Encrypt(const Value: string): string;
var
en: TBlowFishEncryptStream;
stream: TStringStream;
begin
if length(Value) = 0 then
begin
Result := '';
Exit;
end;
try
stream := TStringStream.Create('');
en := TBlowFishEncryptStream.Create(FKey, stream);
en.Write(Value[1], Length(Value));
Result := stream.DataString;
finally
FreeAndNil(en);
FreeAndNil(stream);
end;
end;
function TBlowFishCripto.Decrypt(const encrypted: string;
out decrypted: string): boolean;
var
de: TBlowFishDeCryptStream;
s2: TStringStream;
decr: string;
begin
if length(encrypted) = 0 then
begin
Result := True;
decrypted := '';
Exit;
end;
{ 4 }
s2 := TStringStream.Create(encrypted);
{ 5 }
de := TBlowFishDeCryptStream.Create(FKey, s2);
{ 6 }
decr := de.ReadAnsiString;
de.Free;
s2.Free;
decrypted:=decr;
REsult:=true;
FreeAndNil(de);
FreeAndNil(s2);
end;
When the method Decrypt runs with a argument 'encrypted' with a string
returned by the method Encrypt, it raise an exception 203 on line after {6}
I don´t know how to debug this.
--
*Timeo hominem unius libri*
[]s
Guionardo Furlan
http://www.guionardofurlan.com.br
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
