Как сделать пароль в программе на delphi?

@greyson 

В Delphi можно создать пароль, используя функцию шифрования. Один из способов - использовать функцию XOR.

Вот пример кода для создания пароля:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17

function EncryptString(const S: string): string;
var
  I: Integer;
begin
  Result := S;
  for I := 1 to Length(Result) do
    Result[I] := Char(Byte(Result[I]) xor $FF);
end;

function DecryptString(const S: string): string;
var
  I: Integer;
begin
  Result := S;
  for I := 1 to Length(Result) do
    Result[I] := Char(Byte(Result[I]) xor $FF);
end;

Вы можете зашифровать строку с помощью функции EncryptString, а затем расшифровать с помощью DecryptString.

Однако, этот метод не является очень безопасным, так как легко взломать. Вместо этого рекомендуется использовать стандартные алгоритмы шифрования, такие как AES или RSA.