_QNEM (Quick Numeric Encryption Method)

[NightxStalker]

this is not nesicarly what i planned on making but the idea simply came to me.

my only problem is i have no idea how to un encrypt this xD.

if there is no way could this be considered a one way hashing algorithm?

THE PASSWORD MUST BE NUMERIC

Func _QNEM($xtext, $xpassword, $xlevel)
    global $output
    if $xlevel > 10 Then
        msgbox(28, "ERROR", "QNEM ERROR:"&@crlf&"Encryption Level Range Excceded")
        Exit
    EndIf
$xarray = StringSplit($xtext, "")
for $x=1 to UBound($xarray)-1
$output = $output&asc($xarray[$x])
Next

    $xencr = $xlevel&"."&$xpassword
$output = $output * $xencr
    Return $output
EndFunc

Edited September 24, 2008 by NightxStalker

[SmOke_N]

Well to be honest, it doesn't make any sense. If my password is abc and my level is 2, $xencr = 2.abc ... so you're multiplying output by 2.abc.

And if the value gets too large, you won't get the correct output on a decryption level anyway.

[NightxStalker]

sorry for not clarifying THE PASSWORD MUST BE NUMERIC

[SmOke_N]

sorry for not clarifying THE PASSWORD MUST BE NUMERIC

Still remains the issue that if the output numerical value before multiplied by the xencr variable is too large it won't work. (In other words, if you have a string you want to encrypt that is 200 characters long, you'll get some return like #INF).

[NightxStalker]

oh.....

[enaiman]

Couple things I can see here:

- your password has to be a number (if not a number then your multiplication fails and the return is 0)

- by converting your text in ASCII you will end up with huge numbers (4 characters will be at least a 8 digit long number) -> you won't be able to encrypt strings longer than ... let's say 10 characters (maybe less)

- multiplying that number by another value will result in an even bigger number (so far I've seen AutoIt returning the scientific representation of the result; it might return the full number though) -> scientific representation = not accurate at all -> not accurate result = impossible to correctly decrypt

- the text cannot contain any @CR or @LF because this will be confusing the decryption

Speaking about decryption:

- without the level and password there is no way to decrypt this without using brute-force

- if you have these 2 it is possible to retrieve the original text (not very easy but doable)

[NightxStalker]

lol... so this is worthless?

[DW1]

Adjusted to allow decryption.

This is very very breakable "encryption" though.

expandcollapse popup

$string = "test string!!!"
$pass = "p@ssw0rd"
$level = 5

$QEMString = _QEM($string, $pass, $level)
MsgBox(0, "QEM", $QEMString)
MsgBox(0, "UNQEM", _UNQEM($QEMString, $pass, $level))

Func _QEM($xtext, $xpassword, $xlevel)
    If Not IsNumber( $xpassword ) Then $xpassword = StringTrimLeft(StringToBinary( $xpassword ), 2)
    If $xlevel > 10 Then
        MsgBox(28, "ERROR", "QEM ERROR:" & @CRLF & "Encryption Level Range Excceded")
        Exit
    EndIf
    $output = ''
    $xencr = $xlevel & "." & $xpassword
    $xarray = StringSplit($xtext, "")
    For $x = 1 To UBound($xarray) - 1
        $output = $output & Asc($xarray[$x]) * $xencr & "|"
    Next
    Return $output
EndFunc   ;==>_QEM

Func _UNQEM($xtext, $xpassword, $xlevel)
    If Not IsNumber( $xpassword ) Then $xpassword = StringTrimLeft(StringToBinary( $xpassword ), 2)
    If $xlevel > 10 Then
        MsgBox(28, "ERROR", "QEM ERROR:" & @CRLF & "Encryption Level Range Excceded")
        Exit
    EndIf
    $output = ''
    $xencr = $xlevel & "." & $xpassword
    $xarray = StringSplit($xtext, "|")
    For $x = 1 To UBound($xarray) - 1
        $output = $output & Chr(Round($xarray[$x] / $xencr))
    Next
    Return $output
EndFunc   ;==>_UNQEM