Encrypting stuff using 231 ascii characters

eynstyne · December 11, 2006

Hello all...

I'm working on an encryption system. It sometimes works, and it sometimes doesn't. Why?

The problem is, it drops letters in really large text.

It uses a 231 array to carry out ascii characters. A typical example is:

Key - Apple

Message - Wee

Encrypted...It looks like : 靦牺簽觙錴H

When decrypting...Any key you enter can semi-decrypt it.

Here is the code for Encryption and Decryption. How can I optimise this for maximum protection? What do I need to fix?

CODE

#include <array.au3>

#include <file.au3>

#include <string.au3>

#include <GUIConstants.au3>

$Form1 = GUICreate("Status...", 225, 59, 266, 259, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE,$WS_EX_TOPMOST))

$Label1 = GUICtrlCreateLabel("Creating Character Set...", 3, 3, 225, 17)

$Progress1 = GUICtrlCreateProgress(2, 22, 222, 14)

GUICtrlSetData(-1, 25)

$Button1 = GUICtrlCreateButton("Cancel", 86, 39, 57, 18, 0)

GUISetState(@SW_SHOW)

while 1

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

$KEYWORDSET = _ArrayCreate("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u")

$CHAR = _ArrayCreate("v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P")

$CHAR2 = _ArrayCreate("Q","R","S","T","U","V","W","X","Y","Z","1","2","3","4","5","6","7","8","9","0","`")

$CHAR3 = _ArrayCreate("~","!","@","#","$","%","^","&","*","(",")","_","+","-","=","[","]","{","}","|","\")

$CHAR4 = _ArrayCreate(":",";","""","'",",",".","<",">","?","/","","","?,"?,"?,"?,"?,"?,"?,"?,"?)

$CHAR5 = _ArrayCreate("?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?)

$CHAR6 = _ArrayCreate("?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?)

$CHAR7 = _ArrayCreate("?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?)

$CHAR8 = _ArrayCreate("?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?)

$CHAR9 = _ArrayCreate("?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?)

$CHAR10 = _ArrayCreate("?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"?,"","","","","","","",""," ")

guictrlsetdata($Label1,"Assembling Character Set...")

for $j = 0 to 20

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $j & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR[$j])

for $k = 0 to 20

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $k + $j & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR2[$k])

for $i = 0 to 20

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $j + $k + $i & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR3[$i])

for $m = 0 to 20

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $j + $k + $i + $m & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR4[$m])

for $n = 0 to 20

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $j + $k + $i + $m + $n & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR5[$n])

for $l = 0 to 20

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $j + $k + $i + $m + $n + $l & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR6[$l])

for $p = 0 to 20

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $j + $k + $i + $m + $n + $l + $p & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR7[$p])

for $o = 0 to 20

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $j + $k + $i + $m + $n + $l + $p + $o & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR8[$o])

for $q = 0 to 20

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $j + $k + $i + $m + $n + $l + $p + $o + $q & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR9[$q])

for $t = 0 to 19

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

guictrlsetdata($Label1,"Assembling Character Set..." & $j + $k + $i + $m + $n + $l + $p + $o + $q + $t & " Characters")

_ArrayAdd($KEYWORDSET,$CHAR10[$t])

GUISetState(@SW_HIDE)

$KEY = Inputbox("Enter a key...","Enter a key to encrypt message. A lengthy and random key is best:","","*",200,150,-1,-1)

if $key = "" Then

msgbox(16,"Error...","You did not enter a key!")

Exit

EndIf

$MESSAGE = Inputbox("Enter your message","Your message. Do not include spaces.","","",200,150,-1,-1)

if $message = "" Then

msgbox(16,"Error...","You did not type a message")

Exit

EndIf

_FileCreate("E:\ENCRYPT.txt")

;Generates the Alphabet text and mixes it around

GUISetState(@SW_SHOW)

TraySetToolTip("Sorting Alphabet set...")

controlhide("Status...","",$progress1)

guictrlsetdata($Label1,"Sorting Character Set...")

For $i = 0 to 231

$msg = Guigetmsg()

if $msg = $button1 Then

guictrlsetdata($Label1,"Cancelling...")

Exit

EndIf

$MID = StringMid($KEY,$i,1)

if $MID <> "" Then

$Search = _ArraySearch($KEYWORDSET,$MID,0,0,1)

_ArraySwap($KEYWORDSET[$search],$KEYWORDSET[$i])

_ArraySort($KEYWORDSET)

endif

for $i = 1 to Stringlen($MESSAGE)

$msg = Guigetmsg()

if $msg = $button1 Then

Exit

EndIf

$MID = StringMid($MESSAGE,$i,1)

$Search = _ArraySearch($KEYWORDSET,$MID,0,0,1)

$s = mod($search + $i,231)

if $search > -1 then

if $s > 0 Then

FileWrite("E:\ENCRYPT.TXT",$KEYWORDSET[$s])

ElseIf $s > 231 Then

$s = 231 - $search + $i

FileWrite("E:\ENCRYPT.TXT",$KEYWORDSET[$s])

EndIf

TraySetToolTip("Encrypting...")

WEnd

DECRYPTION...