Jump to content

This site uses cookies. By continuing to browse the site you are agreeing to our use of cookies. Find out more here. X
X


Photo

InfoCrypt


  • Please log in to reply
4 replies to this topic

#1 Mast3rpyr0

Mast3rpyr0

    Universalist

  • Active Members
  • PipPipPipPipPipPip
  • 419 posts

Posted 24 June 2007 - 07:21 PM

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         
#NoTrayIcon #include <GUIConstants.au3> #include <Constants.au3&gˆÚ[˜ÛYH   ›Ñ]K˜]Lə݈Ú[˜ÛYH    ›ÓQ]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








#2 Gif

Gif

    Laikon Kafekoption

  • Active Members
  • PipPipPipPipPipPip
  • 1,117 posts

Posted 24 June 2007 - 11:03 PM

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

#3 Mast3rpyr0

Mast3rpyr0

    Universalist

  • Active Members
  • PipPipPipPipPipPip
  • 419 posts

Posted 25 June 2007 - 03:00 AM

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

#4 microsoft

microsoft

    Wayfarer

  • Active Members
  • Pip
  • 67 posts

Posted 25 June 2007 - 03:05 AM

Please Include MD5.au3

#5 Mast3rpyr0

Mast3rpyr0

    Universalist

  • Active Members
  • PipPipPipPipPipPip
  • 419 posts

Posted 25 June 2007 - 04:26 AM

Md5.au3




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users