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 .
[NOTE: There is something wrong with the code at the bottom - it doesn't work exactly. If I run
encoder < file1 | decoder > file2 ; cmp file1 file2
sometimes I get a match and sometimes no match. Anyone see what is going wrong?
#! /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.
# Version 1.0 by [Larry W. Virden]
# Version 1.1 by [Larry W. Virden] and [Andreas Kupries]
if { $argc > 0 } {
set fin [open [lindex $argv 0] "r"]
} else {
set fin stdin
}
fconfigure $fin -encoding binary
while { ! [eof $fin] } {
set input [read $fin 72]
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.
# Version 1.0 by [Larry W. Virden]
# Version 1.1 by [Larry W. Virden] and [Andreas Kupries]
if { $argc > 0 } {
set fin [open [lindex $argv 1] "r"]
} else {
set fin stdin
}
fconfigure stdout -encoding binary
while { ! [eof $fin] } {
set input [gets $fin]
puts -nonewline stdout [::base64::decode $input]
}
close $fin