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

Want To Donate?


Bitcoin: 18PFeCVLwpmaBuQqd5xAYZ8bZdvbyEWMmU

File Archive:

April 2018

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Apr 1st
    5 Files
  • 2
    Apr 2nd
    17 Files
  • 3
    Apr 3rd
    11 Files
  • 4
    Apr 4th
    21 Files
  • 5
    Apr 5th
    17 Files
  • 6
    Apr 6th
    12 Files
  • 7
    Apr 7th
    1 Files
  • 8
    Apr 8th
    6 Files
  • 9
    Apr 9th
    21 Files
  • 10
    Apr 10th
    18 Files
  • 11
    Apr 11th
    42 Files
  • 12
    Apr 12th
    7 Files
  • 13
    Apr 13th
    14 Files
  • 14
    Apr 14th
    1 Files
  • 15
    Apr 15th
    1 Files
  • 16
    Apr 16th
    15 Files
  • 17
    Apr 17th
    20 Files
  • 18
    Apr 18th
    24 Files
  • 19
    Apr 19th
    20 Files
  • 20
    Apr 20th
    7 Files
  • 21
    Apr 21st
    10 Files
  • 22
    Apr 22nd
    0 Files
  • 23
    Apr 23rd
    0 Files
  • 24
    Apr 24th
    0 Files
  • 25
    Apr 25th
    0 Files
  • 26
    Apr 26th
    0 Files
  • 27
    Apr 27th
    0 Files
  • 28
    Apr 28th
    0 Files
  • 29
    Apr 29th
    0 Files
  • 30
    Apr 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