42 replies to this topic

[dnsi]

Good For All Files!!!
Steps:
start it up.
select input and then the output.
input you offset.
press encrypt(or decrypt)
after a while the file comes out encypted!!!


 Shield.zip   174.41K   480 downloads

Edited by dnsi, 19 October 2006 - 12:19 AM.

[dnsi]

Oh and sorry i can't give the code i deleted that after this was complete.

[this-is-me]

Give us your passphrase and we will decompile it.

[dnsi]

I made it undecompilible.

[Manadar]

In that case. I have also written a virus.. I mean, a file encryption system. I will post it shortly

[dnsi]

wt... You check it with any virus scanner

[dnsi]

Ill give you the encrypted and the decrypted file & the screen shot:

Attached Thumbnails

• 

Attached Files

•  Examples.zip   433bytes   143 downloads

Edited by dnsi, 19 October 2006 - 11:19 PM.

[SmOke_N]

Oh and sorry i can't give the code i deleted that after this was complete.

Here you go:

AutoIt        expandcollapse  popup

#include <guiconstants.au3>
$FILE1 = FileOpenDialog("Choose Input Path", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "All Files(*.*)", 3)
$FILE2 = FileSaveDialog("Choose Output Path", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "All Files(*.*)", 18)
$INTERFACE = GUICreate("Electric Shield", 307, 170)
$out1 = GUICtrlCreateInput("", 104, 80, 193, 21)
GUICtrlSetData($out1,$FILE2)
GUICtrlCreateLabel("InputFile:", 16, 8)
$Decrypt1 = GUICtrlCreateButton("Decrypt", 232, 40, 65, 33, 0)
$Encrypt1 = GUICtrlCreateButton("Encrypt", 8, 40, 65, 33, 0)
$in1 = GUICtrlCreateInput("", 104, 8, 193, 21)
GUICtrlSetData($in1,$FILE1)
GUICtrlCreateLabel("Output File:", 8, 88)
$now=GUICtrlCreateLabel("0", 10, 145, 163, 17)
$outof=GUICtrlCreateLabel("0", 105, 145, 163, 17)
GUICtrlCreateLabel("/", 90, 145)
GUICtrlCreateLabel("Bytes Done", 180, 145)
GUICtrlCreateLabel("OFFSET:", 104, 32)
$offset = GUICtrlCreateInput("", 104, 48, 105, 21)
$message = GUICtrlCreateInput("", 8, 120, 209, 21)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    $textmsg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE then
        ExitLoop
    EndIf

    If $textmsg=$Encrypt1 Then
        $curcount=0
        $current111="neg"
        GUICtrlSetData($now,"0")
        GUICtrlSetData($outof,"0")
        GUISetState(@SW_DISABLE)
        doencrypt(GUICtrlRead($in1))
    EndIf
    If $textmsg=$Decrypt1 Then
        $current111="neg"
        $curcount=0
        GUICtrlSetData($now,"0")
        GUICtrlSetData($outof,"0")
        GUISetState(@SW_DISABLE)
        dodecrypt(GUICtrlRead($in1))
    EndIf
WEnd
func doencrypt($file)
    if FileExists($file) Then
        $open1=FileOpen(GUICtrlRead($out1),9)
        if $open1=-1 Then
            GUICtrlSetData($message,"Incorrect path")
            SetError(1)
        EndIf
        GUICtrlSetData($message,"Encrypting...")
        $totalrnd=""
        $lasttotalrnd=""
        $loadfile=fileopen($file,0)
        $reads=FileRead($loadfile)
        GUICtrlSetData($outof,StringLen($reads))
        fileclose($loadfile)
        $opened1=fileopen($file,0)
        $totaltext=""
        While $curcount <> StringLen($reads)
            $read=FileRead($opened1,3000)
            For $i=1 to StringLen($read)
            If $i=1 Then
                $current=StringMid($read,1,1)
            Else
                $current=StringMid($read,$i,1)
            EndIf
                        if $current111="neg" Then
            $encode=asc($current)
            $encode=$encode+GUICtrlRead($offset)
            $text=chr($encode)
            $totaltext=$totaltext & $text
            $curcount=GUICtrlRead($now)
            GUICtrlSetData($now,$curcount+1)
            $curcount=$curcount+1
        Else
                        $encode=asc($current)
            $encode=$encode-GUICtrlRead($offset)
            $text=chr($encode)
            $totaltext=$totaltext & $text
            $curcount=GUICtrlRead($now)
            GUICtrlSetData($now,$curcount+1)
            $curcount=$curcount+1
        EndIf
                    if $current111="neg" Then
                $current111="pos"
            Else
                $current111="neg"
            EndIf
        Next
        FileWrite($open1,$totaltext)
        $totaltext=""
    WEnd
    FileClose($open1)
        FileClose($opened1)
    FileClose($loadfile)
        GUICtrlSetData($message,"Encryption Complete!")
beep(500,200)
$totaltext=""
    Else
        GUICtrlSetData($message,"Incorrect path")
    SetError(1)
    $totaltext=""
EndIf
GUISetState(@SW_ENABLE)
EndFunc

func dodecrypt($file)
    $open1=FileOpen(GUICtrlRead($out1),9)
        if $open1=-1 Then
            GUICtrlSetData($message,"Error with output file!")
            SetError(1)
            $totaltext=""
            Return ""
        EndIf
    if FileExists($file) Then
        GUICtrlSetData($message,"Decrypting...")
        $loadfile=fileopen($file,0)
        $reads=FileRead($loadfile)
        GUICtrlSetData($outof,StringLen($reads))
        fileclose($loadfile)
        $opened1=fileopen($file,0)
        $totaltext=""
        While $curcount <> StringLen($reads)
            $read=FileRead($opened1,3000)
            For $i=1 to StringLen($read)
            If $i=1 Then
                $current=StringMid($read,1,1)
            Else
                $current=StringMid($read,$i,1)
            EndIf
            if $current111="neg" Then
            $encode=asc($current)
            $encode=$encode-GUICtrlRead($offset)
            $text=chr($encode)
            $totaltext=$totaltext & $text
            $curcount=GUICtrlRead($now)
            GUICtrlSetData($now,$curcount+1)
            $curcount=$curcount+1
        Else
                        $encode=asc($current)
            $encode=$encode+GUICtrlRead($offset)
            $text=chr($encode)
            $totaltext=$totaltext & $text
            $curcount=GUICtrlRead($now)
            GUICtrlSetData($now,$curcount+1)
            $curcount=$curcount+1
        EndIf

            if $current111="neg" Then
                $current111="pos"
            Else
                $current111="neg"
            EndIf
        Next
        FileWrite($open1,$totaltext)
        $totaltext=""
    WEnd
    FileClose($open1)
    FileClose($opened1)
    FileClose($loadfile)

        GUICtrlSetData($message,"Decryption Complete!")
beep(500,200)
$totaltext=""
    Else
        GUICtrlSetData($message,"Incorrect path")
    SetError(1)
EndIf
GUISetState(@SW_ENABLE)
EndFunc

[dnsi]

Oh ok i didn't know that...

[SmOke_N]

Oh ok i didn't know that...

Didn't know what?

[Richard Robertson]

He didn't know that.

[dnsi]

I do the compile from sci editor so...
It automatically gives decompilible and no passfrase. :"> :">

[this-is-me]

Which version of AutoIt did you use to make this script?

Edited by this-is-me, 19 October 2006 - 11:42 PM.

[SmOke_N]

I do the compile from sci editor so...
It automatically gives decompilible and no passfrase. :"> :">

Hmm, I get a kick out of people that say things without checking themselves.

Try to decompile it, and see what it tells you... Then reply.

[=sinister=]

wt... You check it with any virus scanner

Doesn't have to show up in a virus scanner to be a virus.

[dnsi]

I will later. Anyways any ideas on improvement???

[dnsi]

ANYONE???????????

[Manadar]

Doesn't have to show up in a virus scanner to be a virus.

True. Some AutoIt scripts that just MsgBox are flagged as virus. My keylogger doesn't get flagged at all. It has something to do with the autoit version or something..

Anyway, a idea on improvement: Add a option "Encrypt" and "Decrypt" to the menu that pops under when you right click a file. Shouldn't be too hard, work it into a function and there you go.

[dnsi]

How do you do that????????????????????

[RazerM]

It's easier than you'd think. For my Encrypt0r project, the installer does this

RegWrite("HKEY_CLASSES_ROOT\*\shell\Encrypt with Encrypt0r\command", "", "REG_SZ", '"' & $path & '\Encrypt0r.exe" "Encrypt" "%1"') ƒo݊÷ Û^­í7ꖭ†+-…ë¬z»†‹ž)쵩ejبž–­…8b²gšžÆ§Éø¥{¥–¯y©÷ôIܯ*mÂ+aw+ʛt¯¢išÚ'¶«ŠmrXœ’g§¹h^ž+b²šÞ²Çw+ʛt¯¥•·¬z{wôIܯ*mßÖ§u8^~)^¶­Á«+ŠmrXœ‘çuw+ʛt®¬¶ˆZÙ^r‰¦jweŠw©j¶¦z׫²Ê"¶ë²Øb±«­¢+Ù%˜€˜ŒÀÌØí
µ‘1¥¹•lÁt€™±Ð왝Ðì€ÀQ¡•¸(€€€€˜ŒÀÌØ핹ÉåÁÐÁə¥±”€ô
MÉ¥ÁѥȀ™…µÀ쀙ÅÕ½Ð옌ÀäÈí¹ÉåÁÐÁȹ•á”™ÅÕ½Ðì(€€€%˜€˜ŒÀÌØí
µ‘1¥¹•lÅt€ô€™ÅÕ½Ðí¹ÉåÁЙÅÕ½ÐìQ¡•¸¹ÉåÁÑ
µ ¤(€€€%˜€˜ŒÀÌØí
µ‘1¥¹•lÅt€ô€™ÅÕ½Ð핍ÉåÁЙÅÕ½ÐìQ¡•¸•ÉåÁÑ
µ ¤)¹‘%˜

Edited by RazerM, 22 October 2006 - 08:02 PM.