|
Programma di esempio DECRYPT.PRT |
; DECRYPT
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Decifra il primo file specificato con le chiavi indicate; se si desidera
; specificare pił di una chiave, racchiuderle tra virgolette.
IF OR(ISEMPTY(ARGV(5)), ISEMPTY(ARGV(6)))
CONSOLELN "Sintassi: " ARGV(1) " " ARGV(2) \
" .. destinazione nomefile \"chiave [chiave..]\""
CONSOLELN ""
CONSOLELN "Scopo: decifra \"nomefile\" in destinazione attraverso " \
"le chiavi indicate."
ABORT 0
FI
H = FOPEN(ARGV(5), 1)
IF EQ(H, -1)
CONSOLELN "File \"" ARGV(5) "\" non trovato."
ABORT 1
FI
V = VECSPLIT(STRIPQUOTES(ARGV(6)), " ")
WHILE NOT(FEOF(H))
S = FREAD(H, 4096)
IF STRLEN(S)
FOR X = VECLEN(V) TO 1 STEP -1
DECRYPT(@S, VECGET(V, X))
NEXT
PRINT S
FI
LOOP
FCLOSE(H)
ABORT 0