AutoIT [RELEASE] GMails Generatore mail false

Stato
Discussione chiusa ad ulteriori risposte.

AbsolutionZero

Utente Silver
17 Giugno 2014
76
18
7
61
Giorno a tutti, oggi vi posto un mio programma molto vecchio (creato 5-6 mesi fa), Si tratta di un generatore di mail false.
Se ritrovo il source ve lo postero (se lo trovo) se no amen.

DOWNLOAD
TOTAL SCAN
P.S non so perché ma me lo da virus uno....
 
Come detto solo genera email FALSE non registrate. In parte e inutile ma in parte può essere utile ;)

- - - Updated - - -

Scusate se faccio un doppio post ma non riesco a modificare l'altro.
Comunque ho trovato il source, eccolo :D

Codice:
$fileread01=FileReadLine("components_integral.trr",5)
$fileread02=FileReadLine("components_integral.trr",6)
$fileread03=FileReadLine("components_integral.trr",7)
$fileread04=FileReadLine("components_integral.trr",8)



#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Daniel\Documents\ProgettiAutoit3\koda_1.7.3.0\Forms\GEmail.kxf
$Form1_1 = GUICreate("GEmail", 218, 362, 192, 124)
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton($fileread01, 8, 8, 203, 41)
$Button2 = GUICtrlCreateButton($fileread02, 8, 56, 201, 41)
$Button3 = GUICtrlCreateButton($fileread03, 8, 104, 201, 41)
$Label1 = GUICtrlCreateLabel("Altro...", 8, 216, 40, 20)
GUICtrlSetFont(-1, 12, 400, 0, "OpenSymbol")
$Button5 = GUICtrlCreateButton("About", 8, 240, 203, 33)
$Button6 = GUICtrlCreateButton("Exit", 8, 320, 203, 33)
$Button7 = GUICtrlCreateButton("Istruzioni", 8, 280, 203, 33)
$Button8 = GUICtrlCreateButton($fileread04, 8, 152, 201, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


$Gmail=FileReadLine("components_integral.trr",10)
$yahoo=FileReadLine("components_integral.trr",11)
$libero=FileReadLine("components_integral.trr",12)
$hotmail=FileReadLine("components_integral.trr",13)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $randomEX3=Random(6,55)
            $opensEX3=FileOpen("Name2014.trr",0)
            If $opensEX3 = -1 Then
                MsgBox(48,"Error","Impossible found or open the file.")
                Exit
            EndIf
            $read_files=FileReadLine($opensEX3,$randomEX3)
            $read_file_01=$read_files&$Gmail
            MsgBox(0,"GEmail",$read_file_01)
        Case $Button2
            $randomEX2=Random(6,55)
            $opensEX2=FileOpen("Name2014.trr",0)
            If $opensEX2 = -1 Then
                MsgBox(48,"Error","Impossible found or open the file.")
                Exit
            EndIf
            $read_files01=FileReadLine($opensEX2,$randomEX2)
            $read_file_02=$read_files01&$yahoo
            MsgBox(0,"GEmail",$read_file_02)
        Case $Button3
            $randomEX1=Random(6,55)
            $opensEX1=FileOpen("Name2014.trr",0)
            If $opensEX1 = -1 Then
                MsgBox(48,"Error","Impossible found or open the file.")
                Exit
            EndIf
            $read_files02=FileReadLine($opensEX1,$randomEX1)
            $read_file_03=$read_files02&$hotmail
            MsgBox(0,"GEmail",$read_file_03)
        Case $Button5
            MsgBox(0,"GEmail","Software created by AbsolutionZero & distribued only on Inforge & Ultimate-Zone.ATTENZIONE: qualunque cosa venga facciata con questo software, noi non ci assumiamo la responsabilita di niente e nessuno, ne danni morali ne materiali.")
        Case $Button6
            Exit
        Case $Button7
            MsgBox(0,"GEmail","Come funziona GEmail? Semplicissimo, basta aprirlo e clicare su uno dei 4 bottoni per generare un email FALSA. Si può scegliere di generare tra 4 email diverse (Gmail,Hotmail,Yahoo e Libero)")
        Case $Button8
            $randomEX4=Random(6,55)
            $opensEX4=FileOpen("Name2014.trr",0)
            If $opensEX4 = -1 Then
                MsgBox(48,"Error","Impossible found or open the file.")
                Exit
            EndIf
            $read_files04=FileReadLine($opensEX4,$randomEX4)
            $read_file_04=$read_files04&$libero
            MsgBox(0,"GEmail",$read_file_04)
    EndSwitch
WEnd
 
Stato
Discussione chiusa ad ulteriori risposte.