cedriczirtacic · February 27, 2018 19:50 · NikitaDie · Jan 22, 2021
diff --git a/hexe1 b/hexe1
 6554 6c6c 6d20 2065 6261 756f 2074 6f79
 7275 6620 7661 726f 7469 2065 6168 6b63
 202e 6633 7033 6a39 6f66 6666 3961 646a
 6c73 7333 7240 6465 6162 6c6c 6F6F 736e
 6365 7275 7469 2e79 6f63 0a6d 540d 6C65
 206C 656d 6120 6f62 7475 7920 756F 2072
 6166 6f76 6972 6574 6820 6361 2e6b 3320
 3366 3970 666a 666F 6166 6a39 7364 336C
 4073 6572 6264 6c61 6f6c 6e6f 6573 7563
 6972 7974 632e 6d6F 0d0a
diff --git a/hexe2 b/hexe2
 377ABCAF 271c0003 0241DD5f 17000000 00000000 58000000 00000000 baf0646a 00221bc9
 c273209c aa0f0a55 3f195b82 2e8172d5 83000001 04060001 09170007 0b010001 23030101
 055d0000 01000c11 00080a01 d1da43c2 00000501 111b0064 006f006e 00740066 00750063
 006b0069 00740075 00700000 00140a01 0080f1f4 ceac5ed1 01150601 00208080 81000000
diff --git a/red1.pl b/red1.pl
 #!/bin/env perl -w
 #
 use Data::Dumper;
 open(F, "<hexe1");
 while(<F>) {
    foreach $chars(split / /,$_) {
        my($c1,$c2) = $chars =~ m/([a-f0-9]{2})+?/gi;
        print pack("H*H*", $c2, $c1);
    }
 }
 close(F);
diff --git a/red2.pl b/red2.pl
 #!/bin/env perl -w
 #
 use Data::Dumper;
 open(F, "<hexe2");
 open(E, ">7zipped");
 while(<F>) {
    foreach $chars(split / /,$_) {
        my(@all) = $chars =~ m/([a-f0-9]{2})+?/gi;
        foreach my $c(@all) {
            print E pack("H*", $c);
        }
    }
 }
 close(F);
 close(E);
 END{
    qx{7z x 7zipped};
    print qx{cat dontfuckitup};
 }