/usr/share/doc/crack-common/examples/b64encode is in crack-common 5.0a-9.3.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | : # use perl -*- mode: perl; -*-
###
# This program was written by and is copyright Alec Muffett 1991,
# 1992, 1993, 1994, 1995, and 1996, and is provided as part of the
# Crack v5.0 Password Cracking package.
#
# The copyright holder disclaims all responsibility or liability with
# respect to its usage or its effect upon hardware or computer
# systems, and maintains copyright as set out in the "LICENCE"
# document which accompanies distributions of Crack v5.0 and upwards.
###
eval 'exec perl -Ss $0 "$@"'
if $runnning_under_some_shell;
$b64blksz = 54;
sub b64encode
{
$i = shift;
$o = "";
@bytes = unpack("C*", $i);
while (($a, $b, $c) = splice(@bytes, 0, 3))
{
$val = ($a << 16) | ($b << 8) | $c;
$w = ($val & 077000000) >> 18;
$x = ($val & 0770000) >> 12;
$y = ($val & 07700) >> 6;
$z = ($val & 077);
$o .= pack("C*", $w, $x,
(defined($b) ? $y : 64),
(defined($c) ? $z : 64));
}
$o =~ tr!\000-\100!A-Za-z0-9+/=!;
$o;
}
while (read(STDIN, $buffer, $b64blksz))
{
print &b64encode($buffer), "\n";
}
exit 0;
|