• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    alpha2 shellcode解密的vbs脚本

    复制代码 代码如下:

    Dim enTmp,enstr,a,bb 
    enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU") 
    For i = 1 To Len(enStr) step 6 
       enTmp =Array(Mid(enStr,i,6)"00") 
       sz =Split(enTmp(0), ",", -1, 1) 
    a= right(sz(0), 1) Xor left(sz(1), 1) 
    bb=bb aright(sz(1), 1) 
    Next 


    Function Str2Hex(ByVal strHex) 
    Dim sHex 
    For i = 1 To Len(strHex) step 1 
    sHex = sHex  Hex(Asc(Mid(strHex,i,1)))"," 
    Next 
    Str2Hex = sHex 
    End Function 

    Function Hex2Str(hexStr) 
    Dim sstr,hextmp 
    For i = 1 To Len(hexStr) step 2 
       hexTmp = Mid(hexStr,i,2) 
       If hexTmp > "00" Then 
        sstr = sstr  ChrW("h"  hexTmp) 
       End If 
    Next 
    Hex2Str = sstr 
    End Function 

    wscript.echo Hex2Str(bb) 

    上一篇:vbs屏蔽键盘按键
    下一篇:用vbs实现zip功能的脚本
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    alpha2 shellcode解密的vbs脚本 alpha2,shellcode,解密,的,vbs,