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

[‏windows 8]

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

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

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



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






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

وهذه صورة أخرى أيضا :





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

عمل البرنامج هوا تشفير النصوص التي تقوم أنت بأدخالها وتشفيرها.

كل ما عليك فعله هوا أن تدخل النص المراد أدخاله في Input الاولى من تم تضغط على الزر Crypte Data

ولفك تشفير النص قم بنسخ كود الهيكس وأدخله الى Input 3 التي هيا في المجموعة Decrypte
تم أضغط على الزر المسمى Décrypte Data

الان نأتي الى صورة من جوزء من السورس كود :





ملاحضة لغة البرمجة : Autoit V3

أخوتي مكان وضعي للملف التنفيذي اي البرنامج بأمتداد exe

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

وخاصتا بسبب ان حاسوبي مفيرس :29:

هنا السورس كود كاملا :

كود:

#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):

المصدر: development-point - للمزيد تابع : قسم إختراق الأجـهـزه والأيـمـيـلات

---

KAutoit V3 1 +

[Virus!Clown]

بارك الله فيك حبيبي

[DR.ZA3]

يعطيك الف عافية