Forum > LCL

DCPCrypt Limit


It is possible to bypass the sha1 limit

Really? That is very good.

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

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---var i: Integer;  Cipher: TDCP_rc4;begin  if InputQuery('Password', 'Enter password', KeyStr) then  begin    Cipher:=TDCP_rc4.Create(Self);    Cipher.InitStr(KeyStr, TDCP_sha1);    for i:=0 to Memo1.Lines.Count-1 do    begin      Memo1.Lines[i] := Cipher.EncryptString(Memo1.Lines[i]);    end;    Cipher.Burn;    Cipher.Free;  end;                  


[0] Message Index

Go to full version