Products » dgEncrypt User Guide
Method: Cipher::EncryptStringBase64EncryptStringBase64(PlainText)
The string given in the PlainText argument is encrypted, and the resulting cipher text is converted to a base64 value before being returned as a string.
PlainText
The PlainText argument is the string to be encrypted.
Example:
<%
Function UpdateCardNumber(lngUserID, strCardNumber)
If lngUserID < 1 Or strCardNumber = "" Then
UpdateCardNumber = False
Exit Function
End If
Dim strCipherText
Dim objKey
Dim objCipher
' HKeyLocalMachine = &H80000002
Set objKey = Server.CreateObject("dgEncrypt.Key")
objKey.ReadKeyRegistry &H80000002, "SOFTWARE\Website", "CCKey"
Set objCipher = Server.CreateObject("dgEncrypt.Cipher")
objCipher.SetKey objKey
strCipherText = objCipher.EncryptStringBase64(strCardNumber)
Dim strQuery
Dim cnnConn
Set cnnConn = Server.CreateObject("ADODB.Connection")
cnnConn.Open "Driver={SQL Server};" & _
"Server=bigmoe;" & _
"Database=random_stuff;" & _
"Uid=sa;" & _
"Pwd=!goombah!;"
' adStateOpen = 1
If cnnConn.State <> 1 Then
UpdateCardNumber = False'
Exit Function
End If
strQuery = "UPDATE CreditCards SET CardNumber = '" & strCipherText & "' WHERE UserID = " & lngUserID
cnnConn.Execute strQuery
cnnConn.Close
Set cnnConn = Nothing
Set objCipher = Nothing
Set objKey = Nothing
UpdateCardNumber = True
End Function
%>
