عرض مشاركة واحدة
قديم منذ /11-08-2012, 02:30 AM   #1
‏windows 8
Creator

الصورة الرمزية ‏windows 8

‏windows 8 غير متواجد حالياً

 رقم العضوية : 32
 تاريخ التسجيل : Oct 2012
 العمر : 36
 الجنس : ~ ذكر
 البلد : GAZA
 المشاركات : 0
 إهتمامك : HKER
 النقاط : 19
 قوة التقييم : ‏windows 8 is on a distinguished road

شكراً: 0
تم شكره 0 مرة في 0 مشاركة
44444 ،Autoit V3 ,Crypter Data V1.1 + ,سورس

[ , شرح , ] , (♥) , فـيـ،Autoit , V3 , (♥) , Crypter , Data , V1.1 , (♥) , + , (♥)سورس , (♥)



أخوتي اليوم قمت ببرمجة برنامج جميل يقوم بتشفير النصوص والبسوردات
لتجنب ضياعها مع الارتياح أثناء تخبأتها في حاسوبك حتى ولو كنت مخترق ،Autoit V3 ,Crypter Data V1.1    ,سورس smile.gif
لنتابع الشرح والصور :

،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png

هده ايقونة البرنامج :

،Autoit V3 ,Crypter Data V1.1    ,سورس 418143icon.png


،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png

هده صورة لواجهة البرنامج مع شرح أثناء تشفير و فك تشفير نص او بالأحرى أسمي :15: :

،Autoit V3 ,Crypter Data V1.1    ,سورس 140529Sanstitre1.png



،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png
وهذه صورة أخرى أيضا :


،Autoit V3 ,Crypter Data V1.1    ,سورس 689517Sanstitre2.png
،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png

هنا سأشرح البرنامج بسيط ولا يحتاج الى شرح :

عمل البرنامج هوا تشفير النصوص التي تقوم أنت بأدخالها وتشفيرها.
،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png
كل ما عليك فعله هوا أن تدخل النص المراد أدخاله في Input الاولى من تم تضغط على الزر Crypte Data
،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png
ولفك تشفير النص قم بنسخ كود الهيكس وأدخله الى Input 3 التي هيا في المجموعة Decrypte
تم أضغط على الزر المسمى Décrypte Data
،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png
الان نأتي الى صورة من جوزء من السورس كود :


،Autoit V3 ,Crypter Data V1.1    ,سورس 267993Sours.png

،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png
ملاحضة لغة البرمجة : Autoit V3
،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png
أخوتي مكان وضعي للملف التنفيذي اي البرنامج بأمتداد exe

قررت وضع السورس كود كاملا ليستفيد الاعضاء أكثر

وخاصتا بسبب ان حاسوبي مفيرس :29:
،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png
هنا السورس كود كاملا :

كود:

#cs ----------------------------------------------------------------------------

AutoIt Version: 1.1.0.0

Author: MII3A_H4CK3R

Script Function: Crypter Data

Template AutoIt script.

#ce ----------------------------------------------------------------------------

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\fam fam fam\Icon\djack.ICO
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvo ker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include
#include
#include
#include
#include
#Region ### START Koda GUI section ### Form=D:\M!I3A-Soft\All Prger\Forms\Crypter Data.kxf
$Form1 = GUICreate("Crypter Data V1.1 By MII3A_H4CK3R", 322, 530, 192, 124)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic(@ScriptDir&*/5"\stock-vector-yellow-and-black-biohazard-warning-sign-vector-11226514.jpg", -9, -59, 340, 276)
$Group1 = GUICtrlCreateGroup(" ", 8, 264, 305, 113)
$Button1 = GUICtrlCreateBuلقثيtton("Crypt Data", 128, 344, 75, 25)
$Input1 = GUICtrlCreateInput("", 16, 280, 289, 21)
$Input2 = GUICtrlCreateInput("", 16, 312, 289, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" ", 8, 400, 305, 113)
$Input3 = GUICtrlCrea4569teInput("", 16, 416, 289, 21)
$Input4 = GUICtrlCreateInput("", 16, 448, 289, 21)
$Button2 = GUICtrlCreateButton("Décrypt Data", 128, 480, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic2 = GUICtrlCreatePic("D:\M!I3A-Soft\fam fam fam\Mini\icon_padlock.gif", 16, 256, 17, 17)
$Pic3 = GUICtrlCreatePic("D:\M!I3A-Soft\fam fam fam\Mini\icon_key.gif", 16, 392, 17, 17)
$Label1 = GUICtrlCreateLabel("Crypter Data V1.1 By MII3A_H4CK3R", 63, 240, 215, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1

Local $String = GUICtrlRead($Input1)

Local $Hex =Error($String)

GUICtrlSetData($Input2,$Hex)

case $Button2

Local $string2 = GUICtrlRead($Input3)

Local $Hex2= Error($String2)

GUICtrlSetData($Input4,$Hex2)

EndSwitch

WEnd

#cs ----------------------------------------------------------------------------

AutoIt Version: 1.1.0.0

Author: MII3A_H4CK3R

Script Function: Crypter Data

Template AutoIt script.

#ce ----------------------------------------------------------------------------
،Autoit V3 ,Crypter Data V1.1    ,سورس iTS30053.png
للامانة الموضوع منقول للافادة
:SnipeR (75):



KAutoit V3 1 +







التعديل الأخير تم بواسطة Virus!Clown ; 11-08-2012 الساعة 03:51 PM
  رد مع اقتباس
 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47