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
sTxt = "Tajný text"
Dim sTextCode
sTextCode = Pm.EncryptText(sTxt, "bflmpsvz")
Pm.IniFileWrite "#cfg:data.ini", "hesla", "Heslo1", sTextCode
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
Zabezpečené spuštění aplikace pouze s konkrétním číslem runtime licence:
Konkrétní číslo licence (7763) je použito jako část semínka pro kryptování nějakého textu uloženého do souboru.
JavaScriptVyber a zkopíruj do schránky
var sTextEncrypt = Pm.EncryptText("Hello!", "bflmpsvz_7763");
Pm.FileTextWrite("#cfg:Licence.key", sTextEncrypt, "charset:utf-8;");
V aplikaci v události
onAppStartBegin je skript, který obsah souboru načte a k dekryptování a porovnání obsahu použije zjištěné číslo licence.
JavaScriptVyber a zkopíruj do schránky
var sTxt = Pm.FileTextRead("#cfg:Licence.key", 2);
var sSeed = "bflmpsvz_" + Pm.LicenceInfo(0);
var sTextDecrypt = Pm.DecryptText(sTxt, sSeed);
if (sTextDecrypt ! "Hello!")
{
Pm.MessageBox("Err", "Licence error!", 0x0);
Pm.AppStop(0);
}
Historie:
Pm8.01.06: Nastala chyba pokud vstupní text byl prázdný řetězec.