Hi Folks<BR><BR>source-&#062; http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6646<BR><BR>The .vbs equivalent of code listed above doesn&#039;t seem to function (the .asp version is fine). Can anyone assist, I need a batch version? (This should produce a credit card number beginning with &#039;3&#039;. Password is a date/timestamp from the .asp form save.)<BR><BR>Here&#039;s the code:<BR><BR>Dim sbox(255)<BR>Dim key(255)<BR>x=EnDeCrypt(" Œ¹*+gªÿC*oø»‹ ", "5/18/2002 11:19:14 AM")<BR>wscript.echo x<BR><BR>Sub RC4Initialize(strPwd)<BR> dim tempSwap<BR> dim a<BR> dim b<BR><BR> intLength = len(strPwd)<BR> For a = 0 To 255<BR> key(a) = asc(mid(strpwd, (a mod intLength)+1, 1))<BR> sbox(a) = a<BR> next<BR><BR> b = 0<BR> For a = 0 To 255<BR> b = (b + sbox(a) + key(a)) Mod 256<BR> tempSwap = sbox(a)<BR> sbox(a) = sbox(b)<BR> sbox(b) = tempSwap<BR> Next<BR>End Sub<BR> <BR>Function EnDeCrypt(plaintxt, psw)<BR><BR> dim temp<BR> dim a<BR> dim i<BR> dim j<BR> dim k<BR> dim cipherby<BR> dim cipher<BR><BR> i = 0<BR> j = 0<BR><BR> RC4Initialize psw<BR> response.write psw & "<BR>"<BR> For a = 1 To Len(plaintxt)<BR> i = (i + 1) Mod 256<BR> j = (j + sbox(i)) Mod 256<BR> temp = sbox(i)<BR> sbox(i) = sbox(j)<BR> sbox(j) = temp<BR> k = sbox((sbox(i) + sbox(j)) Mod 256)<BR> cipherby = Asc(Mid(plaintxt, a, 1)) Xor k<BR> cipher = cipher & Chr(cipherby)<BR> Next<BR><BR> EnDeCrypt = cipher<BR>End Function