sub codieren{ $_[0] = join(" ",reverse split(" ",$_[0])); $_[0] =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/nopqrstuvwxyzabcdefghijklmUVWXYZABCDEFGHIJKLMNOPQRST6543219870/d; return($_[0]);} sub decodieren{$_[0] = join(" ",reverse split(" ",$_[0])); $_[0] =~ tr/nopqrstuvwxyzabcdefghijklm/abcdefghijklmnopqrstuvwxyz/d; $_[0] =~ tr/UVWXYZABCDEFGHIJKLMNOPQRST/ABCDEFGHIJKLMNOPQRSTUVWXYZ/d; $_[0] =~ tr/6543219870/0123456789/d; return($_[0]);}