Encrypt a string

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Encrypt a string

Logged in as: Guest

arrSession:exec spGetSession 2,2,48428

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Encrypt a string
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Encrypt a string - 6/18/2007 4:45:44 AM

4scriptmoni

Posts: 208
Score: 0
Joined: 5/3/2007
Status: offline

Anybody has a simple function to encrypt and decrypt a string ?

thanks in advance,

_____________________________

Enterprise Microsoft Scripts
Exchange, Login/Logout Monitor,TS, Monitoring, Security, AD, etc...
http://www.felipeferreira.net

Post #: 1

RE: Encrypt a string - 6/18/2007 1:03:27 PM

dm_4ever

Posts: 2664
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

This may be something worth looking at for you: http://www.4guysfromrolla.com/webtech/010100-1.shtml

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to 4scriptmoni)

Post #: 2

RE: Encrypt a string - 6/18/2007 7:45:13 PM

4scriptmoni

Posts: 208
Score: 0
Joined: 5/3/2007
Status: offline

Cool I got it working!
I found two ways. And I share the code here:

'Encrypt and Decrypt functions
'::: This script performs 'RC4' Stream Encryption, and another custom algorithim  :::
Dim sbox(255) 
Dim key(255) 
Dim strEncrypt, pass, strEnDeCrypt, strCryptVBS
strEncrypt = "Eu quero encripitar esta merda!"
pass = "funciona"

wscript.echo "Encrypt: " & strEncrypt
EnDeCrypt strEncrypt, pass
wscript.echo "EnCrypted String: " & strEnDeCrypt
EnDeCrypt strEnDeCrypt, pass
wscript.echo "Done Decrypt: " & strEnDeCrypt
Wscript.Echo "Another Method"
wscript.echo "Encrypt: " & strEncrypt
CryptVBS strEncrypt, pass ' ANOTHER CRYPT DECRYPT Algorithm
Wscript.Echo "EnCrypted String: " &strCryptVBS
CryptVBS strCryptVBS, pass ' ANOTHER CRYPT DECRYPT Algorithm
wscript.echo "Done Decrypt: " & strCryptVBS

Sub RC4Initialize(strPwd) 
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
'::: This routine called by EnDeCrypt function. Initializes the ::: 
'::: sbox and the key array) ::: 
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
dim tempSwap 
dim a 
dim b 
intLength = len(strPwd) 
For a = 0 To 255 
   key(a) = asc(mid(strpwd, (a mod intLength)+1, 1)) 
   sbox(a) = a 
next
b = 0 
For a = 0 To 255  'Changed to .vbs
   b = (b + sbox(a) + key(a)) Mod 256 
   tempSwap = sbox(a) 
   sbox(a) = sbox(b) 
   sbox(b) = tempSwap 
   a = a + 1
next
End Sub

Function EnDeCrypt(plaintxt, psw)
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
'::: This routine does all the work. Call it both to ENcrypt ::: 
'::: and to DEcrypt your data. ::: 
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
dim temp, a, i, j, k, cipherby, cipher 
i = 0 
j = 0 
RC4Initialize psw 
For a = 1 To Len(plaintxt) 
   i = (i + 1) Mod 256 
   j = (j + sbox(i)) Mod 256 
   temp = sbox(i) 
   sbox(i) = sbox(j) 
   sbox(j) = temp 
   k = sbox((sbox(i) + sbox(j)) Mod 256) 
   cipherby = Asc(Mid(plaintxt, a, 1))    Xor k 
   cipher = cipher & Chr(cipherby) 
next 
EnDeCrypt = cipher 
strEnDeCrypt = EnDeCrypt
End Function

Function CryptVBS(Text, Key)
    KeyLen = Len(Key)
 For i = 1 To Len(Text)
     KeyPtr = (KeyPtr + 1) Mod KeyLen
     sTxtChr = Mid(Text, i, 1)
     wTxtChr = Asc(stxtchr)
     wKeyChr = Asc(Mid(Key, KeyPtr + 1, 1))
     CryptKey = Chr(wTxtChr Xor wKeyChr)
     hold = hold & CryptKey
  Next
  CryptVBS = hold
  strCryptVBS = CryptVBS
End Function
wscript.quit

cheers,

_____________________________

Enterprise Microsoft Scripts
Exchange, Login/Logout Monitor,TS, Monitoring, Security, AD, etc...
http://www.felipeferreira.net

(in reply to 4scriptmoni)

Post #: 3

RE: Encrypt a string - 6/18/2007 11:11:30 PM

DiGiTAL.SkReAM

Posts: 1184
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

I took a script much like that, and reworked it to come up with my crypts...
Not quite as complicated as the others...

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to 4scriptmoni)

Post #: 4

RE: Encrypt a string - 8/5/2008 3:13:45 AM

robszar

Posts: 182
Score: 0
Joined: 2/27/2005
From:
Status: offline

why the password? how about 2 separate functions, 1 to encrypt 1 to decrypt, no password

I can't seem to get this working like that, the only thing I can do is pass a plain text word and encrypted it then back again....

(in reply to DiGiTAL.SkReAM)

Post #: 5

RE: Encrypt a string - 8/5/2008 4:46:44 PM

DiGiTAL.SkReAM

Posts: 1184
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

The password tells the script what to accept as a decryption key.

For example, what good is a file that is "encrypted' if anyone can just come up and tell it "decrypt yourself" with no passsword, and it just does it?

Alternateively, if someone does that, and the file requires a particular password to decrypt the file, then it should be somewhat secure.

If you aren't using a password, and your scripts don't requiire a password to "encode" & "decode", then you aren't encrypting, your just running some substitiution scheme, like ROT13 or base64.

And those are about as secure as US Weapons Secrets in Bill Clinton's hands while visiting the Chinese!

So there.

edit: Wow, I was zonked out last night

< Message edited by DiGiTAL.SkReAM -- 8/6/2008 12:12:25 AM >

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to robszar)