improved Xor

fixed help

includes/CryptoCommands/CryptoCommand.asm

@@ -19,7 +19,7 @@ cryptocmdmanroute:
   subroutestrjp(cryptocmdDECRYPT, cryptocmdunXOR, cryptocmdunXORm)
   
   subroutestrjp(cryptocmdENCRYPT, cryptocmdHELP, cryptocmdHELPm)
-  subroutestrjp(cryptocmdDECRYPT, cryptocmdHELP, cryptocmdHELPm)
+  subroutestrjp(cryptocmdDECRYPT, cryptocmdunHELP, cryptocmdunHELPm)
   
   routestrjp(cryptocmdENCRYPT, cryptocmdENCRYPTm)
   routestrjp(cryptocmdDECRYPT, cryptocmdDECRYPTm)
@@ -37,7 +37,7 @@ cryptocmdmanrouteu:
   subrouteustrjp(cryptocmdDECRYPT, cryptocmdunXOR, cryptocmdunXORu)
   
   subrouteustrjp(cryptocmdENCRYPT, cryptocmdHELP, cryptocmdHELPu)
-  subrouteustrjp(cryptocmdDECRYPT, cryptocmdHELP, cryptocmdHELPu)
+  subrouteustrjp(cryptocmdDECRYPT, cryptocmdunHELP, cryptocmdunHELPu)
   
   routeustrjp(cryptocmdENCRYPT, cryptocmdENCRYPTu)
   routeustrjp(cryptocmdDECRYPT, cryptocmdDECRYPTu)

includes/CryptoCommands/CryptoCommands.inc

@@ -1,9 +1,9 @@
 #include "includes/CryptoCommands/ENCRYPT.asm"
 #include "includes/CryptoCommands/ROT.asm"
 #include "includes/CryptoCommands/XOR.asm"
-
 #include "includes/CryptoCommands/HELP.asm"
 
 #include "includes/CryptoCommands/DECRYPT.asm"
 #include "includes/CryptoCommands/unROT.asm"
 #include "includes/CryptoCommands/unXOR.asm"
+#include "includes/CryptoCommands/unHELP.asm"

includes/CryptoCommands/DECRYPT.asm

@@ -30,7 +30,7 @@ cryptocmdDECRYPTfExe:
 
  cryptocmdDECRYPTcmpjp(cryptocmdunROT, cryptocmdunROTf)
  cryptocmdDECRYPTcmpjp(cryptocmdunXOR, cryptocmdunXORf)
- cryptocmdDECRYPTcmpjp(cryptocmdHELP, cryptocmdHELPf)
+ cryptocmdDECRYPTcmpjp(cryptocmdunHELP, cryptocmdunHELPf)
  
  ld hl, FshCmdArg0
  ld de, FshCmd

includes/CryptoCommands/HELP.asm

@@ -61,6 +61,7 @@ cryptocmdHELPfExe:
 #endmacro
 
  cryptocmdHELPmRowU(cryptocmdROT, cryptocmdROTu)
+ cryptocmdHELPmRowU(cryptocmdXOR, cryptocmdXORu)
 
  call _NewLine
  jp Fin

includes/CryptoCommands/ROT.asm

@@ -1,6 +1,6 @@
 cryptocmdROT:  .db "ROT", 0
 cryptocmdROTm: .db "ROT: Cypher, rotates the alphabet and encodes a string", 0
-cryptocmdROTu: .db "ENCRYPT ROT <shift#>", 0
+cryptocmdROTu: .db "ENCRYPT ROT <shift#> <message>", 0
 cryptocmdROTf:
 cryptocmdROTfArg1: 
  ld hl, FshCmdArgFlags

includes/CryptoCommands/XOR.asm

@@ -1,6 +1,6 @@
 cryptocmdXOR:  .db "XOR", 0
 cryptocmdXORm: .db "XOR: Cypher, and encodes a string", 0
-cryptocmdXORu: .db "ENCRYPT XOR <Key> <Message>", 0
+cryptocmdXORu: .db "ENCRYPT XOR <key> <message>", 0
 cryptocmdXORf:
 cryptocmdXORfArg1: 
  ld hl, FshCmdArgFlags
@@ -34,7 +34,7 @@ cryptocmdXORfArg2Get:
  ld hl, cryptocmdXORfDMessage
  call printprompt
  ld hl, FshScratch
- ld de, FshScratchSize - 4
+ ld de, FshScratchSize - 1 / 2
  call inputcharstr
  call _NewLine
 cryptocmdXORfExe:

includes/CryptoCommands/unHELP.asm

@@ -0,0 +1,69 @@
+cryptocmdunHELP:  .db "HELP", 0
+cryptocmdunHELPm: .db "Help for cyphers", 0
+cryptocmdunHELPu: .db "DECRYPT HELP", 0
+cryptocmdunHELPf:
+ ld hl, FshCmdArgFlags
+ bit 2, (hl)
+ jr z, cryptocmdunHELPfExe
+ ld hl, ErrUsageo
+ call ErrSet
+ call ErrCatch
+cryptocmdunHELPfExe:
+ ld hl, cryptocmdunHELPfLine1
+ call _PutS
+ call _NewLine
+
+#macro cryptocmdunHELPmRow1(cmdXs)
+ xor a
+ ld (curCol), a
+ ld hl, cmdXs
+ call _PutS
+ call _NewLine
+#endmacro
+#macro cryptocmdunHELPmRowU(cmdXs, cmdXu)
+ xor a
+ ld (curCol), a
+ ld hl, cmdXs
+ call _PutS
+ ld a, ':'
+ call _PutC
+ ld a, ' '
+ call _PutC
+ ld hl, cmdXu
+ call _PutS
+ call _NewLine
+#endmacro
+#macro cryptocmdunHELPmRow2(cmdXs, cmdYs)
+ xor a
+ ld (curCol), a
+ ld hl, cmdXs
+ call _PutS
+ ld a, 9
+ ld (curcol), a
+ ld hl, cmdYs
+ call _PutS
+ call _NewLine
+#endmacro
+#macro cryptocmdunHELPmRow3(cmdXs, cmdYs, cmdZs)
+ xor a
+ ld (curCol), a
+ ld hl, cmdXs
+ call _PutS
+ ld a, 9
+ ld (curcol), a
+ ld hl, cmdYs
+ call _PutS
+ ld a, 19
+ ld (curcol), a
+ ld hl, cmdZs
+ call _PutS
+ call _NewLine
+#endmacro
+
+ cryptocmdunHELPmRowU(cryptocmdunROT, cryptocmdunROTu)
+ cryptocmdunHELPmRowU(cryptocmdunXOR, cryptocmdunXORu)
+
+ call _NewLine
+ jp Fin
+
+cryptocmdunHELPfLine1: .db "Available Cryptos:", 0

includes/CryptoCommands/unXOR.asm

@@ -1,6 +1,6 @@
 cryptocmdunXOR:  .db "XOR", 0
 cryptocmdunXORm: .db "XOR: Cypher, and decodes a string", 0
-cryptocmdunXORu: .db "DECRYPT XOR", 0
+cryptocmdunXORu: .db "DECRYPT XOR <key>", 0
 cryptocmdunXORf:
 cryptocmdunXORfArg1: 
  ld hl, FshCmdArgFlags
@@ -53,7 +53,6 @@ cryptocmdunXORfArg2GetLoop:
  inc bc
  jr cryptocmdunXORfArg2GetLoop
 cryptocmdunXORfArg2GetLoopEnd: 
- 
  call _NewLine
 cryptocmdunXORfExe:
  ld hl, cryptocmdunXORfStringPBuffer

includes/FshCommands/HELP.asm

@@ -52,6 +52,7 @@ fshcmdHELPfExe:
  fshcmdHELPmRow3(fshcmdMOVE, fshcmdCLS, fshcmdVAR)
  fshcmdHELPmRow3(fshcmdVARS, fshcmdSLEEP, fshcmdINFO)
  fshcmdHELPmRow2(fshcmdHELP, fshcmdMAN)
+ fshcmdHELPmRow2(cryptocmdENCRYPT, cryptocmdDECRYPT)
  ; Extention Point
 
  call _NewLine

includes/Text.inc

@@ -7,7 +7,7 @@ FshVVars:      .db "64w", 0
 FshVMajor:     .db "0", 0
 FshVMinor:     .db "1", 0
 FshVPatch:     .db "0", 0
-FshVBuild:     .db "464", 0 
+FshVBuild:     .db "490", 0 
 FshVSeparator: .db ".", 0
 FshMotd2nd: .db "Press 2nd for numbers", 0
 FshMotdHelp: .db "Type 'HELP' for help", 0

includes/lib/crypto/Xor.asm

@@ -60,7 +60,7 @@ xorcryptNSmaller2:
      inc b
 xorcryptPadLoop:
      inc hl
-     ld (hl), $11
+     ld (hl), 'e'
      djnz xorcryptPadLoop
 xorcryptPadLoopEnd:
     pop bc
@@ -77,6 +77,10 @@ xorcryptEnd:
   ;or a, a
   ;jr z, xorcryptRandLoopEnd
   ;call randomint
+  ;or a, a
+  ;jr nz, xorcryptRandLoopLD
+  ;ld a, '/'
+;xorcryptRandLoopLD:
   ;ld (hl), a
   ;inc hl
   ;jr xorcryptRandLoop

includes/lib/std/String.asm

@@ -274,6 +274,10 @@ strxorLoop:
    or a, a
    jr z, strxorEnd
    xor (hl)
+   or a, a
+   jr nz, strxorLoopLD
+   ld a, (hl)
+strxorLoopLD:
    ld (de), a
    inc de
    inc hl