EncryptText - metoda objektu Pm
Popis:
Zakódování daného řetězce podle daného semínka.
Syntaxe:
String EncryptText(String sText, String sSeed)
Parametry:
| sText | (String) Text, který má být zakódován |
|---|
| sSeed | (String) Semínko, podle kterého má být text zakódován (je nutno pro dekódování textu). Doporučeno alespoň 5 znaků. |
|---|
Příklad1:
Zakódovaní hesla a zápis do "ini" souboru:
JavaScriptVBScriptVyber a zkopíruj do schránky
var sTxt = "Tajný text";
var sTextCode = Pm.EncryptText(sTxt, "bflmpsvz");
Pm.IniFileWrite("#cfg:data.ini", "hesla", "Heslo1", sTextCode);
Dim sTxt, sTextCode
sTxt = "Tajný text"
sTextCode = Pm.EncryptText(sTxt, "bflmpsvz")
Pm.IniFileWrite "#cfg:data.ini", "hesla", "Heslo1", sTextCodePříklad2:
Zakódování řetězce a jeho odkódování podle daného semínka.
JavaScriptVBScriptVyber a zkopíruj do schránky
var sTxt = "Hello";
var sTextDecrypt;
var sTextEncrypt = Pm.EncryptText(sTxt, "bflmpsvz");
Pm.Debug("TextEncrypt=" + sTextEncrypt);
sTextDecrypt = Pm.DecryptText(sTextEncrypt, "bflmpsvz");
Pm.Debug("TextDecrypt=" + sTextDecrypt);
Dim sTxt, sTextDecrypt, sTextEncrypt
sTxt = "Hello"
sTextEncrypt = Pm.EncryptText(sTxt, "bflmpsvz")
Pm.Debug "TextEncrypt=" & sTextEncrypt
sTextDecrypt = Pm.DecryptText(sTextEncrypt, "bflmpsvz")
Pm.Debug "TextDecrypt=" & sTextDecrypt
Historie:
Pm8.01.06: Nastala chyba pokud vstupní text byl prázdný řetězec.