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;