Recent

Author Topic: DCPCrypt Limit  (Read 3520 times)

Pe3s

  • Hero Member
  • *****
  • Posts: 533
DCPCrypt Limit
« on: November 28, 2021, 10:06:46 am »
It is possible to bypass the sha1 limit

AlexTP

  • Hero Member
  • *****
  • Posts: 2386
    • UVviewsoft
Re: DCPCrypt Limit
« Reply #1 on: November 28, 2021, 11:46:36 am »
Really? That is very good.

Pe3s

  • Hero Member
  • *****
  • Posts: 533
Re: DCPCrypt Limit
« Reply #2 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;                  
« Last Edit: November 28, 2021, 06:10:54 pm by Pe3s »

 

TinyPortal © 2005-2018