Home    Forum    Cerca    FAQ    Iscriviti    Login


Nuova Discussione  Rispondi alla Discussione 
Pagina 1 di 1
 
 
Bomber-fake Mailer
Autore Messaggio
Rispondi Citando   Download Messaggio  
Messaggio Bomber-fake Mailer 
 
ecco a voi il mio bomber-fake mailer..fatto sempre in autoit
commentate

 user_75_senza_titolo_1_1240749576_608251

Codice: [Download] [Nascondi]
  1. #include <ButtonConstants>  
  2. #include <ComboConstants>  
  3. #include <EditConstants>  
  4. #include <GUIConstantsEx>  
  5. #include <StaticConstants>  
  6. #include <WindowsConstants>  
  7. #include <file>  
  8. #include <GUIbutton>  
  9. #Region ### START Koda GUI section ### Form=  
  10. $Form1 = GUICreate("FaKe mail by hackkato", 537, 526, 264, 125)  
  11. GUISetFont(8, 800, 0, "MS Sans Serif")  
  12. GUISetBkColor(0x000000)  
  13. $Label1 = GUICtrlCreateLabel("BOMBER-FAKE MAILER", 0, 0, 537, 70)  
  14. GUICtrlSetFont(-1, 40, 800, 0, "Franklin Gothic Book")  
  15. GUICtrlSetColor(-1, 0x00FF00)  
  16. GUICtrlSetBkColor(-1, 0x000000)  
  17. $Button1 = GUICtrlCreateButton("INVIA", 176, 456, 153, 57, 0)  
  18. GUICtrlSetColor(-1, 0x00FF00)  
  19. $Input1 = GUICtrlCreateInput("mail.libero.it", 24, 80, 177, 21)  
  20. $Label2 = GUICtrlCreateLabel("Inserisci il server della tua email", 24, 104, 186, 17)  
  21. GUICtrlSetColor(-1, 0xFF0000)  
  22. GUICtrlSetBkColor(-1, 0x000000)  
  23. $Combo1 = GUICtrlCreateCombo("libero", 240, 80, 105, 25)  
  24. GUICtrlSetData(-1, "gmail|alice")  
  25. $Input3 = GUICtrlCreateInput("Es:Mario Rossi", 25, 125, 177, 21)  
  26. $Label3 = GUICtrlCreateLabel("Nome del mittenete", 26, 146, 113, 17)  
  27. GUICtrlSetColor(-1, 0xFF0000)  
  28. GUICtrlSetBkColor(-1, 0x000000)  
  29. $Input2 = GUICtrlCreateInput("TESTO DELLA MAIL", 80, 352, 355, 77)  
  30. GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKHEIGHT)  
  31. $Input4 = GUICtrlCreateInput("Es:mariorossi@libero.it", 28, 169, 177, 21)  
  32. $Label4 = GUICtrlCreateLabel("Falsa email del mittente", 29, 194, 137, 17)  
  33. GUICtrlSetColor(-1, 0xFF0000)  
  34. GUICtrlSetBkColor(-1, 0x000000)  
  35. $Input5 = GUICtrlCreateInput("hackkato", 280, 144, 121, 21)  
  36. $Input6 = GUICtrlCreateInput("Input6", 280, 192, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))  
  37. $Label5 = GUICtrlCreateLabel("tuo nome utente", 280, 167, 96, 17)  
  38. GUICtrlSetColor(-1, 0xFF0000)  
  39. GUICtrlSetBkColor(-1, 0x000000)  
  40. $Label6 = GUICtrlCreateLabel("tua password", 279, 213, 79, 17)  
  41. GUICtrlSetColor(-1, 0xFF0000)  
  42. GUICtrlSetBkColor(-1, 0x000000)  
  43. $login = GUICtrlCreateGroup("login", 248, 112, 185, 129)  
  44. GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")  
  45. GUICtrlSetColor(-1, 0xFF0000)  
  46. GUICtrlSetBkColor(-1, 0xFFFFE1)  
  47. GUICtrlCreateGroup("", -99, -99, 1, 1)  
  48. $Input7 = GUICtrlCreateInput("Es:vittima@libero.it", 29, 211, 177, 21)  
  49. $Input8 = GUICtrlCreateInput("", 25, 305, 177, 21)  
  50. $Input9 = GUICtrlCreateInput("prova", 25, 254, 177, 21)  
  51. $Label7 = GUICtrlCreateLabel("Email del destinatario", 31, 237, 125, 17)  
  52. GUICtrlSetColor(-1, 0xFF0000)  
  53. GUICtrlSetBkColor(-1, 0x000000)  
  54. $Label8 = GUICtrlCreateLabel("Ogetto della email", 27, 281, 106, 17)  
  55. GUICtrlSetColor(-1, 0xFF0000)  
  56. GUICtrlSetBkColor(-1, 0x000000)  
  57. $Label9 = GUICtrlCreateLabel("File da inviare", 26, 328, 84, 17)  
  58. GUICtrlSetColor(-1, 0xFF0000)  
  59. GUICtrlSetBkColor(-1, 0x000000)  
  60. $Combo2 = GUICtrlCreateCombo("1", 344, 280, 89, 25)  
  61. GUICtrlSetData(-1, "5|10|15|20|50|100")  
  62. $Label10 = GUICtrlCreateLabel("N. di email da inviare", 343, 300, 124, 17)  
  63. GUICtrlSetColor(-1, 0xFF0000)  
  64. GUICtrlSetBkColor(-1, 0x000000)  
  65. GUISetState(@SW_SHOW)  
  66. #EndRegion ### END Koda GUI section ###  
  67. $input1=GUICtrlRead($input1)  
  68. $input2=GUICtrlRead($input2)  
  69. $input3=GUICtrlRead($input3)  
  70. $input4=GUICtrlRead($input4)  
  71. $input5=GUICtrlRead($input5)  
  72. $input6=GUICtrlRead($input6)  
  73. $input7=GUICtrlRead($input7)  
  74. $input8=GUICtrlRead($input8)  
  75. $input9=GUICtrlRead($input9)  
  76. $Combo1=GUICtrlRead($Combo1)  
  77. $Combo2=GUICtrlRead($Combo2)  
  78. While 1  
  79.     $nMsg = GUIGetMsg()  
  80.     Switch $nMsg  
  81.         Case $GUI_EVENT_CLOSE  
  82.             Exit  
  83.         Case $Button1  
  84.             ProgressOn("Attendere", "Invio email in corso", "0 percento")  
  85. GUICtrlSetColor (-1, 0xFFFFFF)  
  86. GUICtrlSetBkColor (-1, 0x000000)  
  87. GUICtrlSetLimit(-1, 200, 0)  
  88.  
  89. For $i = 10 to 100 step 10  
  90.     sleep(500)  
  91.     ProgressSet($i,$i& " ")  
  92. Next  
  93. ProgressSet(100 , "Fatto", "Completo")  
  94. sleep(500)  
  95. ProgressOff()  
  96. _GUICtrlButton_Enable($Button1,False)  
  97.             $input1=GUICtrlRead($input1)  
  98. $input2=GUICtrlRead($input2)  
  99. $input3=GUICtrlRead($input3)  
  100. $input4=GUICtrlRead($input4)  
  101. $input5=GUICtrlRead($input5)  
  102. $input6=GUICtrlRead($input6)  
  103. $input7=GUICtrlRead($input7)  
  104. $input8=GUICtrlRead($input8)  
  105. $input9=GUICtrlRead($input9)  
  106. $Combo1=GUICtrlRead($Combo1)  
  107. $Combo2=GUICtrlRead($Combo2)  
  108. $SmtpServer =$input1        ; address for the smtp-server to use - REQUIRED  
  109. $FromName =$input3           ; name from who the email was sent  
  110. $FromAddress =$input4        ; address from where the mail should come  
  111. $ToAddress =$input7    ; destination address of the email - REQUIRED  
  112. $Subject = $Input9               ; subject from the email - can be anything you want it to be  
  113. $Body = $input2            ; the messagebody from the mail - can be left blank but then you get a blank mail  
  114. $AttachFiles =$input8                     ; the file you want to attach- leave blank if not needed  
  115. $Username = $Input5            ; username for the account used from where the mail gets sent - REQUIRED  
  116. $Password = $Input6                ; password for the account used from where the mail gets sent - REQUIRED  
  117.                   
  118.               
  119.  
  120. If $Combo1="libero" Then  
  121.     $SmtpServer="mail.libero.it"  
  122.     $CcAddress = ""                          
  123. $BccAddress = ""  
  124. $Importance = "Normal"  
  125. $IPPort = 25                          
  126. $ssl = 0  
  127. Global $oMyRet[2]  
  128. Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")  
  129.     for $rc=_INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)=1 to $Combo2  
  130.     If @error Then  
  131.     MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)  
  132. EndIf  
  133. Next  
  134. EndIf  
  135. if $Combo1="alice" Then  
  136.     $input1="out.alice.it"  
  137.     MsgBox(0,"",$input1)  
  138.     $CcAddress = ""                            
  139. $BccAddress = ""  
  140. $Importance = "Normal"  
  141.     $SmtpServer="out.alice.it"  
  142.     $IPPort = 25                            
  143. $ssl = 0  
  144. Global $oMyRet[2]  
  145. Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")  
  146.     for $rc=_INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)=1 to $Combo2  
  147.     If @error Then  
  148.     MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)  
  149. EndIf  
  150. Next  
  151. EndIf  
  152. if $Combo1="gmail" Then  
  153.     $input1="smtp.gmail.com"  
  154.     $CcAddress = ""                            
  155. $BccAddress = ""  
  156. $Importance = "Normal"  
  157.     $SmtpServer="smtp.gmail.com"  
  158. $IPPort=465                            
  159. $ssl=1  
  160. Global $oMyRet[2]  
  161. Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")  
  162. for $rc=_INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)=1 to $Combo2  
  163. If @error Then  
  164.     MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)  
  165. EndIf  
  166. Next  
  167. EndIf  
  168. Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)  
  169.     Local $objEmail = ObjCreate("CDO.Message")  
  170.     $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'  
  171.     $objEmail.To = $s_ToAddress  
  172.     Local $i_Error = 0  
  173.     Local $i_Error_desciption = ""  
  174.     If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress  
  175.     If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress  
  176.     $objEmail.Subject = $s_Subject  
  177.     If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then  
  178.         $objEmail.HTMLBody = $as_Body  
  179.     Else  
  180.         $objEmail.Textbody = $as_Body & @CRLF  
  181.     EndIf  
  182.     If $s_AttachFiles <> "" Then  
  183.         Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")  
  184.         For $x = 1 To $S_Files2Attach[0]  
  185.             $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])  
  186.             ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console  
  187.             If FileExists($S_Files2Attach[$x]) Then  
  188.                 $objEmail.AddAttachment ($S_Files2Attach[$x])  
  189.             Else  
  190.                 ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)  
  191.                 SetError(1)  
  192.                 Return 0  
  193.             EndIf  
  194.         Next  
  195.     EndIf  
  196.     $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
  197.     $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer  
  198.     If Number($IPPort) = 0 then $IPPort = 25  
  199.     $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort  
  200.     ;Authenticated SMTP  
  201.     If $s_Username <Then>_INetSmtpMailCom  
  202.  
  203. Func MyErrFunc()  
  204.     $HexNumber = Hex($oMyError.number, 8)  
  205.     $oMyRet[0] = $HexNumber  
  206.     $oMyRet[1] = StringStripWS($oMyError.description, 3)  
  207.     ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)  
  208.     SetError(1); something to check for when this function returns  
  209.     Return  
  210. EndFunc   ;==>MyErrFunc  
  211.     EndSwitch  
  212. WEnd 

 



 
Ultima modifica di hackkato il Dom 26 Apr, 2009 14:49, modificato 4 volte in totale 
hackkato Invia Messaggio Privato
Torna in cimaVai a fondo pagina
Rispondi Citando   Download Messaggio  
Messaggio Re: Bomber-fake Mailer 
 
il codice devi inserirlo con l'apposito bbcode
 




____________
adfly.350x19.1
mid9fd4cd942fe0470dff9fk
 
TheDarkM@n Invia Messaggio Privato Invia Email
Torna in cimaVai a fondo pagina
Rispondi Citando   Download Messaggio  
Messaggio Re: Bomber-fake Mailer 
 
carino... solo non capisco xkè non lo programmi in python che senza complicarlo avresti codice equivalente ma portabile su tutte le piattaforme... cmq a parte il fatto di metterlo nel bbcode io farei una introduzione spiegando anche ai n00b cose bomb fake mailer e mettendo uno screenshot del codice in funzione....

Cmq buon lavoro!
 




____________
user_3_userbar2
xperia-arc-s-white-560x200
Gingillo del giorno: IcontrolPAd
Migliore aiutante: HP DV6 6169SL
 
GioBlacK92 Invia Messaggio Privato
Torna in cimaVai a fondo pagina
Rispondi Citando   Download Messaggio  
Messaggio Re: Bomber-fake Mailer 
 
GioBlacK92 ha scritto:  
carino... solo non capisco xkè non lo programmi in python che senza complicarlo avresti codice equivalente ma portabile su tutte le piattaforme.. cmq a parte il fatto di metterlo nel bbcode io farei una introduzione spiegando anche ai n00b cose bomb fake mailer e mettendo uno screenshot del codice in funzione....

Cmq buon lavoro!


non ritengo python un linguaggio per me....
 



 
hackkato Invia Messaggio Privato
Torna in cimaVai a fondo pagina
Rispondi Citando   Download Messaggio  
Messaggio Re: Bomber-fake Mailer 
 
bhè non dovresti dire così.. il linguaggio è uno strumento, va scelto in base a ciò che vuoi ottenere, non a simpatia! cmq ottimo lavoretto!
 



 
GioBlacK92 Invia Messaggio Privato
Torna in cimaVai a fondo pagina
Rispondi Citando   Download Messaggio  
Messaggio Re: Bomber-fake Mailer 
 
lo dico appunto per questo...comunque grazie...
 



 
hackkato Invia Messaggio Privato
Torna in cimaVai a fondo pagina
Mostra prima i messaggi di:    

Nuova Discussione  Rispondi alla Discussione  Pagina 1 di 1
 


NascondiQuesto argomento è stato utile?
Condividi Argomento
Segnala via email Facebook Twitter Windows Live Favorites MySpace del.icio.us Digg SlashDot google.com LinkedIn StumbleUpon Blogmarks Diigo reddit.com Blinklist co.mments.com
technorati.com DIGG ITA linkagogo.com meneame.net netscape.com newsvine.com yahoo.com Fai Informazione Ok Notizie Segnalo Bookmark IT fark.com feedmelinks.com spurl.net

Online in questo argomento: 0 Registrati, 0 Nascosti e 1 Ospite
Utenti Registrati: Nessuno


 
Lista Permessi
Non puoi inserire nuovi Argomenti
Non puoi rispondere ai Messaggi
Non puoi modificare i tuoi Messaggi
Non puoi cancellare i tuoi Messaggi
Non puoi votare nei Sondaggi
Non puoi allegare files
Puoi scaricare gli allegati
Non puoi inserire eventi calendario