|
Programma di esempio ENCRYPT.PRT |
; ENCRYPT
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Cifra 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 "Scrive su destinazione il file \"nomefile\" " \
"cifrato con 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 = 1 TO VECLEN(V)
CRYPT(@S, VECGET(V, X))
NEXT
PRINT S
FI
LOOP
FCLOSE(H)
ABORT 0