Skip to content

Instantly share code, notes, and snippets.

Created June 25, 2017 18:54
Show Gist options
  • Save anonymous/cc7fbdcdbcb0d6c60d6b8526a3585f73 to your computer and use it in GitHub Desktop.
Save anonymous/cc7fbdcdbcb0d6c60d6b8526a3585f73 to your computer and use it in GitHub Desktop.
set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 100
Set sapi=WScript.CreateObject("sapi.spvoice")
sapi.Speak "Ah"
sapi.Speak "Piratage lancé!"
xD=Array("encode","add", "bit", "com", "dir", "get", "key", "log", "net", "num", "set", "url", "val", "xml", "xml", "anon", "call", "data", "emit", "file", "host", "http", "info", "init", "join", "left", "list", "load", "loop", "part", "pass", "ping", "poly", "port", "root", "send", "sent", "size", "stat", "temp", "type", "user", "bytes", "count", "event", "ghost", "intel", "point", "proxy", "reset", "right", "write", "buffer", "client", "delete", "domain", "global", "handle", "length", "module", "remove", "script", "signal", "socket", "system", "threat", "upload", "userid", "getlog", "cookies", "process", "setping", "syscall", "decrypt", "encrypt", "filetype", "generate", "protocol", "response", "userpass", "callmodule", "hostserver", "accountname", "encryptfile", "findpackage", "loadalevent", "mergesocket", "deleteallids", "destroybatch", "dodecahedron", "eventlistdir", "loadaltevent", "tempdatapass", "bufferpingset", "checkhttptype", "getpartoffile", "hostnewserver", "mysqlusername", "patcheventlog", "sendintelpass", "systemportkey", "unpacktmpfile", "changepassword", "emitconfiglist", "emitconfiglist", "fileexpresslog", "getmysqldomain", "getxmlprotocol", "getxmlprotocol", "httpbuffersize", "systemgridtype", "ghostfilesystem", "removeoldcookie", "uploaduserstats", "createnewpackage", "decryptdatabatch", "disconnectserver", "generatecodepack", "includedirectory", "channemsetpackage", "create2axisvector", "create3axisvector", "create4axisvector", "disconnectchannel", "joinnetworkclient", "getfirewallchannel", "encryptunpackedbatch")
Sub test()
For each item in xD
WshShell.SendKeys item
WshShell.SendKeys "~"
WScript.Sleep 2
Next
End Sub
count = 0
Do While count < 10
count = count + 1
test()
Loop
sapi.Speak "Piratage terminé!"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment