# [cryptography] Titanic(unhackable encryption?"

Kevin kevinsisco61784 at gmail.com
Thu May 29 17:49:26 EDT 2014

```I began thinking about how hard cryptographers of the future may have to
work to secure systems.  I have come up with an algorithm that will
hopefully get people thinking about so-called unbreakable codes.  The
algorithm follows(don't worry, it's not long):
;Titanic
;by
;Kevin J. Sisco
;encryption algorithm that cannot be hacked!
;I hope that this algorithm will at least open the doorway for air tight
keys
;This algorithm is written in Autoit
;see http://www.autoitscript.com
\$pi = 3.1415926535897932384626433832795
;pi
\$m = MemGetStats()
;store memory array
;percentage of memory in use
\$ram = \$m
;total physical ram
\$avram = \$m
;available physical ram
\$pagefile = \$m
;total pagefile
\$avpagefile = \$m
;available pagefile
\$virtual = \$m
;total virtual
\$avvirtual = \$m
;available virtual
\$memtotal =
;all memory sizes are in kilobytes
\$sec = @SEC
;second value of clock
\$min = @MIN
;minute value of clock
\$hour = @HOUR
;hour value of clock
\$clocktotal = \$hour*\$hour+\$min+\$sec
;clock value total
\$width = @DesktopWidth
;width of display in pixels
\$height = @DesktopHeight
;height of display in pixels
\$desktoptotal = \$width+\$height
;desktop total
\$formula = \$pi*\$pi*\$pi+\$memtotal+\$desktoptotal+\$clocktotal
;formula
\$i = Inputbox(" ", "Enter data.")
;input
\$s = StringToBinary(\$i)
;convert to string
\$shift = BitShift(\$s, 180)
;shift 180 bits to the left
\$t = 50*\$formula+\$s+\$shift
;total
\$f = FileOpen("output.txt", 1)
;open the output stream
FileWriteLine(\$f, \$t)
;write total to stream
FileFlush(\$f)
;flush to disk
FileClose(\$f)
;close the stream

--
Kevin

```