1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 19:05:50 -04:00
perlbuut/bin/decrypt_debug

11 lines
165 B
Perl
Executable file

#!/usr/bin/env perl
use strict;
use warnings;
use lib './lib';
use Bot::BB3::DebugCrypt;
my $data = join ' ', @ARGV;
print "Decrypted: ", decrypt($data), "\n";