تشفيرة عينه بتاريخ 16/8/2017

هوب هوب هوب
جامدة يادرش جاري التحليل
بس تشفيرة لذيذة
dropper

 

تسلم يا درش تم الفك يدويا

الملف في الريسورس غالبا شيل ميتربريتر
وهناك ملف بات يتم كتابته من قبل الملف الدوت نت سطر بسطر لغرض الإخفاء واضافة ستارت اب
بس الصراحة عينة جامدة

هذا المحتوى يظهر للاعضاء المسجلين فقط:

هذا المحتوى يظهر للاعضاء المسجلين فقط:

هذا المحتوى يظهر للاعضاء المسجلين فقط:

هذا المحتوى يظهر للاعضاء المسجلين فقط:

https://www.virustotal.com/#/file/c...df8eb2d6be613a132558d075a9310f3c381/detection


وهذا الملف الخام بعد الاستخراج

هذا المحتوى يظهر للاعضاء المسجلين فقط:

هذا المحتوى يظهر للاعضاء المسجلين فقط:

infected



https://www.hybrid-analysis.com/sam...be613a132558d075a9310f3c381?environmentId=100

 

تسلم يا درش أن بحثت في نيم سبيس واحد الي استخرج الشيل ,, لان حماية السمارت اسمبلي مش اتفكت كاملة ومعظم الاكواد تبع الحماية نفسها
ان شاء الله هشوف السترنجات الباقية

هذا المحتوى يظهر للاعضاء المسجلين فقط:

هذا المحتوى يظهر للاعضاء المسجلين فقط:

 

kernel32
ntdll
kernel32
DebugActiveProcess
WaitForDebugEvent
DebugSetProcessKillOnExit
ContinueDebugEvent
VirtualProtectEx
NtResumeThread
ntdll
ntdll
CreateProcessA
ReadProcessMemory
WriteProcessMemory
GetThreadContext
NtSetContextThread
NtUnmapViewOfSection
VirtualAllocEx
NtResumeThread

كود PHP:

Imports System.Text
Imports System.Security.Cryptography
Imports System.IO
Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim str() As String = {"k2D78XfKUUTlauYHJy5jbw==", "hz/hd3D/wavPOBKI/GwbLA==", "k2D78XfKUUTlauYHJy5jbw==", "3yeAttilqYJ+EMxWxVE4ddmWY1HjswCfYgKGLyrZLhY=", "V6N+8pSqbcH59jYCQu9UhOsheGehiCWwgMWITX/35sI=", "yBuVrMO/CT3bRB6JacZwOLoNPvBrACveNZiDA4uNRL4=", "RP2oKOFv5zcdQxBfVkwNWV/4xNZKt9aR8FkYZz7dohA=", "7u2yBsZOLRTRRBdycIOGrxCCPJ0aELG0050xuxwLeQI=", "uS4yA9pQAUxtMJao/fRBSg==", "hz/hd3D/wavPOBKI/GwbLA==", "hz/hd3D/wavPOBKI/GwbLA==", "5swmu3DmQiIV8apfrAbwEg==", "74rVa+3Aor4AJbfrPJKSmNUtkaSRtW4BgSdbJeK5ZTM=", "Lik+qU0gGldGPdmKCxzW3ygMUENMCLECkcqigFIsSbE=", "FVSLYiH2b8Zca/XxHFH45Sy7wcGl/wiKuzpNiXI1FpY=", "NoTKZvk33CmrNmsxkrYR8fpfiQSvKPuGulJp87OhO90=", "uJA9KEAyPwsIBjO5QwzfgvwIQ/9InOarhXI0ovrKN1Q=", "Rn9QGk24F2GAlThgCfqH+A==", "uS4yA9pQAUxtMJao/fRBSg=="}
        For Each h As String In str
            TextBox1.Text = TextBox1.Text & zero(h) & vbCrLf
        Next
    End Sub
    Public Function zero(ByVal string_0 As String) As String
        Dim password As String = "fsa"
        Dim s As String = "cffffffffffffffffff"
        Dim str2 As String = "@1B2c3D4e5F6g7H8"
        Dim bytes As Byte() = Encoding.ASCII.GetBytes(str2)
        Dim salt As Byte() = Encoding.ASCII.GetBytes(s)
        Dim buffer As Byte() = Convert.FromBase64String(string_0)
        Dim rgbKey As Byte() = New Rfc2898DeriveBytes(password, salt, 2).GetBytes(&H20)
        Dim managed As New RijndaelManaged
        managed.Mode = CipherMode.CBC
        Dim transform As ICryptoTransform = managed.CreateDecryptor(rgbKey, bytes)
        Dim stream2 As New MemoryStream(buffer)
        Dim stream As New CryptoStream(stream2, transform, CryptoStreamMode.Read)
        Dim buffer4 As Byte() = New Byte(((buffer.Length - 1) + 1) - 1) {}
        Dim count As Integer = stream.Read(buffer4, 0, buffer4.Length)
        stream2.Close()
        stream.Close()
        Return Encoding.UTF8.GetString(buffer4, 0, count)
    End Function
End Class


لا بس ايه رأيك ف الشوية الي لسة فاكرهم من تالتة ثانوي دول

تحب اكتبلك معادلة نيترة الجليسرول بالمرة
​

 

هواية الحفر في الطرطليت واستخراج المازوت
هتوحشني ياكبير
بس يدوبك جبت السورسات القديمة بصيت عليها شوية افتكرت كتير الحمد لله