What should be paid attention to in encryption in vbs script
This article is about what you need to pay attention to in encryption in vbs scripts. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.
The code is as follows:
I have been learning vbs for a short time. Recently, I saw a book about the encryption of vbs scripts, so I tried it myself, but there was a problem. I corrected all the low-level syntax errors myself, but the script didn't work after running. So I'd like to ask you something. The principle of the script is this: it converts the code to hexadecimal, then writes a decryption code through which the encrypted code is executed, and the string into hexadecimal code is as follows:
Function str2hex (Byval strHex)
For iTunes 1 to Len (strHex)
SHex = sHex & Hex (Asc (mid (strHex,i,1)
Next
Str2Hex = sHex
End Function
The code for decryption is as follows:
Function hextostr (data)
Hextostr = "Execute"
C = & Chr (& H)
N = ")"
Do while Len (data) > 1
If IsNumeric (Left (data,1)) then
Hextostr=Hextostr&c&Left (data,2) & N
Data=mid (data,3)
Else
Hextostr=HextoStr&C&Left (data,4) & N
Data=mid (data,5)
End if
Loop
End Function
There seems to be something wrong with the decryption code. Please correct it. I really can't find it.
The whole finished product is:
On error resume next
Set arg=wscript.arguement 'declares external parameters
If arg.count=0 Then wscript.quit 'exit the script if there are no parameters
Set fso=creatobject ("Scripting.Filesystem Object") 'declares the fso component
When fso.opentextfile (arg (0), 1je flase)
Data = readall:.close' reads text content
If err.number0 then wscript.quit 'exit if an error occurs
With fso.opentextfile (arg (0) & "* .vbs", 2 vbs true) 'will write the converted ones to a new VBs
If err.number0 then wscript.quit 'exit if an error occurs
.writeline "Execute (Hextostr (" & str2hex (data) & "") ") 'executes the decryption and executes the decrypted code
.writeline "Function hextostr (data)"
.writeline "Hextostr="Execute"
.writeline "C ="& CHR (& H"
.writeline "N =)"
.writeline "Do while Len (data) > 1"
.writeline "if IsNumeric (Left (data,1)) then"
.writeline "Hextostr=Hextostr&c&Left (data,2) & N"
.writeline "data = (data,3)"
.writeline "else"
.writeline "Hextostr=Hex tostr & c&Left (data,4) & N"
.writeline "data=mid (data,5)"
.writeline "end if"
.writeline "loop"
.writeline "end function"
'write in the decryption function
.close 'close text
Set fso=Nothing' unregisters the fso component
End with
Msgbox "OK"
'The following is the encryption function
Function str2hex (Byval strHex)
For iTunes 1 to Len (strHex)
SHex = sHex & Hex (Asc (mid (strHex,i,1)
Next
Str2Hex = sHex
End function
'that 's all the code. It's so long.
The book says, just drag the vbs script to be encrypted to this script, but I didn't succeed. I don't know what's wrong. Please help me, thank you.
The above code pays attention to several situations:
1 、 set arg=wscript.arguements
There's an s at the back door.
2. Set fso=creatobject ("Scripting.Filesystem Object") 'declares the fso component
It's supposed to be filesystemboject.
3. Writeline "N =)"
For the need to output N = ")" input with vbs "(double quotation marks) is to use two"
.writeline "N =") "
4. Writeline "data = (data,3)" there are fewer mid here
That's basically it.
Do.vbs is saved as do.vbs. Drag the encrypted js file to this file.
The copy code is as follows:
'on error resume next
Set arg=wscript.arguments' declares external parameters
If arg.count=0 Then wscript.quit 'exit the script if there are no parameters
Set fso=createobject ("Scripting.FilesystemObject") 'declares the fso component
Filename=wscript.arguments (0)
Set readline=fso.opentextfile (filename,1,flase)
Data=readline.readall:
Readline.close 'reads text content
If err.number0 then wscript.quit 'exit if an error occurs
With fso.opentextfile (filename& "_ out.vbs", 2J true) 'will write the converted ones to a new vbs
If err.number0 then wscript.quit 'exit if an error occurs
.writeline "Execute (Hextostr (" & str2hex (data) & "") ") 'executes the decryption and executes the decrypted code
.writeline "Function hextostr (data)"
.writeline "Hextostr="Execute"
.writeline "C ="& CHR (& H"
.writeline "N =") "
.writeline "Do while Len (data) > 1"
.writeline "if IsNumeric (Left (data,1)) then"
.writeline "Hextostr=Hextostr&c&Left (data,2) & N"
.writeline "data = mid (data,3)"
.writeline "else"
.writeline "Hextostr=Hextostr&c&Left (data,4) & N"
.writeline "data=mid (data,5)"
.writeline "end if"
.writeline "loop"
.writeline "end function"
'write in the decryption function
.close 'close text
End with
Set fso=Nothing' unregisters the fso component
Msgbox "OK"
'The following is the encryption function
Function str2hex (Byval strHex)
For iTunes 1 to Len (strHex)
SHex = sHex & Hex (Asc (mid (strHex,i,1)
Next
Str2Hex = sHex
End function
Thank you for reading! This is the end of this article on "what do you need to pay attention to in vbs script encryption?". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, you can share it out for more people to see!
