Locked Level-23 domain finder

[0b3y]

Buenas a todos, hoy arto ya de que level-23 siempre este cerrando y de luego no poder encontrar el nuevo dominio cree esta tool que busca el nuevo dominio de level :P, coge los dominios del archivo "domains.txt" del mismo directorio y prueba a ver,si quereis añadir otros dominios solo poned un dominio por linea, la tool es versión 1.0 así que os encontrareis algunos errores como que mientras esta buscando no se puede interactuar con el GUI y otras cosas. S

Os dejo el ejecutable, pero si alguien quiere el código fuente que me lo pida. Se aceptan sugerencias xD

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

 

DOWNLOAD

[HIDE-THANKS]

This is the hidden content, please

• Sign In
• or
• Sign Up

[/HIDE-THANKS]

[xxfe0xx]

Re: Level-23 domain finder

 

Gran aporte

Me pasas el código

[0b3y]

Re: Level-23 domain finder

 

Gran aporte

Me pasas el código

 

Gracias! Aqui tienes :P

 

[LENGUAJE=autoit]

#NoTrayIcon

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Icon=ico.ico

#AutoIt3Wrapper_Outfile=Level-23 Domain finder.exe

#AutoIt3Wrapper_Res_Comment=Maded by 0b3y

#AutoIt3Wrapper_Res_Description=Searches for level-23 domain

#AutoIt3Wrapper_Res_Fileversion=1.3

#AutoIt3Wrapper_Res_LegalCopyright=0b3y t00ls

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include

#include

#Include

#include

#include

OnAutoItExitRegister("salida")

if not FileExists(@ScriptDir&"\domains.txt") Then

FileInstall("C:\Users\Administrador\Desktop\Todo\programacion\Autoit\ISN AutoIt Studio\Proyectos\Level-23 finder\domains.txt",@ScriptDir&"\domains.txt")

EndIf

FileInstall("C:\Users\Administrador\Desktop\Todo\programacion\Autoit\Fondos\EFC.jpg",@TempDir&"\back.jpg")

$guuu = GUICreate("Level-23 domain finder",388,492,-1,-1,-1,-1)

GUICtrlCreatePic("C:\Users\Administrador\Desktop\Todo\programacion\Autoit\Fondos\EFC.jpg",0,0,388,492,67108864)

guictrlsetstate(-1,$GUI_DISABLE)

$lista = GUICtrlCreatelistview("Domain|Is up?|Its the real revel?|",10,20,363,393,-1,512)

GUICtrlSetFont(-1,8,400,0,"Comic Sans MS")

$search = GUICtrlCreateButton("Search",110,440,110,37,-1,-1)

GUICtrlSetFont(-1,10,700,0,"Comic Sans MS")

$aabout = GUICtrlCreateButton("About",264,440,109,30,-1,-1)

GUICtrlSetFont(-1,10,400,0,"Comic Sans MS")

$copyclip=GUICtrlCreateCheckbox("Copy to clipboard if its founded",10,420,212,16,-1,-1)

GUICtrlSetBkColor(-1,"-2")

GUICtrlCreateLabel("By 0b3y!",10,452,90,30,-1,-1)

GUICtrlSetColor(-1,"0xFFFF00")

GUICtrlSetFont(-1,10,700,0,"System")

GUICtrlSetBkColor(-1,"-2")

GUISetState(@SW_SHOW,$guuu)

 

$i=1

For $x=1 To _FileCountLines(@ScriptDir&"\domains.txt") Step +1

GUICtrlCreateListViewItem(FileReadLine(@ScriptDir&"\domains.txt",$i),$lista)

$i+=1

Next

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $search

_GUICtrlListView_DeleteAllItems($lista)

$j=1

ToolTip("This will take some time!")

For $y=1 To _FileCountLines(@ScriptDir&"\domains.txt") Step +1

$domain=FileReadLine(@ScriptDir&"\domains.txt",$j)

$url="http://level-23"&$domain&"/forum/"

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")

$oHTTP.Open("GET", $url, False)

$oHTTP.Send()

$oStatusCode = $oHTTP.Status

If $oStatusCode<>200 Then

GUICtrlCreateListViewItem($domain&"|No|No",$lista)

Else

if StringInStr($oHTTP.ResponseText,"Level-23-Hack Tools!")=0 Then

$eslevel="|No"

Else

$eslevel="|Yes!!!! <========"

MsgBox(64,"Succesful!","The domain has been founded at "&$url)

If GUICtrlRead($copyclip)=1 Then ClipPut($url)

EndIf

GUICtrlCreateListViewItem($domain&"|Yes"&$eslevel,$lista)

EndIf

$j+=1

Next

ToolTip("")

MsgBox(64,"Finished","Process finished!")

 

 

 

Case $aabout

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;OTHER GUI;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

FileInstall("C:\Users\Administrador\Desktop\Todo\programacion\Autoit\ISN AutoIt Studio\Proyectos\Downloader\b2b81d5d.jpg",@TempDir&"\back2.jpg")

$About = GUICreate("About",482,402,-1,-1,-1,-1)

$BGimage = GUICtrlCreatePic(@TempDir&"\back2.jpg",0,0,482,402,67108864)

guictrlsetstate(-1,$GUI_DISABLE)

GUICtrlCreateLabel("This tool is design to search the page of level-23 whenever it has desapeard, have the nowledge that if level hasn´t buy any other domain, or the domain there using its not on the list you wont find it."&@crlf&""&@crlf&"",20,140,445,94,-1,-1)

GUICtrlSetFont(-1,10,400,0,"Comic Sans MS")

GUICtrlSetColor(-1,"0xFFFF00")

GUICtrlSetBkColor(-1,"-2")

GUICtrlCreateLabel("Created by 0b3y!"&@crlf&"For all level-23",20,260,442,93,-1,-1)

GUICtrlSetFont(-1,18,700,0,"Joan")

GUICtrlSetColor(-1,"0x00FF00")

GUICtrlSetBkColor(-1,"-2")

GUISetState(@SW_SHOW,$About)

 

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

GUIDelete($About)

ExitLoop

EndSwitch

WEnd

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;OTHER GUI;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

EndSwitch

WEnd

 

 

Func salida()

GUIDelete($guuu)

Sleep(100)

FileDelete(@TempDir&"\back.jpg")

FileDelete(@TempDir&"\back2.jpg")

EndFunc

[/LENGUAJE]

[dEEpEst]

Re: Level-23 domain finder

 

Aqui los dominios:

 

This is the hidden content, please

• Sign In
• or
• Sign Up

[(Sony)]

Re: Level-23 domain finder

 

tremendo aporte jaja siempre te pasa lo mismo no consigues el dominio pero espero ya ese problema no vuelva a pasar