超级多功能BAT加密转换器

7238996

这个也是以前做的,主要功能看图

加密及转换均有两种不同的方式

[ 本帖最后由 7238996 于 2010-6-30 13:21 编辑 ]

freesoft00

bat2vbs是完全转换正vbs代码来还是通过vbs来运行bat的？

7238996

我忘记了,不知源代码放在什么地方了
你可以转一个简单的BAT看看结果

freesoft00

1. 'bat2vbs.vbs by baomaboy
   
2. Dim WshSHell,FSO
   
3. On Error Resume Next
   
4. Set WshSHell = WScript.CreateObject("WScript.Shell")
   
5. Set FSO = CreateObject("Scripting.FileSystemObject")
   
6. Set WinVer = WshSHell.Environment("Process")
   
7. Set Args = WScript.Arguments
   
8. CloseTime = 5
   
9. FileName = WScript.ScriptName
   
10. FileFullName = WScript.ScriptFullName
    
11. FilePath = FSO.GetParentFolderName(FileFullName)
    
12. InsPath = FSO.GetSpecialFolder(1)
    
13. InsFullName = FSO.BuildPath(InsPath ,FileName)
    
14. LnkPathNT = WshSHell.SpecialFolders(2)
    
15. LnkPath9X = WshSHell.SpecialFolders(14)
    
16. LnkPathAll = WshSHell.SpecialFolders("SendTo")
    
17. OtherFileName="Manage_New.txt"
    
18. OtherFilePath=FSO.GetSpecialFolder(2)
    
19. TemFileName="无标题"
    
20. TemFilePath=FSO.GetSpecialFolder(2)
    
21. Copyright="玲珑科技"
    
22. QQ="QQ:25926183"
    
23. Email="Email：fty1995@163.com"
    
24. InsTitle="Bat2Vbs by baomaboy"
    
25. InsAnswer="Bat2Vbs by baomaboy"
    
26. RegPath1="HKEY_CLASSES_ROOT\batfile\shell\BatToVbs"
    
27. RegValue1="BAT转VBS脚本文件"
    
28. RegForm1="REG_SZ"
    
29. RegPath2="HKEY_CLASSES_ROOT\batfile\shell\BatToVbs\command"
    
30. RegValue2="wscript.exe " & chr(34) & InsFullName & chr(34) & " " & chr(34) & "%L" & chr(34)
    
31. RegForm2="REG_SZ"
    
32. IF FileFullName <> InsFullName then
    
33. intAnswer = MsgBox("【是】将“"+ InsAnswer +"”加入到右键菜单，"&Chr(10)&Chr(10)&"【否】将“"+ InsAnswer +"”从右键菜单删除。 ", vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - "+ Copyright)
    
34.     If intAnswer = vbYes Then
    
35. WshSHell.RegWrite RegPath1,RegValue1,RegForm1
    
36. WshSHell.RegWrite RegPath2,RegValue2,RegForm2
    
37. FSO.GetFile(FileFullName).Copy(InsFullName)
    
38. WshSHell.popup _
    
39. "添加脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
    
40. "添加注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _
    
41. chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
    
42. chr(10) & "Copyright(C)   " + Copyright +"    " & QQ &"    " + Email _
    
43. , CloseTime, "安装成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
    
44. end if
    
45.         If intAnswer = vbNo Then
    
46. WshSHell.RegDelete RegPath2
    
47. WshSHell.RegDelete RegPath1
    
48. FSO.DeleteFile InsFullName
    
49. WshSHell.popup _
    
50. "删除脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
    
51. "删除注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _
    
52. chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
    
53. chr(10) & "Copyright(C)   " + Copyright +"    " & QQ &"    " + Email _
    
54. , CloseTime, "卸载成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
    
55. end if
    
56.         If intAnswer = vbCancel Then
    
57. end if
    
58. ELSE
    
59. if Args.count=0 then wscript.quit
    
60. Set ReadFile = FSO.OpenTextFile(Args(0), 1)
    
61. ReadAllText = ReadFile.ReadAll
    
62. ReadFile.Close
    
63. For i=1 To Len(ReadAllText)
    
64. TempNum = Asc(Mid(ReadAllText,i,1))
    
65. if TempNum = 34 Then
    
66. TempNum = 18
    
67. elseIf TempNum = 13 Then
    
68. TempNum = 28
    
69. ElseIf TempNum = 10 Then
    
70. TempNum = 29
    
71. end if
    
72. ThisText1 = ThisText1 & chr(TempNum)
    
73. Next
    
74. Set WriteFile = FSO.OpenTextFile(Args(0)&".VBS",2,True)
    
75. WriteFile.WriteLine("On Error Resume Next:Dim WshSHell,FSO,Bat2Vbs:Set WshSHell = WScript.CreateObject(""WScript.Shell""):Set FSO = CreateObject(""Scripting.FileSystemObject""):Bat2Vbs="""& ThisText1 &"""")
    
76. WriteFile.WriteLine("Execute(""For i=1 To Len(Bat2Vbs)""&vbCrLf&""TempNum = Asc(Mid(Bat2Vbs,i,1))""&vbCrLf&""If TempNum = 28 Then""&vbCrLf&""TempNum = 13""&vbCrLf&""ElseIf TempNum = 29 Then""&vbCrLf&""TempNum = 10""&vbCrLf&""elseif TempNum=18 Then""&vbCrLf&""TempNum = 34""&vbCrLf&""End If""&vbCrLf&""ThisText2 = ThisText2 & chr(TempNum)""&vbCrLf&""Next"")")
    
77. WriteFile.WriteLine("Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.bat""),2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run ""%Comspec% /C ""&FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.bat""),1,true:WScript.Sleep 500:FSO.DeleteFile FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.bat"")")
    
78. WriteFile.Close
    
79. end if
    
80. Set WshSHell = Nothing
    
81. Set FSO = Nothing
    
82. Set Args = Nothing
    
83. WScript.Quit(0)

复制代码

是这样的吗？

7238996

Sub BATtoVBS()
      Dim a as string , temp as strimg
      Dim b()     As Byte, get_b       As String
   If InStr(LCase(Combo1), ".bat") = 0 Then MsgBox "请选择源文件  ": Exit Sub
   If InStr(LCase(Combo2), ".vbs") = 0 Then MsgBox "请选择目标文件  ": Exit Sub
   If GetDriveType(Left(Combo2, 3)) = 5 Then MsgBox "不能写入光盘,请重新选择": Exit Sub
   command1.Enabled = False


      b() = LoadResData(114, "CUSTOM")
      get_b = StrConv(b(), vbUnicode)
        Open Combo1 For Input As #1
            Do While Not EOF(1)
               Line Input #1, a
               If Replace(a, " ", vbNullString) <> "" Then temp = temp + "';" + a & vbCrLf
            Loop
         Close #1
Open Combo2 For Output As #1
  Print #1, get_b + temp
  Close
  MsgBox "转换成功,目标文件为: " + Combo2
End Sub

jszforms

是beta版，什么时候有正式版