39 lines
836 B
NASM
39 lines
836 B
NASM
cryptocmdENCRYPT: .db "ENCRYPT", 0
|
|
cryptocmdENCRYPTo: .db $40
|
|
cryptocmdENCRYPTm: .db "Encrypts a string using a cypher. see 'ENCRYPT HELP' for info on cyphers", 0
|
|
cryptocmdENCRYPTu: .db "ENCRYPT <Crypt Command>", 0
|
|
cryptocmdENCRYPTf:
|
|
cryptocmdENCRYPTfArg0:
|
|
ld hl, FshCmdArgFlags
|
|
bit 0, (hl)
|
|
jr z, cryptocmdENCRYPTfArg0Get
|
|
bit 1, (hl)
|
|
jr z, cryptocmdENCRYPTfExe
|
|
ld hl, ErrUsageo
|
|
call ErrSet
|
|
call ErrCatch
|
|
cryptocmdENCRYPTfArg0Get:
|
|
ld hl, cryptocmdENCRYPTfSCypher
|
|
call printprompt
|
|
ld hl, FshCmdArg0
|
|
ld de, FshCmdInptSize
|
|
call inputstr
|
|
call _NewLine
|
|
cryptocmdENCRYPTfExe:
|
|
ld hl, FshCmdArg0
|
|
ld de, cryptocmdROT
|
|
call strcmp
|
|
jp z, cryptocmdROTf
|
|
|
|
ld hl, FshCmdArg0
|
|
ld de, FshCmd
|
|
call strcpy
|
|
|
|
ld hl, ErrCmdNotFoundo
|
|
ld de, FshCmdErrCode
|
|
call bytecpy
|
|
call ErrSet
|
|
jp Err
|
|
|
|
cryptocmdENCRYPTfSCypher: .db "Cypher= ", 0
|