|
Chilkat • HOME • ASP • Visual Basic • VB.NET • C# • Visual C++ • C • MFC • Delphi • FoxPro • Java • Perl • PHP • Python • Ruby • SQL Server • VBScript
|
Blowfish Encrypt Strings This ASP script shows how to Blowfish encrypt strings. <html>
<head>
<title>Blowfish Encrypt Strings in ASP</title>
</head>
<body>
<%
' ASP script to Blowfish encrypt strings
set crypt = Server.CreateObject("ChilkatCrypt2.ChilkatCrypt2")
' Any value passed to UnlockComponent begins the 30-day trial.
unlocked = crypt.UnlockComponent("30-day trial")
if unlocked then
' Note: Encrypted data is padded to a multiple of 16 bytes.
crypt.CryptAlgorithm = "blowfish"
' The key length can be 128, 192, or 256
crypt.KeyLength = 128
' Set the password.
crypt.SecretKey = crypt.GenerateSecretKey("myPassword")
' Encrypt a string. Return the encrypted data as a URL-encoded string.
crypt.EncodingMode = "url"
Response.Write "<br><br><b>URL-encoded Blowfish Encrypted String:</b><br>"
Response.Write crypt.EncryptStringENC("123")
' Encrypt a string. Return the encrypted data as a base64-encoded string.
crypt.EncodingMode = "base64"
Response.Write "<br><br><b>Base64 Blowfish Encrypted String:</b><br>"
Response.Write crypt.EncryptStringENC("123")
' Encrypt a string. Return the encrypted data as a hex-encoded string.
crypt.EncodingMode = "hex"
Response.Write "<br><br><b>Hexidecimalized Blowfish Encrypted String:</b><br>"
encryptedStr = crypt.EncryptStringENC("123")
Response.Write encryptedStr
' Decrypt the string.
Response.Write "<br><br><b>Decrypted:</b><br>"
Response.Write crypt.DecryptStringENC(encryptedStr)
else
Response.Write "Crypt object is not unlocked!"
end if
%>
</body>
</html>
|
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.