Пример xor шифрования с записью в INI файл

Posted by Chas under Delphi, Исходники

Serge_Bliznykov

.....

var

  Form1: TForm1;

implementation

uses IniFiles;
{$R *.dfm}

const

  KeyPass = #09'8'#04'AZ@'#27; {Это ключ для шифрования.

     Он может быть любой. Главное, чтобы он был подлинее и послучайнее...}
function StringCoder(const s : AnsiString) : AnsiString;

var k, i : integer;

  key, sResult  : AnsiString;

begin

  key := KeyPass;

  sResult := s;

  k := 1;

  for i := 1 to Length(s) do

    begin

      sResult := AnsiChar((ord(sResult) XOR ord(key[k])));

      inc(k);

      if (k>length(key)) then k := 1;

    end;

  StringCoder := sResult

end;
function StringToBytes(const s : AnsiString) : AnsiString;

var i:integer;

begin

  Result := '';

  for i := 1 to Length(s) do

    Result := Result + IntToHex(ord(s),2);

end;
function BytesToString(const s : AnsiString) : AnsiString;

var i, k : integer;

 sOne : string[3];

 OneCode : Integer;

begin

  Result := '';

  i := 1;

  while i<=Length(s) do begin
    sOne := '$'+Copy(s,i,2);
    val(sOne, OneCode, k);
    if k<>0 then begin ShowMessage('Ошибка в закодированной строке!'); Exit end;

    Result := Result + AnsiChar(OneCode);

    inc(i,2);

  end;

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

var IniFile : TIniFile;

  s : string;

begin

  IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');

  s := IniFile.ReadString('User', 'Login', '');

  login.Text := StringCoder ( BytesToString(s) );

  s := IniFile.ReadString('User', 'Pass',  '');

  pass.Text := StringCoder ( BytesToString(s) );

  FreeAndNil(IniFile);

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

var IniFile : TIniFile;

begin

  IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');

  IniFile.WriteString('User', 'Login', StringToBytes( StringCoder(login.text)));

  IniFile.WriteString('User', 'Pass',  StringToBytes( StringCoder(pass.text)));

  FreeAndNil(IniFile);

end;
end.

	XorCryptExample_sources.rar (1.5 Кб)
	XorCryptExample_exe.rar (180.0 Кб)

Похожие статьи

• Пример Xor шифрования
• Как зашифровать текстовый файл
• Сохранение столбца в секции ini файла
• Сохранить путь до бд в ini файл
• Чтение данных из секций ini выборочно из ListBox
• Как считывать значение в переменную из ini файла
• Посимвольное считывание файла, поиск цифр в текстовом файле на C# (си шарп)
• Чтение определенный строки из текстового файла
• MASM32, применить xor к двум hex-строкам
• Шифрование с помощью шифрорешетки на Python