无忧启动论坛

标题: 超级多功能BAT加密转换器 [打印本页]
作者: 7238996    时间: 2010-6-30 10:31
标题: 超级多功能BAT加密转换器
这个也是以前做的,主要功能看图

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

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

1.JPG (31.96 KB, 下载次数: 33)

1.JPG

2.jpg (40.73 KB, 下载次数: 28)

2.jpg

bat2exe2bat.part1.rar

220 KB, 下载次数: 230, 下载积分: 无忧币 -2

bat2exe2bat.part2.rar

186.65 KB, 下载次数: 245, 下载积分: 无忧币 -2

作者: freesoft00    时间: 2010-6-30 12:47
bat2vbs是完全转换正vbs代码来还是通过vbs来运行bat的？
作者: 7238996    时间: 2010-6-30 13:23
标题: 回复 #2 freesoft00 的帖子
我忘记了,不知源代码放在什么地方了
你可以转一个简单的BAT看看结果
作者: freesoft00    时间: 2010-6-30 13:44
  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    时间: 2010-6-30 14:01
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    时间: 2010-6-30 17:18
是beta版，什么时候有正式版



欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3