encode

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

encode

Logged in as: Guest

arrSession:exec spGetSession 2,2,61708

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

Printable Version

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

Page: [1]

Message

<< Older Topic Newer Topic >>

encode - 6/22/2008 8:02:09 PM

cyberrat

Posts: 2
Score: 0
Joined: 6/18/2008
Status: offline

i just got this script,this script is for decode,and i need help,how to make this ------>Vfulswlqj1IlohV|vwhpRemhfw
i mean how to make script ,for make this -----> Vfulswlqj1IlohV|vwhpRemhfw
sorry for bad english

thanks b 4
------------------------------------------------------------------------------------------------------
Dim objfso,vbsCode,SFSO
SFSO="Vfulswlqj1IlohV|vwhpRemhfw"
Set objfso = CreateObject(DeCode(SFSO))

Function DeCode(Coded)
On Error Resume Next
For i= 1 To Len(Coded)
Curchar=Mid(Coded,i,1)

If Asc(Curchar) = 16 then

Curchar=chr(8)

Elseif Asc(Curchar) = 24 then

Curchar=chr(12)

Elseif Asc(Curchar) = 32 then

Curchar=chr(18)

Else

Curchar=chr(Asc(Curchar)-3)

End if

DeCode=Decode & Curchar

Next

End Function

Post #: 1

RE: encode - 7/12/2008 11:35:29 PM

TomRiddle

Posts: 164
Score: 4
Joined: 2/7/2008
Status: offline

Just swap the numbers over and change the minus to plus?

Dim objfso,vbsCode,SFSO
SFSO="Vfulswlqj1IlohV|vwhpRemhfw"
'The following line really reads: Set objfso = CreateObject("Scripting.FileSystemObject")
Set objfso = CreateObject(DeCode(SFSO))

Function DeCode(Coded)
   On Error Resume Next
   For i= 1 To Len(Coded)
      Curchar=Mid(Coded,i,1)
      If Asc(Curchar) = 16 then
         Curchar=chr(8)
      Elseif Asc(Curchar) = 24 then
         Curchar=chr(12)
      Elseif Asc(Curchar) = 32 then
         Curchar=chr(18)
      Else
         Curchar=chr(Asc(Curchar)-3)
      End if
      DeCode=Decode & Curchar
   Next
End Function

Function EnCode(Coded)
   On Error Resume Next
   For i= 1 To Len(Coded)
      Curchar=Mid(Coded,i,1)
      If Asc(Curchar) = 8 then
         Curchar=chr(16)
      Elseif Asc(Curchar) = 12 then
         Curchar=chr(24)
      Elseif Asc(Curchar) = 18 then
         Curchar=chr(32)
      Else
         Curchar=chr(Asc(Curchar)+3)
      End if
      EnCode=Encode & Curchar
   Next
End Function

'Example
strEnCode = "Scripting.FileSystemObject"
msgbox (EnCode(strEncode))
msgbox (DeCode(EnCode(strEncode)))

(in reply to cyberrat)