Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Июн

Пример Xor шифрования

Posted by Chas under Delphi

JekaDefer
Функции:

function Encrypt(const InString: string; StartKey, MultKey, AddKey: Integer):string;

var

  i: Integer;

begin

  Result := '';

  for i := 1 to Length(InString) do

  begin

    Result := Result + CHAR(Byte(InString) xor (StartKey shr 8) xor (Length(InString)+1-i));

    StartKey := ((Byte(Result) + StartKey) * MultKey + AddKey);

  end;

end;
function Decrypt(const InString: string; StartKey, MultKey, AddKey: Integer): string;

var

  i: Integer;

begin

  Result := '';

  for i := 1 to Length(InString) do

  begin

    Result := Result + CHAR(Byte(InString) xor (StartKey shr 8) xor (Length(InString)+1-i));

    StartKey := ((Byte(InString) + StartKey) * MultKey + AddKey);

  end;

end;

Обработка:

procedure TForm1.Button1Click(Sender: TObject);

Var

  Sl: TStringList;

begin

  Sl:= TStringList.Create;

  Sl.Add(Edit1.Text);

  Sl.Text:=EnCrypt(Sl.Text, 12345,54354,23432);

  Sl.SaveToFile('1.txt');

end;
procedure TForm1.Button2Click(Sender: TObject);

Var

  Sl: TStringList;

  s: String;

begin

  Sl:= TStringList.Create;

  Sl.LoadFromFile('1.txt');

  s:=sl.Text;

  Delete(s, Length(s)-2, 2);

  Sl.Text:=DeCrypt(s, 12345,54354,23432);

  Edit2.Text:=Sl.Strings[0];

end;