The following applications invoke the [tcllib] [base64] encoding/decoding package.

They are intended to be a pair of applications allowing the user to encode
an arbitrary file or data presented on standard input, or decode an encoded
file or data .


 #! /usr/tcl84/bin/tclsh
 package require base64
 # Purpose: read stdin or a file on the argument line and output to stdout
 #      a base64 encoding of the file.
 
 if { $argc > 0 } {
        set fin [open [lindex $argv 1] "r"]
 } else {
        set fin stdin
 }
 while { ! [eof $fin] } {
        set input [read $fin 1024]
        puts [::base64::encode $input]
 }
 close $fin

----

 #! /usr/tcl84/bin/tclsh
 package require base64
 # Purpose: read stdin or a file on the argument line and output to stdout
 #      a base64 decoding of the file.
 
 if { $argc > 0 } {
        set fin [open [lindex $argv 1] "r"]
 } else {
        set fin stdin
 }
 while { ! [eof $fin] } {
        set input [read $fin 1024]
        puts [::base64::decode $input]
 }
 close $fin

----
[Category Application]