dyoc ( do your own crypto )

AES my version based on the one from the link below
 ( mine has Ascii to Hex transform table as i think that its a handy addition to the kit to help you encrypt stuff but the table is only a demo as it works but isn't too handy to use )

This is more of a substitution cypher with a table in the sheet itself its not finished besides the code to generate the table in the Visual Basic style language in Open Office or Excel spreadsheet macro code.

Just ignore the QR code looking thing for now its just a idea to use GIMP to generate crypto using a maze font.  Click on the image for larger easy to read version.

DYOC is a open source crypto idea using sheets in a Excel or Libre Calc workbook.  Each sheet is able to be used as a separate dictionary if you want or you can use just one sheet for the dictionary. The idea is that each letter in the alphabet is represented by a character like if you wanted to use the letter 'c' and use dictionary 1 ( the first row ) you would get the small font 'a' character.

Next is to automate it using macros. Keep tuned !!!! hmm so here is some code to get the dictionary letters to paste down the screen as my program Onyx Cicada doesn't put line feed in so when you load it into the program it say "error too many columns" or something like that. I generated it using OpenOffice Calc ........ for some reason the Macro recorder doesn't work in Libre Calc so you may want to do your macros in that. I have commented the code so you can read
it better. You can download it at the bottom of the screen.

sub test
rem ---------------------------------------------------------------------- uses Open Office (not tested in Libre) macro language ooBasic
rem define variables for com objects to use in cut and paste
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem --------------------------------------------------------------------- copy from this line to another using absolute reference $
rem -- so the macro will always copy from here----

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1:$Z$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ---------------------------------------------------------------------- this code shows where to paste the line
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$A$52"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

end sub

Onyx Cicada54601Dic.csv
Stephen P,
30 Aug 2014, 05:52
Onyx Cicada54601Dic.ods
Stephen P,
30 Aug 2014, 17:28
Stephen P,
30 Aug 2014, 05:52
Stephen P,
5 Jan 2016, 04:02
Stephen P,
12 Jan 2016, 01:23
Stephen P,
30 Aug 2014, 15:29