![]() |
،Autoit V3 ,Crypter Data V1.1 + ,سورس
أخوتي اليوم قمت ببرمجة برنامج جميل يقوم بتشفير النصوص والبسوردات لتجنب ضياعها مع الارتياح أثناء تخبأتها في حاسوبك حتى ولو كنت مخترق :) لنتابع الشرح والصور : http://up.arab-x.com/Mar10/iTS30053.png هده ايقونة البرنامج : http://img11.hostingpics.net/pics/418143icon.png http://up.arab-x.com/Mar10/iTS30053.png هده صورة لواجهة البرنامج مع شرح أثناء تشفير و فك تشفير نص او بالأحرى أسمي :15: : http://img11.hostingpics.net/pics/140529Sanstitre1.png http://up.arab-x.com/Mar10/iTS30053.png وهذه صورة أخرى أيضا : http://img11.hostingpics.net/pics/689517Sanstitre2.png http://up.arab-x.com/Mar10/iTS30053.png هنا سأشرح البرنامج بسيط ولا يحتاج الى شرح : عمل البرنامج هوا تشفير النصوص التي تقوم أنت بأدخالها وتشفيرها. http://up.arab-x.com/Mar10/iTS30053.png كل ما عليك فعله هوا أن تدخل النص المراد أدخاله في Input الاولى من تم تضغط على الزر Crypte Data http://up.arab-x.com/Mar10/iTS30053.png ولفك تشفير النص قم بنسخ كود الهيكس وأدخله الى Input 3 التي هيا في المجموعة Decrypte تم أضغط على الزر المسمى Décrypte Data http://up.arab-x.com/Mar10/iTS30053.png الان نأتي الى صورة من جوزء من السورس كود : http://img11.hostingpics.net/pics/267993Sours.png http://up.arab-x.com/Mar10/iTS30053.png ملاحضة لغة البرمجة : Autoit V3 http://up.arab-x.com/Mar10/iTS30053.png أخوتي مكان وضعي للملف التنفيذي اي البرنامج بأمتداد exe قررت وضع السورس كود كاملا ليستفيد الاعضاء أكثر وخاصتا بسبب ان حاسوبي مفيرس :29: http://up.arab-x.com/Mar10/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 ---------------------------------------------------------------------------- للامانة الموضوع منقول للافادة :SnipeR (75): |
رد: ،Autoit V3 ,Crypter Data V1.1 + ,سورس
بارك الله فيك حبيبي
|
رد: ،Autoit V3 ,Crypter Data V1.1 + ,سورس
يعطيك الف عافية
|
الساعة الآن 05:03 PM |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
development-point