SecurityCode-Picture "Quellcode"
Quellcode:
Hinweis:
Der Quelltext wurde so erstellt, dass er direkt per kopieren und einfügen
in Ihre Anwendung übernohmen werden kann.
<% @Page Language="VB" %>
<script runat="server">
'ALLGEMEINE HINWEISE:
'=================================================================================================================================================
'• Verschieben sie anschliessend die DLL in den Ordner "bin" der auf obersten Ebene Ihrer Site liegt.
'• Ein telefonischer Support für dieses Freeware-Produkt ist nicht möglich.
'• Einschränkung zur Original-Version: Domain-Name unter den Ziffern im Bild.
'• Dieses Produkt wurde von der Firma "click the web" - Güstrower Chaussee 16 in 19406 Witzin (Germany) erstellt.
'• Weitere Informationen zur Vollversion dieses Produkts finden Sie unter http://www.ASP-TOOLS.de
'=================================================================================================================================================
Sub Page_Load()
'Legen Sie hier den "geheimen Schlüssel" zum ver- und entschlüsseln des Textes fest.
'Alle Arten von Zeichen, also auch Sonderzeichen sind erlaubt.
Const GeheimerSchlüssel as String = "&&$$4321????88()&&&?"
'Hier den zu verschlüsselnden Text einfügen.
Dim ZuVerschlüsselnderText as String = "Text, Text, Text, Text, Text"
'Funktion "EncodeString()" verschlüsselt den Text und übergibt der Wert an die Variable "VerschlüsselterText".
Dim VerschlüsselterText as String = DE.CTW.SecurityCode.EncodeString(ZuVerschlüsselnderText, GeheimerSchlüssel)
'Funktion "DecodeString()" entschlüsselt den Text wieder und übergibt der Wert an die Variable "EntschlüsselterText".
Dim EntschlüsselterText as String = DE.CTW.SecurityCode.DecodeString(VerschlüsselterText, GeheimerSchlüssel)
Response.Write("Original-Text:<br>"& ZuVerschlüsselnderText &"<br><br><br>")
Response.Write("Verschlüsselter-Text:<br>"& VerschlüsselterText &"<br><br><br>")
Response.Write("Original-Text:<br>"& EntschlüsselterText &"<br><br><br>")
End Sub
</script>
<script runat="server">
'ALLGEMEINE HINWEISE:
'=================================================================================================================================================
'• Verschieben sie anschliessend die DLL in den Ordner "bin" der auf obersten Ebene Ihrer Site liegt.
'• Ein telefonischer Support für dieses Freeware-Produkt ist nicht möglich.
'• Einschränkung zur Original-Version: Domain-Name unter den Ziffern im Bild.
'• Dieses Produkt wurde von der Firma "click the web" - Güstrower Chaussee 16 in 19406 Witzin (Germany) erstellt.
'• Weitere Informationen zur Vollversion dieses Produkts finden Sie unter http://www.ASP-TOOLS.de
'=================================================================================================================================================
Sub Page_Load()
'Legen Sie hier den "geheimen Schlüssel" zum ver- und entschlüsseln des Textes fest.
'Alle Arten von Zeichen, also auch Sonderzeichen sind erlaubt.
Const GeheimerSchlüssel as String = "&&$$4321????88()&&&?"
'Hier den zu verschlüsselnden Text einfügen.
Dim ZuVerschlüsselnderText as String = "Text, Text, Text, Text, Text"
'Funktion "EncodeString()" verschlüsselt den Text und übergibt der Wert an die Variable "VerschlüsselterText".
Dim VerschlüsselterText as String = DE.CTW.SecurityCode.EncodeString(ZuVerschlüsselnderText, GeheimerSchlüssel)
'Funktion "DecodeString()" entschlüsselt den Text wieder und übergibt der Wert an die Variable "EntschlüsselterText".
Dim EntschlüsselterText as String = DE.CTW.SecurityCode.DecodeString(VerschlüsselterText, GeheimerSchlüssel)
Response.Write("Original-Text:<br>"& ZuVerschlüsselnderText &"<br><br><br>")
Response.Write("Verschlüsselter-Text:<br>"& VerschlüsselterText &"<br><br><br>")
Response.Write("Original-Text:<br>"& EntschlüsselterText &"<br><br><br>")
End Sub
</script>
»Klicken Sie hier um zur Online-Demo zu gelangen.