DecryptText - metoda objektu Pm
Syntaxe:
DecryptText(sText As String, sSeed As String) As String
Volání:
s = Pm.DecryptText(sEncrypted, sSeed)Parametry:
| sText | (String) Text, který má být odkódován |
|---|
| sSeed | (String) Semínko, které bylo při kódování textu použito |
|---|
Poznámka:
K dekódování je nutná znalost semínka použitého při kódování.
Metodu lze volat i v událostech grafických prvků pro
Web obrazy.
Příklad1:
Načtení a dekódovaní hesla z "ini" souboru:
VBScriptVyber a zkopíruj do schránky
Dim sTxtCode, sTextDecode
sTxtCode = Pm.IniFileRead("#cfg:data.ini", "hesla", "Heslo1", "")
sTextDecode = Pm.DecryptText(sTxtCode, "bflmpsvz")Pří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