const
StartKey = 471; // Start default key
MultKey = 62142; // Mult default
AddKey = 11719; // Add default key
function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
i: Byte;
begin
Result:='';
for i:=1 to Length(InString) do
begin
Result:=Result+Char(Byte(InString[i]) xor (StartKey shr 8));
StartKey:=(Byte(Result[i])+StartKey)*MultKey+AddKey;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:=Encrypt(Edit2.Text, StartKey, MultKey, AddKey);
ShowMessage('Расшифрованный текст "'+s+'"');
end;
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
i: Byte;
begin
Result:='';
for i:=1 to Length(InString) do
begin
Result:=Result+Char(Byte(InString[i]) xor (StartKey shr 8));
StartKey:=(Byte(InString[i])+StartKey)*MultKey+AddKey;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text:=Decrypt(Edit1.Text, StartKey, MultKey, AddKey);
end;
как сделать чтобы шифровать и де шифроваь текст из Listbox-a ListView-a поменял эти красные места в кодике на listbox1.Items.Text шифровать сумел но дешифровать и опять добавить дешифрованный текст обратно не получается
и еще после дешифровки в конце текста появляются какиета квадратики что это такое от чего это?
Может поможете
|