VBS版花指令生成器

页面导航:首页 > 软件编程 > vb.net > VBS版花指令生成器

VBS版花指令生成器

来源: 作者: 时间:2016-01-21 10:23 【

不知道哪天闲着无聊,把那个pl版的花指令生成器改成vbs了。 Option Explicit Dim colargs,n,i,rnd1,rnd2 i=0 Dim h(6),j(7) h(0)="push edx"+vbCrLf+"pop edx" h(1)="push eax"+vbCrLf+"pop eax" h(2)="inc ecx"+vbCrLf+"dec ecx" h(

不知道哪天闲着无聊,把那个pl版的花指令生成器改成vbs了。


Option Explicit
Dim colargs,n,i,rnd1,rnd2
i=0

Dim h(6),j(7)
h(0)="push edx"+vbCrLf+"pop edx"
h(1)="push eax"+vbCrLf+"pop eax"
h(2)="inc ecx"+vbCrLf+"dec ecx"
h(3)="add esp,10"+vbCrLf+"sub esp,10"
h(4)="add esp,21"+vbCrLf+"add esp,-21"
h(5)="nop"+vbcrlf+"nop"

j(0)="JMP 附近空地址随便乱跳"+vbcrlf+"JMP 跳回入口点"+vbcrlf
j(1)="je 跳回入口点"+vbcrlf+"jne 跳回入口点"+vbcrlf
j(2)="jz 跳回入口点"+vbCrLf+"jnz 跳回入口点"+vbcrlf
j(3)="jb 跳回入口点"+vbCrLf+"jge 跳回入口点"+vbcrlf
j(4)="jl 跳回入口点"+vbCrLf+"jge 跳回入口点"+vbcrlf
j(5)="ja 跳回入口点"+vbCrLf+"jle 跳回入口点"+vbcrlf
j(6)="jg 跳回入口点"+vbCrLf+"jle 跳回入口点"+vbcrlf

Set colargs=WScript.Arguments
If colargs.Count<1 Then
WScript.Echo vbCrLf + "Usage: " + vbCrLf + "hzl.vbs n <n是大于1的数字>"
WScript.Quit
End If

n=colargs(0)
n=Int(n)

If n<1 Then
WScript.Echo vbCrLf + "n必须大于1"
End If

WScript.Echo vbcrlf+"花指令生成器[vbs版] BY liyx"+ vbCrLf
WScript.Echo "************************************************************"
WScript.Echo vbCrLf+"PUSH EBP"+vbCrLf+"MOV EBP,ESP"

Randomize
Do Until i=n
rnd1=Int((6*Rnd)+0)
WScript.Echo h(rnd1)
i=i+1
Loop

rnd2=Int((7*Rnd)+0)
WScript.Echo j(rnd2)
WScript.Echo "************************************************************"

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <