EncryptText - metoda obiektu Pm
Opis:
Zaszyfrowanie danego łańcucha tekstu według danego ziarnka.
Składnia:
String EncryptText(String sText, String sSeed)
Parametry:
sText | (String) Tekst, który ma zostać zaszyfrowany |
sSeed | (String) Ziarnko, według którego ma teksto zostać zaszyfrowany (jest konieczne podczas odszyfrowania tekstu). Zalecana wielkość przynajmniej 5 znaków. |
---|
Przykład1:
Zaszyfrowanie hasła i jego zapis do pliku INI:
JavaScriptVBScriptWybierz oraz skopiuj do schowka
var sTxt = "Tekst poufny";
var sTextCode = Pm.EncryptText(sTxt, "bflmpsvz");
Pm.IniFileWrite("#cfg:data.ini", "Hasła", "Hasło1", sTextCode);
Dim sTxt
sTxt = "Tekst poufny"
Dim sTextCode
sTextCode = Pm.EncryptText(sTxt, "bflmpsvz")
Pm.IniFileWrite "#cfg:data.ini", "Hasła", "Hasło1", sTextCode
Przykład2:
Szyfrowanie łańcucha oraz jeko deszyfrowanie według określoneko ziarnka.
JavaScriptVBScriptWybierz oraz skopiuj do schowka
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
Zabezpieczone uruchomienie aplikacji tylko przy użyciu określonego numeru licencji runtime:
Specyficzny numer licencji (7763) jest używany jako część ziarna do zaszyfrowania tekstu przechowywanego do pliku.
JavaScriptWybierz oraz skopiuj do schowka
var sTextEncrypt = Pm.EncryptText("Hello!", "bflmpsvz_7763");
Pm.FileTextWrite("#cfg:Licence.key", sTextEncrypt, "charset:utf-8;");
W aplikacji w zdarzeniu
onAppStartBegin znajduje się skrypt, który odczytuje zawartość pliku i wykorzystuje wykryty numer licencji do odszyfrowania i porównania zawartości.
JavaScriptWybierz oraz skopiuj do schowka
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);
}
Historia:
Pm8.01.06: Wystąpił błąd jeżeli wejściwy tekst był pusty łańcuch.