Description |
The following procedure decodes a text file (handle t) that was encrypted by EncodeB64() before back to a binary file:
PROCEDURE ReadB64(binary_file : STRING; t : INTEGER)
VAR f : INTEGER
IF f:=rewrite(binary_file) THEN
WHILE NOT EOT(t) DO
write(f,DecodeB64(readln(t)))
END
close(f)
END
ENDPROC
|