Lazarus

Programming => LCL => Topic started by: Pe3s on November 28, 2021, 10:06:46 am

Title: DCPCrypt Limit
Post by: Pe3s on November 28, 2021, 10:06:46 am
It is possible to bypass the sha1 limit
Title: Re: DCPCrypt Limit
Post by: AlexTP on November 28, 2021, 11:46:36 am
Really? That is very good.
Title: Re: DCPCrypt Limit
Post by: Pe3s on November 28, 2021, 11:54:09 am
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;                  
TinyPortal © 2005-2018