4 replies to this topic

[Mast3rpyr0]

Just a little something I made to expand my knowledge of Autoit, InfoCrypt is a program that uses the Dos copy command to hide a File inside another file. InfoCrypt does NOT provide ACTUAL encryption as the files it creates can be opened with WinRAR directly. Running and ICD(InfoCrypt Data File) will open InfoCrypt for user login and after authentication will open the file with WinRAR(Required for use). I tried to add in as many function as I thought necessary.

AutoIt        expandcollapse  popup

#NoTrayIcon
#include <GUIConstants.au3>
#include <Constants.au3&gˆÚ[˜ÛYH   ›Ñ]K˜]Lə݈Ú[˜ÛYH    ›ÓQ
K˜]Lə݈Ò[˜ÛYH ›Ô›ØÙܢS2fwC°¢6–æ6ÇVFRfÇC¶f–ÆRæS2fwC°¢6–æ6ÇVFRfÇC¶'&’æS2fwC°¢4–æ6ÇVFRfÇC´Ö—Œ¹…Ô̙Ðì((˜ŒÀÌØí½5åÉɽȀô=‰©ٕ¹Ð ™ÅÕ½ÐíÕѽ%йÉɽșÅÕ½Ð찙ÅÕ½Ðí5åÉÉÕc") ; Install a custom error handler

Global $pSalt = "©5/@C›ʉW™̙I˜[êIœ][Ý‚ŽÔÙ]‘Ûؘ[  ˆÌ͎М›ÝÜوH   œ][Ýɜ][݉ˆÌ͎ÔÙGWv–æF÷rÒuT”7&VFR‚gV÷Cµ6WGWgV÷C²ÂC#Â#ƒ¢b33c´Æöv–å–2ÒuT”7G&Äɕ…Ñ•A¥Œ¡
MÉ¥ÁѥȀ™…µÀ쀙ÅÕ½Ð옌ÀäÈíMѽɔ˜ŒÀäÈí%
$¹©Áœ™ÅÕ½Ð찀ÄàÀ°€ÄÔ°€Ôä 56)
GUICtrlCreateLabel("User Name:", 60, 85)
Global $userIDWÈHÕRPÝ›ܙX]R[œ]
    œ][Ýɜ][ÝËMŒŒLJB‘ÕRPÝ›ܙX]SXV‚gV÷Cµ77v÷&C¢gV÷C²ÂcÂR¤vÆö&Âb33c·74”CòÒuT”7G&Ä7&VFT–çÐ ™ÅÕ½Ðì™ÅÕ½Ð찀ÄÐÀ°€ÄÄÀ°€ÈÀÀ°€ÈÀ°€˜ŒÀÌØíM}AMM]=I¤)U%
Ñɱ
ɕ…Ñ•1…‰•° ™Åot;WinRAR EXE:", 60, 145)
Global $WinRAR_ = GUICtrlCreateInput(&q[Ýɜ][ÝËMMŒŒLJB‰ˆÌ͎М›ÝÜÙHHÕRPÝ›ܙX]P]ۊ  œ][Ý'&÷w6RgV÷C²Â3SÂCÂSÂ#¢b33cµ6fRÒuT”7G&Ä7&VFT'WGFöâ‚gV÷C²…Ù”€€™ÅÕ½Ð찀ÄÄÀ°€ÄàÀ°€ÄÀÀ¤(˜ŒÀÌØí
…¹•°€ôU%
Ñɱ
ɕ…Ñ•  ÕÑѽ¸ ™ÅÕ½Ð쀁
…¹l  ", 220, 180, 100)


;Login
$LoginWindow = GUICreate("Logi‰œ][ÝË
ŒŽ
B‰ˆÌ͎ÓÙÚ[”XÈHÕRPÝ›ܙX]TXÊØܚˆ    ˜[È  œ][Ýb3“#´Æöv–âæ§rgV÷C²ÂƒÂRÂS’ÂSb¤uT”7G&Ä7&VFTÆ&V‚gV÷CµW6W"æÖRgÕ½Ð찀ÜÀ°€àÀ°€ØÀ°€ÈÀ¤)±½‰…°€˜ŒÀÌØíÕ͕É%|€ôU%
Ñɱ
ɕ…Ñ•%¹ÁÕÐ ™ÅÕ½Ðì™ÅÕ½Ð, 140, 80, 200, 20, -1)
GUICtrlCreateLabel("Password", 70, 110, 6Œ
B‘Ûؘ[    ˆÌ͎ÜÜÒQÈHÕRPÝ›ܙX]R[œ]
    œ][Ýɜ][ÝËMLLŒÂ#Âb33c´U5õ55tõ$B¢b33c´Æöv–âÒuT”7G&Ä7&VFT'WGFöâ‚gV÷C²Æöv–âgÕ½Ð찀ÄÔÔ°€ÄØÀ°€ÄÀÀ¤(((í5…¥¸(˜ŒÀÌØí5…¥¹]¥¹‘½Ü€ôÕ¥
ɕ…Ñ” ™ÅÕ½Ðí%¹™½
ÉåÁЙÅot;, 400, 200)
$File = GUICtrlCreateMenu("File")
$Exit HÕRPÝ›ܙX]SY[R][J œ][ÝÑ^]    œ][ÝË  ˆÌ͎њ[JB‰ˆÌ͎ÓÜ[ۜÈHÕRPÝÄ7&VFTÖVçR‚gV÷C´÷F–öç2gV÷C²¢b33c´†–FRÒuT”7G&Ä7&VFTÖVçT—FV҂gV÷C´†‘”™ÅÕ½Ð찀˜ŒÀÌØí=ÁÑ¥½¹Ì¤(˜ŒÀÌØí=Á•¸€ôU%
Ñɱ
ɕ…Ñ•5•¹Õ%ѕ´ ™ÅÕ½Ðí=Á•¸™ÅÕ½Ð, $Options)
$ChUsI = GUICtrlCreateMenuItem("Change Info&quotË ˆÌ͎ÓÜ[ۜÊB‰ˆÌ͎ÒYLˆHÕRPÝ›ܙX]P]ۊ    œ][ÝÈYH    œ][ÝË
ÂCRÂSÂS¢b33c´÷Vã"ÒuT”7G&Ä7&VFT'WGFöâ‚gV÷C²÷VâgV÷C²Â#ÂÐÔ°€ÄÔÀ°€ÔÀ¤(˜ŒÀÌØí
¡UÍ$ȀôU%
Ñɱ
ɕ…Ñ•  ÕÑѽ¸ ™ÅÕ½Ð쀁
¡…¹”%¹™¼€€™ÅÕ½Ðì 125, 115, 150, 25)

;Show Window
If RegRead("HKLM\SOFTWARE\[™›Ðܞ  œ][ÝË  œ][ÝÔÙ]   œ][ÝÊH  ›əÝÈH[‚‚QÕRTÙ]Ý]JÕ×ÔÒÕË  33cµ6WGWv–æF÷r¤VÇ6P¤vÆö&Âb33cµv–å$%F‚Ò&Vu&VB‚gV÷C´„´ÄÒb3“#µ4ôQ]I˜ŒÀäÈí%¹™½
ÉåÁЙÅÕ½Ð찀™ÅÕ½ÐíɅÉÁ…Ñ ™ÅÕ½Ðì¤)U%M•ÑMхє¡
M]}M!=°€˜ŒÀÌ;LoginWindow)
EndIf


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
BPØÙH ˆÌ͎ÑÕRWÑU‘S•ÐÓÔÑB‚BBQ^]ÛÜ‚BPØÙH  ˆÌ͎Ñ^]‚BBQ^]‚BPØÙH   ˆ3c´'&÷w6P ’b33c´'&÷w6W"Òf–ÆT÷VäF–Æör‚gV÷Cµv–å$"U„RgV÷C²Â&öw&µ¥±•Í¥È°€™ÅÕ½Ðía€ ¨¹•á”¤™ÅÕ½Ðì¤($$%U%
ÑɱM•Ñ…Ñ„ ˜ŒÀÌØí]¥¹II|°€˜ŒÀÌØírowser)
        Case $Hide
            Hide()
        Case $Hide2
            Hide()
        Case &#0͎ÓÜ[‚‚BBSÜ[Š
B‚BPØÙH  ˆÌ͎ÓÜ[Œ‚‚BBSÜ[Š
B‚BPØÙH  ˆÌ͎ÐÚÒB‚BB]Ú[™ÝÜ‚ ”66Rb33c´6…W4“  —v–æF÷w3‚ ”66Rb33c´Æöv–à ’b33c¶FFÒuT
ÑɱI•… ˜ŒÀÌØíÕ͕É%|¤($$$˜ŒÀÌØ푅фȀôU%
ÑɱI•… ˜ŒÀÌØíÁ…ÍÍ%|¤($$%‘½1½in()
        Case $Save
            $data3 = GUICtrlRead($userID1_)
            &#03ŽÙ]MHÕRPÝ›™XY
    ˆÌ͎ÜÜÒQWÊB‚BBIˆÌ͎ܘˆHÕRPÝ›™XY
    ˆÌ͎ÕÚ[”%ò •6fR‚ ”66Rb33c´6æ6VÀ —v–æF÷w3"‚ ”VæE7v—F6€ •tVæ@  ¤gVæ2Fô½¥¸ ¤(%1½…°€˜ŒÀÌØíÍѽɕ‘U͕ȀôI•I•… ™ÅÕ½Ðí!-14˜ŒÀäÈíM=Q]I˜ŒÀäÈí%¹™½rypt", "ICIDu")
    Local $storedPass = RegRead("HKLMˆÌLŽÔÓѕÐT‘IˆÌLŽÒ[™›Ðܞ  œ][ÝË  œ][ÝÒPÒQ  œ][ÝÊB‚RYˆ    ˆÌ͎ÜÝܙYÙÒgV÷C²gV÷C²÷"b33c·7F÷&VE72ÒgV÷C²gV÷C²F†Và ”×6t&÷‚ƒÂgV÷C´WɽșÅÕ½Ð찀™ÅÕ½Ðí¸Éɽȁ½ÕɕÝ¡¥±”¡•­¥¹œÑ¡”É•‘¥¹Ñ¥…±Ìå½Ô•¹Ñ•É•. Please reinstall InfoCrypt")
    Else
        $data = MD5($data &amÈ    ˆÌ͎ÜØ[
B‚BIˆÌ͎Ù]LˆHQ
J   ˆÌ͎ÜØ[   ˜[È  ˆÌ͎Ù]Lˆ   ˜[È  ˆÌc·6ÇB ”–bb33c·7F÷&VEW6W"fÇC²fwC²b33c¶FF÷"b33c·7F÷&VE72fÇC²Ð쀘ŒÀÌØ푅фȁQ¡•¸($$%5͝   ½à À°€™ÅÕ½ÐíÉɽșÅÕ½Ð찀™ÅÕ½ÐíQ¡”¥¹™½Éµ…Ñ¥½¸ou supplied did not match the information in the Database. Please try again‰œ][ÝÊB‚BQ[ÙB‚BB]Ú[™ÝÜÌÊ
B‚BBSÜ[’PÑ

B‚BQ[™Y‚‚BQ[™Y‚‚Q[™[˜Â‚B‘[˜ÈfR‚ ”–bb33c¶FF2ÒgV÷C²gV÷C²÷"b33c¶FFBÒgV÷C²gV÷C²÷"b33cɅȀô€™ÅÕ½Ðì™ÅÕ½ÐìQ¡•¸($%5͝    ½à À°€™ÅÕ½ÐíÉɽșÅÕ½Ð찀™ÅÕ½ÐíA±•…Í”™¥±°¥¸information in all fields.")
    Else
        $data3 = MD5($data3 &amÈ  ˆÌ͎ÜØ[
B‚BIˆÌ͎Ù]MHQ
J   ˆÌ͎ÜØ[   ˜[È  ˆÌ͎Ù]M    ˜[È  ˆÌc·6ÇB •&Vuw&—FR‚gV÷C´„´ÄÒb3“#µ4ôeEt$Rb3“#´–æfô7'—BgV÷C²ÂgV÷C´”4ԙÅÕ½Ð찀™ÅÕ½ÐíI}Mh™ÅÕ½Ð찀˜ŒÀÌØ푅ф̤($%I•]ɥє ™ÅÕ½Ðí!-14˜ŒÀäÈíM=Q]RE\InfoCrypt", "ICIDp", "REG_SZ", $data4B‚BT™YÕܚ]J   œ][ÝÒÓIˆÌLŽÔÓѕÐT‘IˆÌLŽÒ[™›Ðܞ œ][ÝË  œ][Ýܘœ]    œ]÷C²ÂgV÷Cµ$Tuõ5¢gV÷C²Âb33c·&" •&Vuw&—FR‚gV÷C´„´ÄÒb3“#µ4ôeEt$Rb3“í%¹™½
ÉåÁЙÅÕ½Ð찀™ÅÕ½ÐíM•ÑÕÀ™ÅÕ½Ð찀™ÅÕ½ÐíI}]=I™ÅÕ½Ð찀™ÅÕ½ÐìęÅÕ½Ðì¤( FileRegister("icd", @ScriptDir & "\InfoCrypt.exe&q[ÝË   œ][ÝÓÜ[ˆPÑ œ][ÝË  œ][ÝÒ[™›Ðܞ]Hš[Iœ][ÝÊB‚BQÛؘ[    ˆÌ͎v–å$%F‚Ò&Vu&VB‚gV÷C´„´ÄÒb3“#µ4ôeEt$Rb3“#´–æfô7'—BgV÷C²ÂgV÷C·&ÉÁ…Ñ ™ÅÕ½Ðì¤($%5͝    ½à À°€™ÅÕ½Ðí½¹”™ÅÕ½Ð찀™ÅÕ½Ðí9•ÜÕ͕ȁ¡…́‰••¸É•…Ñ•¸You may now login")
        windows2()
    EndIf
EndFunc

Func OpenICD()
    If &#͎ØÛY[™VÌH   ›əÝÈ[‚ˆ  ˆÌ͎Ûњ[HH    ˆÌ͎ØÛY[™VÌWB‚NÑÛؘ[  33cµv–å$%F‚Ò&Vu&VB‚gV÷C´„´ÄÒb3“#µ4ôeEt$Rb3“#´–æfô7'—BgV÷C²Âg½ÐíɅÉÁ…Ñ ™ÅÕ½Ðì¤(%IÕ¸ ˜ŒÀÌØí]¥¹IIA…Ñ €™…µÀ쀙ÅÕ½Ð쀙ÅÕ½Ð쀙…µÀ쀘ŒÀÌØí½¥e)
    EndIf
EndFunc

Func Hide()
    $nFile = FileOpenDialog("Open FilIœ][ÝËÚÝÜ‹ œ][ÝÕÚ[”Tˆš[È

‹œ˜ŠIœ][ÝÊB‚RYˆ   ˆÌ͎ۑš[H  ›fwC²gV÷C²gV÷C²F†Và ”F–Òb33c·7¤G&—fRÂb33c·7¤F—"Âb33c·7¤dæÖRÂb33íÍéáÐ($˜ŒÀÌØí¹¥È€ô
MÉ¥ÁѥȀ™…µÀ쀙ÅÕ½Ð옌ÀäÈíMѽɔ™ÅÕ½Ðì($˜ŒÀÌØí¹¥±”È= _PathSplit($nFile, $szDrive, $szDir, $szFName, $ޑ^
B‚Qš[S[ݙJ ˆÌ͎ۑš[K ˆÌ͎ۑŠB‚IˆÌ͎ۑš[HH    ˆÌ͎ۑˆ    ˜[È  œV÷C²b3“#²gV÷C²fײb33c¶äf–ÆS%³5Òfײb33c¶äf–ÆS%³EÐ ’b33c¶ä”4BÒÅÕ½Ðí%
|™ÅÕ½Ð쀙…µÀì
5=8€™…µÀì
5d€™…µÀì
eH€™…µÀì
!=UH€™…µÀì
5%8€™…p; @SEC & ".icd"
    $nFile3 = _PathSplit($nFile, &#03ŽÜޑš]™K   ˆÌ͎Üޑ‹ ˆÌ͎Üޑ“˜[YK ˆÌ͎Üޑ^
B‚Wԝ[‘ÜÊ    œ][ÝØÛÜH؈    V÷C²fײb33c¶äF—"fײgV÷C²b3“#´”4’æ§r²gV÷C²fײb33c¶äF—"…µÀ쀙ÅÕ½Ð옌ÀäÈì™ÅÕ½Ð쀙…µÀ쀘ŒÀÌØí¹¥±”ÍlÍt€™…µÀ쀘ŒÀÌØí¹%±”ÍlÑt€™…µÀ쀙uot; " & $nDir & "\" & $nICD)
    FiQ[]J  ˆÌ͎ۑš[JB‚Q[ÙB‚Q[™Y‚‘[™[˜Â‚‘[˜ÈÜ[Š
B‚IˆÌ͎ÛÜ[‘š[HHšÆT÷VäF–Æör‚gV÷C´6†ö÷6Râ”4Bf–ÆRFò÷VâgV÷C²Â67&—DF—"fײgV÷C˜ŒÀäÈíMѽɔ˜ŒÀäÈì™ÅÕ½Ð찀™ÅÕ½Ðí%¹™½
ÉåÁЁ…Ñ„¥±”€ ¨¹%
¤™ÅÕ½Ðì¤(%%˜€˜ŒÀÌØopenFile <> "" Then
    Run($WinRARPath & " &quoÈ ˜[È  ˆÌ͎ÛÜ[‘š[JB‚Q[ÙB‚Q[™Y‚‘[™[˜Â‚‘[˜ÈÚ[™ÝÜÌJ
B‚RYˆÚ[XÝ]™‚gV÷C´Æöv–âgV÷C²’F†Và ”uT•6WE7FFR„5uô„”DRÂb33c´Æöv–åv–æF÷r ”VÇ6T–b]¥¹Ñ¥Ù” ™ÅÕ½Ðí%¹™½
ÉåÁЙÅÕ½Ð줁Q¡•¸($%U%M•ÑMхє¡
M]}!%°€˜ŒÀÌØí5…¥¹]¥¹ow)
    Else
    EndIf
    GUISetState(@SW_SHOW, $SetupWindow)
EndFunc

Func wi™ÝÜ̊
B‚RYˆÚ[XÝ]™J   œ][ÝÔÙ]   œ][ÝÊH[‚‚BQÕRTÙ]Ý]JÕ×ÒQK ˆÌ͵6WGWv–æF÷r ”VÇ6T–bv–ä7F—fR‚gV÷C´–æfô7'—BgV÷C²’F†Và ”uT•6WE7FFR„]}!%°€˜ŒÀÌØí5…¥¹]¥¹‘½Ü¤(%±Í”(%¹‘%˜(%U%M•ÑMхє¡
M]}M!=°€˜ŒÀÌØí1½¥¹]¥dow)
EndFunc

Func windows3()
    If WinActive("Login") Then
        GUISeÝ]JÕ×ÒQK   ˆÌ͎ÓÙÚ[•Ú[™ÝÊB‚Q[ÙRYˆÚ[XÝ]™J œ][ÝÒ[™›Ðܞ   œ][ÝÊF†Và ”uT•6WE7FFR„5uô„”DRÂb33cµ6WGWv–æF÷r ”VÇ6P ”VæD–` ”uT•6WE7FFR„M]}M!=°€˜ŒÀÌØí5…¥¹]¥¹‘½Ü¤)¹‘Õ¹Œ()Õ¹Œ¥±•I•¥ÍÑ•È ˜ŒÀÌØí•áа€˜ŒÀÌØ퍵°$verb, $desc = "")
        RegWrite("HKCR\." &[È ˆÌ͎Ù^ œ][Ýɜ][ÝË œ][ÝԑQ×Ô։œ][ÝË  ˆÌ͎Ù^  ˜[È  œ][Ýٚ[gV÷C² ’b33c¶Æö2Òb33c¶W‡BfײgV÷C¶f–ÆRgV÷C° •&Vuw&—FR‚gV÷C´„´5˜ŒÀäÈì™ÅÕ½Ð쀙…µÀ쀘ŒÀÌØí±½Œ°€™ÅÕ½Ðì™ÅÕ½Ð찀™ÅÕ½ÐíI}Mh™ÅÕ½Ð찀˜ŒÀÌØ푕͌¤     RegWrite("HKCR\" & $loc & "\shell&q[ÝË  œ][Ýɜ][ÝË œ][ÝԑQ×Ô։œ][ÝË  ˆÌ͎ݙ˜ŠB‚BT™YÕܚ]J  œ][ÝÒÐԉˆÌ“#²gV÷C²fײb33c¶Æö2fײgV÷C²b3“#·6†VÆÂb3“#²gV÷C²fײb33c·fɈ€™…µÀ쀙ÅÕ½Ð옌ÀäÈ퍽µµ…¹™ÅÕ½Ð찀™ÅÕ½Ðì™ÅÕ½Ð찀™ÅÕ½ÐíI}Mh™ÅÕ½Ð찀˜ŒÀÌØcmd)
EndFunc

Func MyErrFunc() ; JdeBs Custom Error Function
   $HexNuX™Z^
    ˆÌ͎ÛÓ^Qœ›Ü‹›[X™‹
BˆÙ؛Þ
  œ][Ýɜ][ÝË  œ][ÝÕÙH[˜ÙFVB4ôÒW'&÷"b333²gV÷C²fײ5$Äbfײð¢gV÷C´çVÖ&W¥Ì耙ÅÕ½Ð쀙…µÀ쀘ŒÀÌØí!•á9Õµ‰•È€™…µÀì

I1€™…µÀì|(€€€€€€€€€€€€€€€€™ÅÕ½ÐLinenbr is: " & $oMyError.scriptline  & @CRLF & _
    œ][ÝÑØܚ[ۈΈ    œ][ÝÈ   ˜[È  ˆÌ͎ÛÓ^Qœ›Ü‹™Øܚ[ۈfײ5$Äbfײð¢gV÷Cµv–æFW67&—F–öâ—3¢gV÷C²fײbÀÌØí½5åÉɽȹݥ¹‘•ÍÉ¥ÁÑ¥½¸€¤((€€M•ÑÉÉ½È Ä¤€ìÍ½µ•Ñ¡¥¹œÑ¼¡•¬™½ÈÝ¡•¸this function returns
Endfunc

[Gif]

nice but... #include <MD5.au3>?

[Mast3rpyr0]

its a UDF by SvenP. il get link when i get to a computer.

[microsoft]

Please Include MD5.au3

[Mast3rpyr0]

Md5.au3