Encrypt(passPhrase: String; clearText: String): String;
passPhrase. Секретная фраза, используемая при шифровании текста;
clearText. Текст, который необходимо зашифровать.
Метод Encrypt осуществляет шифрование указанного текста и возвращает полученный результат.
Добавьте ссылку на системную сборку Metabase.
Sub UserProc(Pass: String; Text: String);
Var
Crypt: ICryptoPackage;
Res: String;
Begin
Crypt := New CryptoPackage.Create;
Res := Crypt.Encrypt(Pass, Text);
Debug.WriteLine("Результат шифрования: " + Res);
Res := Crypt.Decrypt(Pass, Res);
Debug.WriteLine("Результат дешифрования: " + Res);
End Sub UserProc;
Указанная процедура осуществляет шифрование, а затем дешифрование текста. Исходные текст и секретная фраза передаются в качестве входных параметров. Результаты шифрования и дешифрования выводятся в консоль среды разработки.
См. также: