real nice encrypting method - hard to crack

[Nuffilein805]

ok, me again

ok, again encrypting stuff

but, this time it's really nice and you can't decrypt it without the password

this method is mostly like vigniere, but there is 1 difference:

You can't set the Password! (well you can in this version)

The programm sets the password to the same lengths as the text you wish to be encrypted.

The password can be everything (all 256 chars).

There should be no way to decrypt you encrypted text without the password (at least it will take really long)

I've just got 1 problem. I don't know if there's a way to have 2 return-values, otherwise the prog has to write the pw to a textfile (or somewhere else, i don't care)

Anyway i post the code here, because i want your feedback!!!

Here's one example (can some1 decrypt this?):

ñM¾àlbE¢Í×â<ýþ®5åÊjE`MÍu£á

who can read it?

expandcollapse popup

$text = "try this one out - put your text HERE"
$abc = perfect_vigniere($text, 0)
FileWrite ("tester25.txt", $text & "-" & $abc & @CRLF)
$code = FileReadLine ("tester25.txt", 1)
FileWrite ("tester25.txt", $abc & "-" & perfect_vigniere($abc, 1, $code) & @CRLF)

;if you want a save encryption don't use a password!

func perfect_vigniere($vigniere_text, $vigniere_encode, $vigniere_code = "")
if $vigniere_encode = 1 Then
            $vigniere_plain = $vigniere_text
            $vigniere_plain_letters = StringSplit ($vigniere_plain, "")
            $vigniere_plain_code = $vigniere_code
            $vigniere_code_letters = StringSplit ($vigniere_plain_code, "")
            $vigniere_max_code = $vigniere_code_letters[0] + 1
            dim $vigniere_convert[$vigniere_max_code]
            dim $vigniere_minus[$vigniere_max_code]
            for $vigniere_i = 1 to $vigniere_code_letters[0] step 1
                $vigniere_convert[$vigniere_i] = Asc ($vigniere_code_letters[$vigniere_i])
                $vigniere_minus[$vigniere_i] = $vigniere_convert[$vigniere_i] + 1
                if $vigniere_minus[$vigniere_i] > 255 Then
                    $vigniere_minus[$vigniere_i] = $vigniere_minus[$vigniere_i] - 256
                EndIf
            Next
            $vigniere_max_plain = $vigniere_plain_letters[0] + 1
            dim $vigniere_plain_convert[$vigniere_max_plain]
            dim $vigniere_output[$vigniere_max_plain]
            $vigniere_i = 0
            $vigniere = ""
            For $vigniere_j = 1 to $vigniere_plain_letters[0] step 1
                $vigniere_i = $vigniere_i + 1
                $vigniere_plain_convert[$vigniere_j] = Asc ($vigniere_plain_letters[$vigniere_j])
                if $vigniere_i > $vigniere_code_letters[0] Then
                    $vigniere_i = $vigniere_i - $vigniere_code_letters[0]
                EndIf
                $vigniere_test = $vigniere_plain_convert[$vigniere_j] - $vigniere_minus[$vigniere_i]
                if $vigniere_test < 0 Then
                    $vigniere_output[$vigniere_j] = $vigniere_plain_convert[$vigniere_j] + 256 - $vigniere_minus[$vigniere_i]
                EndIf
                $vigniere_output[$vigniere_j] = $vigniere_test
                $vigniere = $vigniere & chr($vigniere_output[$vigniere_j])
            Next
            return $vigniere
        ElseIf $vigniere_encode = 0 Then
            $vigniere_plain = $vigniere_text
            $vigniere_plain_letters = StringSplit ($vigniere_plain, "")
            if $vigniere_code = "" then
                $vigniere_max = $vigniere_plain_letters[0] + 1
                dim $vigniere_code_letters[$vigniere_max]
                for $vigniere_a = 1 to $vigniere_plain_letters[0] step 1
                    $vigniere_code_letters[$vigniere_a] = chr (random(0, 255, 1))
                    $vigniere_code = $vigniere_code & $vigniere_code_letters[$vigniere_a]
                Next
            $vigniere_plain_code = $vigniere_code
            $vigniere_code_letters = StringSplit ($vigniere_plain_code, "")
            $vigniere_max_code = $vigniere_code_letters[0] + 1
            dim $vigniere_convert[$vigniere_max_code]
            dim $vigniere_minus[$vigniere_max_code]
            for $vigniere_i = 1 to $vigniere_code_letters[0] step 1
                $vigniere_convert[$vigniere_i] = Asc ($vigniere_code_letters[$vigniere_i])
                $vigniere_minus[$vigniere_i] = $vigniere_convert[$vigniere_i] + 1
                if $vigniere_minus[$vigniere_i] > 255 Then
                    $vigniere_minus[$vigniere_i] = $vigniere_minus[$vigniere_i] - 256
                EndIf
            Next
            $vigniere_max_plain = $vigniere_plain_letters[0] + 1
            dim $vigniere_plain_convert[$vigniere_max_plain]
            dim $vigniere_output[$vigniere_max_plain]
            $vigniere_i = 0
            $vigniere = ""
            For $vigniere_j = 1 to $vigniere_plain_letters[0] step 1
                $vigniere_i = $vigniere_i + 1
                $vigniere_plain_convert[$vigniere_j] = Asc ($vigniere_plain_letters[$vigniere_j])
                if $vigniere_i > $vigniere_code_letters[0] Then
                    $vigniere_i = $vigniere_i - $vigniere_code_letters[0]
                EndIf
                $vigniere_test = $vigniere_plain_convert[$vigniere_j] + $vigniere_minus[$vigniere_i]
                if $vigniere_test > 255 Then
                    $vigniere_output[$vigniere_j] = $vigniere_plain_convert[$vigniere_j] - 256 + $vigniere_minus[$vigniere_i]
                EndIf
                $vigniere_output[$vigniere_j] = $vigniere_test
                $vigniere = $vigniere & chr($vigniere_output[$vigniere_j])
            Next
            FileWrite("tester25.txt", $vigniere_code & @CRLF)
            return $vigniere
        EndIf
    EndIf
EndFunc

please give me some feedback, if it worked, ...

updated the file: old 1 was downloaded 17 times

updated the file again: 10 downloads on the last 1

perfect_vigniere2.au3

Edited October 31, 2005 by Nuffilein805

[Confuzzled]

Isn't writing the password to a file defeating the whole purpose of encryption?

I'm failing to understand why you are devoting so much forum space to posting encryption algorithms all over the place that are so ineffective and weak.

Edited October 27, 2005 by Confuzzled

[Nuffilein805]

Isn't writing the password to a file defeating the whole purpose of encryption?

I'm failing to understand why you are devoting so much forum space to posting encryption algorithms all over the place that are so ineffective and weak.

the old 1s may be weak (and were just for training) but this 1 isn't

the only reason why i write the pw to a file is because i haven't found a way to have 2 return values

thats the reason i asked

if you think this encryption is weak crack the code i posted, if you can you're all right if not ...

[FuryCell]

the old 1s may be weak (and were just for training) but this 1 isn't

the only reason why i write the pw to a file is because i haven't found a way to have 2 return values

thats the reason i asked

if you think this encryption is weak crack the code i posted, if you can you're all right if not ...

You could use an array to have two return values

[FuryCell]

Cool!

Just tried it out and I got this.

ýа4¬+âðB/?r¼×,jºÎßö]ÕXÑj>µ·Õ£«]

Edited October 28, 2005 by SolidSnake

[tonedeaf]

Isn't writing the password to a file defeating the whole purpose of encryption?

Not really. Imagine writing an application which needs a username/password saved (because the user chooses to). Where would you save it? Certainly not as plain text in an INI file. And AutoIt's default encryption algorithms are weak.

Nuffilein's encryption algorithms are very useful in saving sensitive information. It would be very hard for a amateur to crack the passwords.

I'm failing to understand why you are devoting so much forum space to posting encryption algorithms all over the place that are so ineffective and weak.

Nuffilein's contributions are useful if you need them. So much functionality in AutoIt is possible only due to many users contribution for their domain. I am thinking about implementing his algorithms in my scripts, so they are useful to me

[tonedeaf]

@Nuffilein805

I modified your function to return two values.

Function: _PerfectVigniere($vigniere_text, $vigniere_encode, $vigniere_code)

Return Value: Encrypted/Decrypted text.

Parameters:
$vigniere_text - Text string to encrypt/decrypt

$vigniere_encode - 0 or 1
0 - Encrypt
1 - Decrypt

$vigniere_code - Returns Decode Key when encoding
                         Provide decode key when decoding

Script:

expandcollapse popup

Dim $sTexttoEncode, $sEncryptedText, $sDecryptedText
Dim $sDecodeKey

$sTexttoEncode = "try this one out - put your text HERE"

; Call the function with 0 in 2nd parameter to encode the text.
; The key to decode will be returned in 3rd parameter.
$sEncryptedText = _PerfectVigniere($sTexttoEncode, 0, $sDecodeKey)

; Call the function with 1 in the 2nd parameter to decode the text.
; Provide the decode key in the 3rd parameter
$sDecryptedText = _PerfectVigniere($sEncryptedText, 1, $sDecodeKey)

MsgBox(0, "Nuffilein805's Encryption Algorithm", "Original Text: " & $sTexttoEncode & @CRLF & _
        "Encrypted Text: " & $sEncryptedText & @CRLF & _
        "Decryped Text: " & $sDecryptedText & @CRLF & _
        "Decode Key: " & $sDecodeKey)


Func _PerfectVigniere($vigniere_text, $vigniere_encode, ByRef $vigniere_code)
    If $vigniere_encode = 1 Then
            $vigniere_plain = $vigniere_text
            $vigniere_plain_letters = StringSplit ($vigniere_plain, "")
            $vigniere_plain_code = $vigniere_code
            $vigniere_code_letters = StringSplit ($vigniere_plain_code, "")
            $vigniere_max_code = $vigniere_code_letters[0] + 1
            Dim $vigniere_convert[$vigniere_max_code]
            Dim $vigniere_minus[$vigniere_max_code]
            For $vigniere_i = 1 to $vigniere_code_letters[0] step 1
                $vigniere_convert[$vigniere_i] = Asc ($vigniere_code_letters[$vigniere_i])
                $vigniere_minus[$vigniere_i] = $vigniere_convert[$vigniere_i] + 1
                If $vigniere_minus[$vigniere_i] > 255 Then
                    $vigniere_minus[$vigniere_i] = $vigniere_minus[$vigniere_i] - 256
                EndIf
            Next
            $vigniere_max_plain = $vigniere_plain_letters[0] + 1
            Dim $vigniere_plain_convert[$vigniere_max_plain]
            Dim $vigniere_output[$vigniere_max_plain]
            $vigniere_i = 0
            $vigniere = ""
            For $vigniere_j = 1 to $vigniere_plain_letters[0] step 1
                $vigniere_i = $vigniere_i + 1
                $vigniere_plain_convert[$vigniere_j] = Asc ($vigniere_plain_letters[$vigniere_j])
                If $vigniere_i > $vigniere_code_letters[0] Then
                    $vigniere_i = $vigniere_i - $vigniere_code_letters[0]
                EndIf
                $vigniere_test = $vigniere_plain_convert[$vigniere_j] - $vigniere_minus[$vigniere_i]
                If $vigniere_test < 0 Then
                    $vigniere_output[$vigniere_j] = $vigniere_plain_convert[$vigniere_j] + 256 - $vigniere_minus[$vigniere_i]
                EndIf
                $vigniere_output[$vigniere_j] = $vigniere_test
                $vigniere = $vigniere & chr($vigniere_output[$vigniere_j])
            Next
            Return $vigniere
        ElseIf $vigniere_encode = 0 Then
            $vigniere_plain = $vigniere_text
            $vigniere_plain_letters = StringSplit ($vigniere_plain, "")
            If $vigniere_code = "" then
                $vigniere_max = $vigniere_plain_letters[0] + 1
                Dim $vigniere_code_letters[$vigniere_max]
                For $vigniere_a = 1 to $vigniere_plain_letters[0] step 1
                    $vigniere_code_letters[$vigniere_a] = Chr (random(0, 255, 1))
                    $vigniere_code = $vigniere_code & $vigniere_code_letters[$vigniere_a]
                Next
            $vigniere_plain_code = $vigniere_code
            $vigniere_code_letters = StringSplit ($vigniere_plain_code, "")
            $vigniere_max_code = $vigniere_code_letters[0] + 1
            Dim $vigniere_convert[$vigniere_max_code]
            Dim $vigniere_minus[$vigniere_max_code]
            For $vigniere_i = 1 to $vigniere_code_letters[0] step 1
                $vigniere_convert[$vigniere_i] = Asc ($vigniere_code_letters[$vigniere_i])
                $vigniere_minus[$vigniere_i] = $vigniere_convert[$vigniere_i] + 1
                If $vigniere_minus[$vigniere_i] > 255 Then
                    $vigniere_minus[$vigniere_i] = $vigniere_minus[$vigniere_i] - 256
                EndIf
            Next
            $vigniere_max_plain = $vigniere_plain_letters[0] + 1
            Dim $vigniere_plain_convert[$vigniere_max_plain]
            Dim $vigniere_output[$vigniere_max_plain]
            $vigniere_i = 0
            $vigniere = ""
            For $vigniere_j = 1 to $vigniere_plain_letters[0] step 1
                $vigniere_i = $vigniere_i + 1
                $vigniere_plain_convert[$vigniere_j] = Asc ($vigniere_plain_letters[$vigniere_j])
                If $vigniere_i > $vigniere_code_letters[0] Then
                    $vigniere_i = $vigniere_i - $vigniere_code_letters[0]
                EndIf
                $vigniere_test = $vigniere_plain_convert[$vigniere_j] + $vigniere_minus[$vigniere_i]
                If $vigniere_test > 255 Then
                    $vigniere_output[$vigniere_j] = $vigniere_plain_convert[$vigniere_j] - 256 + $vigniere_minus[$vigniere_i]
                EndIf
                $vigniere_output[$vigniere_j] = $vigniere_test
                $vigniere = $vigniere & Chr($vigniere_output[$vigniere_j])
            Next
            Return $vigniere
        EndIf
    EndIf
EndFunc

EDIT - I noticed that the encrypted text is not decrypted correctly everytime. It works correctly most of the time but sometimes it returns encrypted text does not get decrypted completely.

I managed to get one such case after about running the script 20 times.

I Hope you can fix this issue.

Regards,

Tonedeaf

Edited October 28, 2005 by tonedeaf

[Nuffilein805]

hm, i see

hope to find this little problem, but first i have to reproduce the error, i'll do my very best, cause i don't like any errors in my scripts

thx for the positve feedback

[w0uter]

what is the use of encription if you can just hack out the part that encrypts

[Nuffilein805]

@wouter: but you can't find the random-key, so even if you know how its encrypted there's no way for you to find out the message

@all: i worked around this little prob with not the whole text decrypted and found a very clumsy solution, but it works - used tonedeaf's modified script cause this works a bit better and modified it myself (just 3 more lines of code)

updated the file in the first post

here is the new code:

expandcollapse popup

Dim $sTexttoEncode, $sEncryptedText, $sDecryptedText
Dim $sDecodeKey

$sTexttoEncode = "try this one out - put your text HERE"

; Call the function with 0 in 2nd parameter to encode the text.
; The key to decode will be returned in 3rd parameter.
$sEncryptedText = _PerfectVigniere($sTexttoEncode, 0, $sDecodeKey)

; Call the function with 1 in the 2nd parameter to decode the text.
; Provide the decode key in the 3rd parameter
$sDecryptedText = _PerfectVigniere($sEncryptedText, 1, $sDecodeKey)

MsgBox(0, "Nuffilein805's Encryption Algorithm", "Original Text: " & $sTexttoEncode & @CRLF & _
        "Encrypted Text: " & $sEncryptedText & @CRLF & _
        "Decryped Text: " & $sDecryptedText & @CRLF & _
        "Decode Key: " & $sDecodeKey)


Func _PerfectVigniere($vigniere_text, $vigniere_encode, ByRef $vigniere_code)
    If $vigniere_encode = 1 Then
        
            $vigniere_plain = $vigniere_text
            $vigniere_plain_letters = StringSplit ($vigniere_plain, "")
            $vigniere_plain_code = $vigniere_code
            $vigniere_code_letters = StringSplit ($vigniere_plain_code, "")
            $vigniere_max_code = $vigniere_code_letters[0] + 1
            Dim $vigniere_convert[$vigniere_max_code]
            Dim $vigniere_minus[$vigniere_max_code]
            For $vigniere_i = 1 to $vigniere_code_letters[0] step 1
                $vigniere_convert[$vigniere_i] = Asc ($vigniere_code_letters[$vigniere_i])
                $vigniere_minus[$vigniere_i] = $vigniere_convert[$vigniere_i] + 1
                If $vigniere_minus[$vigniere_i] > 255 Then
                    $vigniere_minus[$vigniere_i] = $vigniere_minus[$vigniere_i] - 256
                EndIf
            Next
            $vigniere_max_plain = $vigniere_plain_letters[0] + 1
            Dim $vigniere_plain_convert[$vigniere_max_plain]
            Dim $vigniere_output[$vigniere_max_plain]
            $vigniere_i = 0
            $vigniere = ""
            For $vigniere_j = 1 to $vigniere_plain_letters[0] step 1
                $vigniere_i = $vigniere_i + 1
                $vigniere_plain_convert[$vigniere_j] = Asc ($vigniere_plain_letters[$vigniere_j])
                If $vigniere_i > $vigniere_code_letters[0] Then
                    $vigniere_i = $vigniere_i - $vigniere_code_letters[0]
                EndIf
                $vigniere_test = $vigniere_plain_convert[$vigniere_j] - $vigniere_minus[$vigniere_i]
                If $vigniere_test < 0 Then
                    $vigniere_output[$vigniere_j] = $vigniere_plain_convert[$vigniere_j] + 256 - $vigniere_minus[$vigniere_i]
                EndIf
                $vigniere_output[$vigniere_j] = $vigniere_test
                $vigniere = $vigniere & chr($vigniere_output[$vigniere_j])
            Next
    
            Return $vigniere
        ElseIf $vigniere_encode = 0 Then
            
            $vigniere_plain = $vigniere_text
            $vigniere_plain_letters = StringSplit ($vigniere_plain, "")
            If $vigniere_code = "" then
                Do
                $vigniere_max = $vigniere_plain_letters[0] + 1
                Dim $vigniere_code_letters[$vigniere_max]
                For $vigniere_a = 1 to $vigniere_plain_letters[0] step 1
                    $vigniere_code_letters[$vigniere_a] = Chr (random(0, 255, 1))
                    $vigniere_code = $vigniere_code & $vigniere_code_letters[$vigniere_a]
                Next
            $vigniere_plain_code = $vigniere_code
            $vigniere_code_letters = StringSplit ($vigniere_plain_code, "")
            $vigniere_max_code = $vigniere_code_letters[0] + 1
            Dim $vigniere_convert[$vigniere_max_code]
            Dim $vigniere_minus[$vigniere_max_code]
            For $vigniere_i = 1 to $vigniere_code_letters[0] step 1
                $vigniere_convert[$vigniere_i] = Asc ($vigniere_code_letters[$vigniere_i])
                $vigniere_minus[$vigniere_i] = $vigniere_convert[$vigniere_i] + 1
                If $vigniere_minus[$vigniere_i] > 255 Then
                    $vigniere_minus[$vigniere_i] = $vigniere_minus[$vigniere_i] - 256
                EndIf
            Next
            $vigniere_max_plain = $vigniere_plain_letters[0] + 1
            Dim $vigniere_plain_convert[$vigniere_max_plain]
            Dim $vigniere_output[$vigniere_max_plain]
            $vigniere_i = 0
            $vigniere = ""
            For $vigniere_j = 1 to $vigniere_plain_letters[0] step 1
                $vigniere_i = $vigniere_i + 1
                $vigniere_plain_convert[$vigniere_j] = Asc ($vigniere_plain_letters[$vigniere_j])
                If $vigniere_i > $vigniere_code_letters[0] Then
                    $vigniere_i = $vigniere_i - $vigniere_code_letters[0]
                EndIf
                $vigniere_test = $vigniere_plain_convert[$vigniere_j] + $vigniere_minus[$vigniere_i]
                If $vigniere_test > 255 Then
                    $vigniere_output[$vigniere_j] = $vigniere_plain_convert[$vigniere_j] - 256 + $vigniere_minus[$vigniere_i]
                EndIf
                $vigniere_output[$vigniere_j] = $vigniere_test
                $vigniere = $vigniere & Chr($vigniere_output[$vigniere_j])
            Next
            $sDecryptedText = _PerfectVigniere($vigniere, 1, $vigniere_code)
            until $sDecryptedText = $vigniere_text
            Return $vigniere
        EndIf
    EndIf
EndFunc

Edited October 28, 2005 by Nuffilein805

[w0uter]

it could be bruteforced ...

[layer]

it could be bruteforced ...

A lot of things can. Edited October 28, 2005 by layer

[lonewolf]

Everything will succumb to a brute force attack, however it may take time for a advanced aglorithim and a key with 100 charaters.

Lol, just think how long a brute force would take with a really long key:

A...

B

C...

AA...

BB

CC...

........

[Nuffilein805]

it could be bruteforced ...

not this 1! its a 1-time-pad mathmatical and logical uncrackable

you can get several solutions and will never know which is the right 1

Edited October 29, 2005 by Nuffilein805

[w0uter]

evrything can be bruteforced. but like lonewolf sayd it takes a long time.

and i still dont get the use of this ?

care to give an example of how this could be actually usefull in a "real" situation.

Edited October 29, 2005 by w0uter

[Dicemaster Slayer]

<snipped>

EDIT - I noticed that the encrypted text is not decrypted correctly everytime. It works correctly most of the time but sometimes it returns encrypted text does not get decrypted completely.

I managed to get one such case after about running the script 20 times.

I Hope you can fix this issue.

Regards,

Tonedeaf

I've noticed that a lot in Virgenere-based encryption systems. I once encrypted a block of text and ended up where only one line could be decrypted at a time. Though a blank line determined which line would be decrypted, I would be interested to find out if this is inherent in Virgenere or just an anomaly that just happens.

[Nuffilein805]

i think thats an anomaly that happens when you use all 256 chars, cause sometimes you will get a pw with e.g. a crlf or a cr in it, this will make the decryption make mistakes

@wouter: lets say you write an e-mail message to your boss and you don't want anyone to read it, ecrypt it this way and you can be sure noone can read it

you can send your boss the key on another way, or even in the mail - maybe invert the key using my atbash-encryption, noone will be able to read it

2nd: a 1-time-pad is not crackable as you can read on wikipedia, you get unlimited possibly texts out of 1 encrypted text, cause you don't know the key

if you hit the right key by being lucky you won't know if its the right key

e.g. (easy way)

real-text: this is my text

encrypted text: uioplkjhgfdsaq

decrypted text1: this is no text

decrypted text2: this is my test

...

you see there are unlimited possiblilites to just decode this little text, how can you say its the right 1 you decrypted?

[tonedeaf]

@Nuffilein805

The script now hangs instead of giving the wrong ouput. ;-)

[Confuzzled]

@Nuffilein805

The script now hangs instead of giving the wrong ouput. ;-)

Which of the two alternatives is preferable?

[Nuffilein805]

damn, you're right

gotta fix this (but if it works it gives the right output )