TNPM/decryptpass.pl

#!/usr/bin/perl -w

$FudgeFactor = "50544242475b425a505250544242475b425a5552525f45474b594b56575950524a53515c484341584d57515f585c484341584d57515a585e434444544f5e5d585651455e545d4049405e4e585c5e55544049405e4e585c5e50544242475b425a555257574651595841414a5f485b5353545948414a5f485b5353545c484341584d57515a5d564052565544404255495d505c595845494255495d505c59584049405e4e585c5e555c4154555a4945435d435c565f565544444a5d435c565f565544414a5f485b535351544b5553594648465c4b565759555a494547554b565759555a49454255495d505c5c50435f525f45474b594a5e5d58535946484658435e5d5853594648465d435c565f535d4757585e434444544f5f5552525f45474b594e565552525f45474b594b56575950524a5350544242475b425a545a585e4344";

$encrypted = shift @ARGV;
#$realplain = shift @ARGV || "";

#print "$encrypted\n";

$encrypted =~ y/A-P/0-9a-f/;
#print "$encrypted\n";

@echars = unpack("A2"x(length($encrypted)/2), $encrypted);
@fchars = unpack("A2"x(length($encrypted)/2), $FudgeFactor);

$plaintext = "";

foreach $ec (@echars) {
    $fc = shift @fchars;

    # unfudge and de-magic byte
    $p = hex($ec) ^ hex($fc);

    # print decrypted char
    $plaintext .= chr($p);
#    print "$ec/$fc -> $p\n";
}
print "$plaintext\n";


# amqpslzodk
# amqpslzodk
# amqpslzodk
# derf.19324
# 7854919324
# 7851932478
# 5193247850

# 00001600: 616d 7170 736c 7a6f 646b 616d 7170 736c  amqpslzodkamqpsl
# 00001610: 7a6f 646b 616d 7170 736c 7a6f 646b 6465  zodkamqpslzodkde
# 00001620: 7266 0031 3933 3234 3738 3534 3931 3933  rf.1932478549193
# 00001630: 3234 3738 3531 3933 3234 3738 3531 3933  2478519324785193
# 00001640: 3234 3738 3530 0000 0000 0000 0000 0000  247850

# PTBBG[BZPR
# PTBBG[BZUR
# R_EGKYKVWY
# PRJSQ\HCAX
# MWQ_X\HCAX
# MWQZX^CDDT
# O^]XVQE^T]
#
# @I@^NX\^UT
# @I@^NX\^PT
# BBG[BZURWW
# FQYXAAJ_H[
# SSTYHAJ_H[
# SST\HCAXMW
# QZ]V@RVUD@
#
# BUI]P\YXEI
# BUI]P\YX@I
# @^NX\^U\AT
# UZIEC]C\V_
# VUDDJ]C\V_
# VUDAJ_H[SS
# QTKUSYFHF\
#
# KVWYUZIEGU
# KVWYUZIEBU
# I]P\\PC_R_
# EGKYJ^]XSY
# FHFXC^]XSY
# FHF]C\V_S]
# GWX^CDDTO_
#
# URR_EGKYNV
# URR_EGKYKV
# WYPRJSPTBB
# G[BZTZX^CD