Sign in to follow this  
Followers 0

InfoCrypt

5 posts in this topic

Posted

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.

#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ÒuT7&VFRgV÷Cµ6WGWgV÷C²ÂC#Â#¢b33c´Æövå2ÒuT7G&ÄÉÑA¥¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈíMѽÉÀäÈí%
$¹©ÁÅÕ½Ðì°ÄàÀ°ÄÔ°Ôä 56)
GUICtrlCreateLabel("User Name:", 60, 85)
Global $userIDWÈHÕRPÝÜX]R[]
    ][ÝÉ][ÝËMLJBÕRPÝÜX]SXVÂgV÷Cµ77v÷&C¢gV÷C²ÂcÂR¤vÆö&Âb33c·74CòÒuT7G&Ä7&VFTçÐ ÅÕ½ÐìÅÕ½Ðì°ÄÐÀ°ÄÄÀ°ÈÀÀ°ÈÀ°ÀÌØíM}AMM]=I¤)U%
Ñɱ
ÉÑ1° Åot;WinRAR EXE:", 60, 145)
Global $WinRAR_ = GUICtrlCreateInput(&q[ÝÉ][ÝËMMLJBÌÍÐÝÜÙHHÕRPÝÜX]P]Û ][Ý'&÷w6RgV÷C²Â3SÂCÂSÂ#¢b33cµ6fRÒuT7G&Ä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¤uT7G&Ä7&VFTÆ&VÂgV÷CµW6W"æÖRgÕ½Ðì°ÜÀ°àÀ°ØÀ°ÈÀ¤)±½°ÀÌØíÕÍÉ%|ôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ð, 140, 80, 200, 20, -1)
GUICtrlCreateLabel("Password", 70, 110, 6
BÛØ[  ÌÍÜÜÒQÈHÕRPÝÜX]R[]
    ][ÝÉ][ÝËMLLÂ#Âb33c´U5õ55tõ$B¢b33c´ÆövâÒuT7G&Ä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çRgV÷C´÷Föç2gV÷C²¢b33c´FRÒuT7G&Ä7&VFTÖVçTFVÒgV÷C´ÅÕ½Ðì°ÀÌØí=ÁÑ¥½¹Ì¤(ÀÌØí=Á¸ôU%
Ñɱ
ÉÑ5¹Õ%Ñ´ ÅÕ½Ðí=Á¸ÅÕ½Ð, $Options)
$ChUsI = GUICtrlCreateMenuItem("Change Info&quotË  ÌÍÓÜ[ÛÊBÌÍÒYLHÕRPÝÜX]P]Û   ][ÝÈYH    ][ÝË
ÂCRÂSÂS¢b33c´÷Vã"ÒuT7G&Ä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&VBgV÷C´´ÄÒb3#µ4ôQ]IÀäÈí%¹½
ÉåÁÐÅÕ½Ðì°ÅÕ½ÐíÉÉÁÑ ÅÕ½Ðì¤)U%MÑMÑÑ¡M]}M!=°ÀÌ;LoginWindow)
EndIf


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
BPØÙH ÌÍÑÕRWÑUSÐÓÔÑBBBQ^]ÛÜBPØÙH ÌÍÑ^]BBQ^]BPØÙH    3c´'&÷w6P b33c´'&÷w6W"ÒfÆT÷VäFÆörgV÷Cµvå$"URgV÷C²Â&öw&µ¥±Í¥È°ÅÕ½Ðía ¨¹á¤ÅÕ½Ðì¤($$%U%
ÑɱMÑÑ ÀÌØí]¥¹II|°ÀÌØírowser)
        Case $Hide
            Hide()
        Case $Hide2
            Hide()
        Case &#0ÍÓÜ[BBSÜ[
BBPØÙH    ÌÍÓÜ[BBSÜ[
BBPØÙH    ÌÍÐÚÒBBB]Ú[ÝÜ 66Rb33c´6W4  væF÷w3 66Rb33c´Æövà b33c¶FFÒuT
ÑɱI ÀÌØíÕÍÉ%|¤($$$ÀÌØíÑÈôU%
ÑɱI ÀÌØíÁÍÍ%|¤($$%½1½in()
        Case $Save
            $data3 = GUICtrlRead($userID1_)
            &#03Ù]MHÕRPÝXY
    ÌÍÜÜÒQWÊBBBIÌÍÜHÕRPÝXY
    ÌÍÕÚ[%ò 6fR 66Rb33c´6æ6VÀ væF÷w3" VæE7vF6 tVæ@  ¤gVæ2Fô½¥¸ ¤(%1½°ÀÌØíÍѽÉUÍÈôII ÅÕ½Ðí!-14ÀäÈíM=Q]IÀäÈí%¹½rypt", "ICIDu")
    Local $storedPass = RegRead("HKLMÌLÔÓÑÐTIÌLÒ[ÐÜ    ][ÝË  ][ÝÒPÒQ  ][ÝÊBRY   ÌÍÜÝÜYÙÒgV÷C²gV÷C²÷"b33c·7F÷&VE72ÒgV÷C²gV÷C²FVà ×6t&÷ÂgV÷C´WɽÈÅÕ½Ðì°ÅÕ½Ðí¸ÉɽȽÕÉÝ¡¥±¡­¥¹Ñ¡É¥¹Ñ¥±Ìå½Ô¹ÑÉ. Please reinstall InfoCrypt")
    Else
        $data = MD5($data &amÈ ÌÍÜØ[
BBIÌÍÙ]LHQ
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][ÝÊBBQ[ÙBBB]Ú[ÝÜÌÊ
BBBSÜ[PÑ

BBQ[YBQ[YQ[[Â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È   ÌÍÜØ[
BBIÌÍÙ]MHQ
J   ÌÍÜØ[   [È ÌÍÙ]M    [È Ìc·6ÇB &Vuw&FRgV÷C´´ÄÒb3#µ4ôeEt$Rb3#´æfô7'BgV÷C²ÂgV÷C´4ÔÅÕ½Ðì°ÅÕ½ÐíI}MhÅÕ½Ðì°ÀÌØíÑ̤($%I]É¥Ñ ÅÕ½Ðí!-14ÀäÈíM=Q]RE\InfoCrypt", "ICIDp", "REG_SZ", $data4BBTYÕÜ]J ][ÝÒÓIÌLÔÓÑÐTIÌLÒ[ÐÜ    ][ÝË  ][ÝÜ] ]÷C²ÂgV÷Cµ$Tuõ5¢gV÷C²Âb33c·&" &Vuw&FRgV÷C´´ÄÒb3#µ4ôeEt$Rb3í%¹½
ÉåÁÐÅÕ½Ðì°ÅÕ½ÐíMÑÕÀÅÕ½Ðì°ÅÕ½ÐíI}]=IÅÕ½Ðì°ÅÕ½ÐìÄÅÕ½Ðì¤(   FileRegister("icd", @ScriptDir & "\InfoCrypt.exe&q[ÝË ][ÝÓÜ[PÑ    ][ÝË  ][ÝÒ[ÐÜ]H[I][ÝÊBBQÛØ[   ÌÍvå$%FÒ&Vu&VBgV÷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ÌWBNÑÛØ[ 33cµvå$%FÒ&Vu&VBgV÷C´´ÄÒb3#µ4ôeEt$Rb3#´æfô7'BgV÷C²Âg½ÐíÉÉÁÑ ÅÕ½Ðì¤(%IÕ¸ ÀÌØí]¥¹IIAÑ µÀìÅÕ½ÐìÅÕ½ÐìµÀìÀÌØí½¥e)
    EndIf
EndFunc

Func Hide()
    $nFile = FileOpenDialog("Open FilI][ÝËÚÝÜ  ][ÝÕÚ[T[È

I][ÝÊBRY  ÌÍÛ[H    fwC²gV÷C²gV÷C²FVà FÒb33c·7¤G&fRÂb33c·7¤F"Âb33c·7¤dæÖRÂb33íÍéáÐ($ÀÌØí¹¥ÈôMÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈíMѽÉÅÕ½Ðì($ÀÌØí¹¥±È= _PathSplit($nFile, $szDrive, $szDir, $szFName, $Þ^
BQ[S[ÝJ    ÌÍÛ[K    ÌÍÛBIÌÍÛ[HH   ÌÍÛ  [È V÷C²b3#²gV÷C²fײb33c¶äfÆS%³5Òfײb33c¶äfÆS%³EÐ b33c¶ä4BÒÅÕ½Ðí%
|ÅÕ½ÐìµÀì5=8µÀì5dµÀìeHµÀì!=UHµÀì5%8p; @SEC & ".icd"
    $nFile3 = _PathSplit($nFile, &#03ÜÞ]K ÌÍÜÞ    ÌÍÜÞ[YK ÌÍÜÞ^
BWÔ[ÜÊ   ][ÝØÛÜ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  ÌÍÛ[JBQ[ÙBQ[Y[[Â[ÈÜ[
BIÌÍÛÜ[[HHÆT÷VäFÆörgV÷C´6ö÷6Râ4BfÆRFò÷VâgV÷C²Â67&DF"fײgV÷CÀäÈíMѽÉÀäÈìÅÕ½Ðì°ÅÕ½Ðí%¹½
ÉåÁÐÑ¥± ¨¹%
¤ÅÕ½Ðì¤(%%ÀÌØopenFile <> "" Then
    Run($WinRARPath & " &quoÈ  [È ÌÍÛÜ[[JBQ[ÙBQ[Y[[Â[ÈÚ[ÝÜÌJ
BRYÚ[XÝ]gV÷C´ÆövâgV÷C²FVà uT6WE7FFR5uôDRÂb33c´ÆövåvæF÷r VÇ6Tb]¥¹Ñ¥Ù ÅÕ½Ðí%¹½
ÉåÁÐÅÕ½Ðì¤Q¡¸($%U%MÑMÑÑ¡M]}!%°ÀÌØí5¥¹]¥¹ow)
    Else
    EndIf
    GUISetState(@SW_SHOW, $SetupWindow)
EndFunc

Func wiÝÜÌ
BRYÚ[XÝ]J ][ÝÔÙ]   ][ÝÊH[BQÕRTÙ]Ý]JÕ×ÒQK   Ì͵6WGWvæF÷r VÇ6Tbvä7FfRgV÷C´æfô7'BgV÷C²FVà uT6WE7FFR]}!%°ÀÌØí5¥¹]¥¹½Ü¤(%±Í(%¹%(%U%MÑMÑÑ¡M]}M!=°ÀÌØí1½¥¹]¥dow)
EndFunc

Func windows3()
    If WinActive("Login") Then
        GUISeÝ]JÕ×ÒQK   ÌÍÓÙÚ[Ú[ÝÊBQ[ÙRYÚ[]J   ][ÝÒ[ÐÜ ][ÝÊFVà uT6WE7FFR5uôDRÂb33cµ6WGWvæF÷r VÇ6P VæD` uT6WE7FFRM]}M!=°ÀÌØí5¥¹]¥¹½Ü¤)¹Õ¹()Õ¹¥±I¥ÍÑÈ ÀÌØíáаÀÌØíµ°$verb, $desc = "")
        RegWrite("HKCR\." &[È  ÌÍÙ^ ][ÝÉ][ÝË    ][ÝÔQ×ÔÖ][ÝË ÌÍÙ^ [È ][ÝÙ[gV÷C² b33c¶Æö2Òb33c¶WBfײgV÷C¶fÆRgV÷C° &Vuw&FRgV÷C´´5ÀäÈìÅÕ½ÐìµÀìÀÌØí±½°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐíI}MhÅÕ½Ðì°ÀÌØíͤ     RegWrite("HKCR\" & $loc & "\shell&q[ÝË    ][ÝÉ][ÝË    ][ÝÔQ×ÔÖ][ÝË ÌÍÝBBTYÕÜ]J    ][ÝÒÐÔÌ#²gV÷C²fײb33c¶Æö2fײgV÷C²b3#·6VÆÂb3#²gV÷C²fײb33c·fɵÀìÅÕ½ÐìÀäÈí½µµ¹ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐíI}MhÅÕ½Ðì°ÀÌØcmd)
EndFunc

Func MyErrFunc() ; JdeBs Custom Error Function
   $HexNuXZ^
    ÌÍÛÓ^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

Share this post


Link to post
Share on other sites



Posted

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

Share this post


Link to post
Share on other sites

Posted

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

Share this post


Link to post
Share on other sites

Posted

Please Include MD5.au3

Share this post


Link to post
Share on other sites

Posted

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0