Clear cString = Space(47) oEnc = CreateObject("CAPICOM.EncryptedData") oEnc.Algorithm = 3 && 3-DES oNetwork = CreateObject("WScript.Network") cHostname = oNetwork.ComputerName oEnc.SetSecret(cHostName) oEnc.Content = cString cEncText = oEnc.Encrypt ? cEncText ? Len(cEncText) Create Cursor HoldPasses (cEnc c(254)) Insert Into HoldPasses (cEnc) Values (cEncText) oEnc.Decrypt(cEncText) cPlainText = oEnc.Content ? cPlainText ? Len(cPlainText)In my app, I am keeping the string length to 47 characters so the hash will fit in a 254-byte character column in my tables.