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.