Twenty Year Anniversary

XOR File Encryption / Decryption

XOR File Encryption / Decryption
Posted Apr 10, 2018
Authored by Todor Donev

Script to perform basic XOR file encryption / decryption.

tags | tool, cracker
MD5 | 6d819a15e2f76aff3b5ae44bea5b8f22

XOR File Encryption / Decryption

Change Mirror Download
#!/usr/bin/perl
#
# XOR FILE Encryption/Decryption
#
# Copyright 2018 (c) Todor Donev <todor.donev at gmail.com>
# https://ethical-hacker.org/
# https://facebook.com/ethicalhackerorg
#
# Disclaimer:
# This or previous programs is for Educational
# purpose ONLY. Do not use it without permission.
# The usual disclaimer applies, especially the
# fact that Todor Donev is not liable for any
# damages caused by direct or indirect use of the
# information or functionality provided by these
# programs. The author or any Internet provider
# bears NO responsibility for content or misuse
# of these programs or any derivatives thereof.
# By using these programs you accept the fact
# that any damage (dataloss, system crash,
# system compromise, etc.) caused by the use
# of these programs is not Todor Donev's
# responsibility.
#
# Use them at your own risk!
#

use warnings;
use strict;

print "[ XOR FILE Encryption/Decryption\n";
print "[ ======\n";
print "[ Author: Todor Donev <todor.donev at gmail.com>\n";
print "[ https://ethical-hacker.org/\n";
print "[ https://fb.com/ethicalhackerorg\n";
print "[ ======\n";
die "[ Usage: $0 <hex key> <input file> <output file>\n" if(@ARGV != 3);
my $key = chr(hex($ARGV[0]));
print "[ Opening $ARGV[1]\n";
open(IN, "<$ARGV[1]") or die "[ Error: Can't read $ARGV[1]: $!\n";
print "[ Error: $ARGV[1] is empty file\n" and exit if (-z $ARGV[1]);
open(OUT, ">$ARGV[2]") or die "[ Error: Can't wrote $ARGV[2]: $!\n";
binmode(IN); binmode(OUT);
print "[ Calculation..\n";
while( sysread(IN,my $in,length($key))) {
print OUT $in^substr($key,0,length($in));
}
print "[ Ready and $ARGV[2] file is closed.\n";
close(IN);
close(OUT);

Comments

RSS Feed Subscribe to this comment feed

No comments yet, be the first!

Login or Register to post a comment

File Archive:

November 2018

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Nov 1st
    10 Files
  • 2
    Nov 2nd
    15 Files
  • 3
    Nov 3rd
    2 Files
  • 4
    Nov 4th
    2 Files
  • 5
    Nov 5th
    32 Files
  • 6
    Nov 6th
    27 Files
  • 7
    Nov 7th
    8 Files
  • 8
    Nov 8th
    9 Files
  • 9
    Nov 9th
    17 Files
  • 10
    Nov 10th
    2 Files
  • 11
    Nov 11th
    2 Files
  • 12
    Nov 12th
    33 Files
  • 13
    Nov 13th
    29 Files
  • 14
    Nov 14th
    23 Files
  • 15
    Nov 15th
    45 Files
  • 16
    Nov 16th
    0 Files
  • 17
    Nov 17th
    0 Files
  • 18
    Nov 18th
    0 Files
  • 19
    Nov 19th
    0 Files
  • 20
    Nov 20th
    0 Files
  • 21
    Nov 21st
    0 Files
  • 22
    Nov 22nd
    0 Files
  • 23
    Nov 23rd
    0 Files
  • 24
    Nov 24th
    0 Files
  • 25
    Nov 25th
    0 Files
  • 26
    Nov 26th
    0 Files
  • 27
    Nov 27th
    0 Files
  • 28
    Nov 28th
    0 Files
  • 29
    Nov 29th
    0 Files
  • 30
    Nov 30th
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2018 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close