Blowfish Encrypt Strings

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

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("Chilkat_9_5_0.Crypt2")

' 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>