weixin_48597536
A静若安好
2021-07-22 12:45
采纳率: 0%
浏览 32

血手幽灵宏mgn2文件如何实现Veb格式加密的,求这种破解与加密手法

血手幽灵宏文件原格式是mgn2被做成了加密VBE格式的文件了,VBE文件乱码用JScript.encode解密出来了,也不是全部,我看不不明白。请问这是如何嵌入的呢。我也想把自己做的宏文件弄成他这样的,咦~发现了一个有趣的现象啊 ,下面有一块区域在编辑状是字母和数字组合的但在预览模式下就变成有序的了data后缀,这又是什么手法啊,我只发出来一部分太长了超过了限制字数data后缀的省略了很多,教我可以追加XX

set ws = CreateObject("wscript.Shell")
pathbloody = ws.ExpandEnvironmentStrings("%ProgramFiles(x86)%\Bloody6\Bloody6\UserLog")
pathpubg = ws.ExpandEnvironmentStrings("%ProgramFiles(x86)%\Bloody6\Bloody6\Data\Mouse\ChineseS\ScriptsMacros\GunLib\1400-PS-转接刺激")

dim fso
set fso = createobject("scripting.filesystemobject")
if fso.FileExists(pathbloody& "../\Bloody6.exe") then
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:\.\root\cimv2:win32_process").instances_
if Ucase(ps.name)=Ucase(ProcessName) then
ps.terminate
end if
next
end sub
Close_Process("Bloody6.exe")
Close_Process("TslGame.exe")

    data1="9CB5FA685DEFB20B703673F9E08BEB4021C14DB46B70888AA3D43A1A56C4FDF8B7C1BCDD313915568A8D95F870D3F14B2A93BAB1E9924862089FBF8BF08BD2D5FE54A7FB2F68CF2AC45F0D80C7715ADCBF4320D89019E9457A634EE15A290636F0DA0B8EC27612BB45D59CF4787EA6B43408F1884428BCC6DD34C16A7D0CAEE1661F9B3FB2E9F67F1ACDB84A6E2ED1CEC9A70A23E7B84EB1FBF519DC60C59681856EAD89C2E2547524F554E445322202F65202F79202F680D0A64656C202F66202F61202F71202530"
    sub saveFile(fName,str)
    dim temp
    set xmldoc = CreateObject("Microsoft.XMLDOM")
    xmldoc.loadXml "<?xml version=""1.0""?>"
    set pic = xmldoc.createElement("pic")
    pic.dataType = "bin.hex"
    pic.nodeTypedValue = str
    temp = pic.nodeTypedValue
    with CreateObject("ADODB.Stream")
    .type = 1:.open:.write temp
    .saveToFile fName, 2
    .close
    end with
    end sub

    On Error Resume Next
    fso.DeleteFolder(pathpubg),true
    Set f = fso.CreateFolder(pathpubg)
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K1转接器刺激-11四倍镜0705.mgn2")
    saveFile fn,data1
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K1转接器刺激-40单倍镜0705.mgn2")
    saveFile fn,data2
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-13灵敏单发慢速1901.mgn2")
    saveFile fn,data3
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-13灵敏自动满速1902.mgn2")
    saveFile fn,data4
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-16灵敏单发慢速1902.mgn2")
    saveFile fn,data5
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-16灵敏自动满速1902.mgn2")
    saveFile fn,data6
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-16灵敏自动满速1903.mgn2")
    saveFile fn,data7
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-32灵敏自动满速1902.mgn2")
    saveFile fn,data8
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-32灵敏自动满速1903.mgn2")
    saveFile fn,data9
    fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-40灵敏自动满速1901.mgn2")
    saveFile fn,data10

    With CreateObject("ADODB.Stream")
        .Type = 2
        .Mode = 3
        .Charset = "Unicode"
        .Open
        .WriteText "[Struct]" & vbcrlf
        .WriteText "GunName1=" & vbcrlf
        .WriteText "GunName2=" & vbcrlf
        .WriteText "GunName3=" & vbcrlf
        .SaveToFile pathpubg & "\Setting.ini", 2
    End With

    ws.currentdirectory = pathbloody
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Mode = 3
        .Charset = "Unicode"
        .Open
        .WriteText "[General]" & vbcrlf
        .WriteText "FileVersion=1" & vbcrlf
        .WriteText "" & vbcrlf
        .WriteText "" & vbcrlf
        .WriteText "//[Macros]" & vbcrlf
        .WriteText "//ForceCopyMacros=1" & vbcrlf
        .WriteText "" & vbcrlf
        .WriteText "" & vbcrlf
        .WriteText "[WeaponManager]" & vbcrlf
        .WriteText "Weapon=1400-PS-转接刺激" & vbcrlf
        .WriteText "" & vbcrlf
        .WriteText "" & vbcrlf
        .WriteText "[MacroGunUltraCombo]" & vbcrlf
        .WriteText "Kernel3FocusGame=1400-PS-转接刺激" & vbcrlf
        .WriteText "Kernel4FocusGame=1400-PS-转接刺激" & vbcrlf
        .SaveToFile "EnvironmentVar.ini", 2
    End With

    fn = ws.ExpandEnvironmentStrings("Bloody6(PUBG).bat")
    saveFile fn,databat
    ws.Run "Bloody6(PUBG).bat",0,true
    fso.DeleteFile(WScript.ScriptFullName)

else
msgbox "您还没有安装血手宝典",vbCritical,"PS-斗鱼"
end if

  • 点赞
  • 收藏

1条回答 默认 最新

  • QA_Assistant
    有问必答小助手 2021-07-23 11:26

    你好,我是有问必答小助手,非常抱歉,本次您提出的有问必答问题,技术专家团超时未为您做出解答

    本次提问扣除的有问必答次数,将会以问答VIP体验卡(1次有问必答机会、商城购买实体图书享受95折优惠)的形式为您补发到账户。

    ​​​​因为有问必答VIP体验卡有效期仅有1天,您在需要使用的时候【私信】联系我,我会为您补发。

    点赞 评论