DCPCrypt Limit

[Pe3s]

It is possible to bypass the sha1 limit

[AlexTP]

Really? That is very good.

[Pe3s]

What am I doing wrong with not encoding more memo content ?????

Code: Pascal  [Select][+][-]

1. var i: Integer;
2.   Cipher: TDCP_rc4;
3. begin
4.   if InputQuery('Password', 'Enter password', KeyStr) then
5.   begin
6.     Cipher:=TDCP_rc4.Create(Self);
7.     Cipher.InitStr(KeyStr, TDCP_sha1);
8.     for i:=0 to Memo1.Lines.Count-1 do
9.     begin
10.       Memo1.Lines[i] := Cipher.EncryptString(Memo1.Lines[i]);
11.     end;
12.     Cipher.Burn;
13.     Cipher.Free;
14.   end;