Crypting

[jaenster]

This is a crypt function, its fast and short in code, and really strong..

Maby i remake it in php

#INCLUDE <STRING.AU3>
$text = "This is my text i want to encrypt"
$password = "This is my secret password "
$Cryped = Crypt($text,$password,0)
consolewrite($Cryped&@crlf)
$Decrypt= crypt($Cryped,$password,1)
consolewrite($Decrypt&@crlf)

func crypt($t,$pw,$type)
    if $type = 1 then $t = _HexToString($t)
    $Terug = ""
    $pwlen=stringlen($password)
    $textlen = stringlen($t)
    dim $text[$textlen+1]
    for $z = 1 to $pwlen
        for $i = 1 to $textlen
            $text[$i] = hex(bitxor(asc(stringmid($t,$i,1)),asc(stringmid($pw,$z,1))),2)
        next
    next
    for $i = 1 to ubound($text)-1
        if $type =1 then $terug &= chr(dec($text[$i]))
        if $type <> 1 then  $terug &= $text[$i]
    next
    return $Terug
endfunc

Edit : Updated the code

Edited February 1, 2007 by jaenster

[HackerZer0]

cool, i may do one for ROT13 tomorrow..., i just dont feel like it right now lol...

[clearguy]

Nice code, seems to be very strong indeed

[dandymcgee]

Hey, cool crypter! I tried to make one once, ended up turning it into a binary - text translator. Cryptology is a really cool topic, and there are some pretty involved algorithms is use out there these days. I still don't quite understand how to undo the ones that use random strings in random places, then randomly scramble it... I don't see how that could be undone. I also heard somewhere (don't remember from whom) that there were algorithms that were so complex that the government made them illegal because they couldn't figure out how to break them... lol.

[Skrip]

Hey, cool crypter! I tried to make one once, ended up turning it into a binary - text translator.

That's what happend to mine!

Nice encryptor. I like it!

[theguy0000]

Hey, cool crypter! I tried to make one once, ended up turning it into a binary - text translator. Cryptology is a really cool topic, and there are some pretty involved algorithms is use out there these days. I still don't quite understand how to undo the ones that use random strings in random places, then randomly scramble it... I don't see how that could be undone. I also heard somewhere (don't remember from whom) that there were algorithms that were so complex that the government made them illegal because they couldn't figure out how to break them... lol.

you mean like md5? I'm pretty sure md5 can't be correctly decrypted....or am I wrong?

[clearguy]

Just crazy that something can be encrypted, I don't want to go in paranoïa but - well

I use this pretty program which is just crazy speedy, sure it's not in au3

The link : http://www.ruskwig.com/random_encryption.htm

There is an explanation on how it works ...

I don't think it's the same like this script, if not why not making a challenge in re-creating it in au 3

[WhiteTiger]

Nice script jaenster :-)

[-Ultima-]

you mean like md5? I'm pretty sure md5 can't be correctly decrypted....or am I wrong?

Indeed, that's incorrect. MD5 isn't an encryption algorithm in the first place, so there is nothing to decrypt. MD5 is a hash algorithm, and is meant to be a one-way operation. Edited December 17, 2006 by -Ultima-

[JoshDB]

Nice, I like this.

[-Ultima-]

(And one more note about MD5 -- while it isn't something you decrypt, IINM, finding collisions for MD5 hashes is a trivial matter nowadays, so technically, MD5 is a broken hash algorithm)

[theguy0000]

Indeed, that's incorrect. MD5 isn't an encryption algorithm in the first place, so there is nothing to decrypt. MD5 is a hash algorithm, and is meant to be a one-way operation.

ah, i see. thank you.

[jaenster]

I forgot that i post this ,, But anywhy thanks

[Proph]

Is there a way of decrypting it once it has been crypted? I can see how it crypts it... but How would I make a func to decrypt it?

I must be tired.

[SmOke_N]

Is there a way of decrypting it once it has been crypted? I can see how it crypts it... but How would I make a func to decrypt it?

I must be tired.

You send the encrypted source along with $24.95 to me

[_Kurt]

You send the encrypted source along with $24.95 to me

I love your clever answers, Smoke

Kurt

[jaenster]

Is there a way of decrypting it once it has been crypted? I can see how it crypts it... but How would I make a func to decrypt it?

I must be tired.

Created a new crypt function for you.

And it works faster.

I also updated the main script

#INCLUDE <STRING.AU3>
$text = "This is my text i want to encrypt"
$password = "This is my secret password "
$Cryped = Crypt($text,$password,0)
consolewrite($Cryped&@crlf)
$Decrypt= crypt($Cryped,$password,1)
consolewrite($Decrypt&@crlf)

func crypt($t,$pw,$type)
    if $type = 1 then $t = _HexToString($t)
    $Terug = ""
    $pwlen=stringlen($password)
    $textlen = stringlen($t)
    dim $text[$textlen+1]
    for $z = 1 to $pwlen
        for $i = 1 to $textlen
            $text[$i] = hex(bitxor(asc(stringmid($t,$i,1)),asc(stringmid($pw,$z,1))),2)
        next
    next
    for $i = 1 to ubound($text)-1
        if $type =1 then $terug &= chr(dec($text[$i]))
        if $type <> 1 then  $terug &= $text[$i]
    next
    return $Terug
endfunc

[SadBunny]

Is there a way of decrypting it once it has been crypted? I can see how it crypts it... but How would I make a func to decrypt it?

I must be tired.

Hmm, just came along this topic... Just in case you are haven't been eating or sleeping for the past couple of weeks pondering this question (and to make sure you won't pay Smoke because I need the money more! ): you don't seem to NEED to make a function for decrypting, because believe it or not but an example how to decrypt it can be found in the 6th line of the code

Sorry for this useless post, I must be tired too!

[Bella]

aww i was thinking this was a how-to on how to crypt walk

/cry

hehe but just as good though

[Maxtreeme]

Nice code, i'll use it somewhere

Thanks!