Hey guys! I was wondering if there was a way to encrypt a string in vbs? I'm looking for a simple, but secure way to encrypt, then decrypt a string entered. I tried google but the scripts I found just blew me right out of the water. I would like to understand the code, so I can use it later to suit different purposes.your not going to get any sort of serious and reversible string encryption without "blow you out of the water" type code. A good type of encryption for casual use or for FUN is a basic Xor cipher:

Code: [Select]Function CryptXor(StringUse,Password)
Dim I
Dim RetStr
Dim Charuse,CharPwd
For I = 1 to Len(StringUse)
charuse = Mid(stringuse,I,1)
charpwd = Mid(password,(I mod len(password))+1,1)
retstr = retstr + chr(asc(charuse) xor asc(charpwd))
Next
CryptXor = retstr
End Function

Not sure if you've used functions or not in VBScript; my entire script looks like this:

Code: [Select]
Dim strcrypt
Dim strpassword
Dim encrypted ,testdecrypt
Strcrypt = Inputbox("Enter string to Xor:")
strpassword = inputbox("Enter password to use:")
encrypted= CryptXor(strcrypt,strpassword)
testdecrypt = CryptXor(encrypted,strpassword)
msgbox "encrypted:" + encrypted
msgbox "decrypted again:" + testdecrypt

Additionally, there might be a COM object you can create for encryption, but I'm not sure.Quote from: BC_Programmer on February 14, 2010, 11:19:45 PM

t "blow you out of the water"

Here is some code this will truly blow you out of the water

^^^)*()*&_(&()&*)(*&*

*&(*&(*&*)()(_)(+_(+_(*&&

*&*(&(*5446465454M4♣4♦♦╝4♦4♦É6658◘8b87O7◘7&

X888◘8x8◘◘88◘◘88○99○○9○1☺1☺1☺1☺1☺☺o11♂1☺1111♥♥♥

1☺11☺☺☺7•789999○98Yb8○8○◘98é998○898○88



It was done in EEVIAC ++

Although the code may need some revision

is that actually a programming language?

EEVIAC was an old computer, like UNIVAC.