Write own decryption application Post: 302496550

Sponsored Content

Top Forums Programming Write own decryption application Post 302496550 by caciing_help on Monday 14th of February 2011 11:31:41 AM

02-14-2011

Registered User

have made some more amendments - still not working - perl install error at the moment (am working on that)

but am sure code is not correct either

anyone got any input they want to make?

Code:

#!/usr/local/bin/perl
use warnings;
use Crypt::Rijndael;
use Crypt::CBC;
#use Digest::SHA qw(sha512_hex);
use Digest::SHA;
 
 
#--------------------------------------------------------------------
# Parameters
#--------------------------------------------------------------------
my $my_key;
my $plain_text;
my $encrypted = "VACT_MEM_FIN_20110207.csv.enc";
my $cipher;
my $buffer;
my $decrypted = $encrypted;
#$decrypted =~ s/\.enc/\.txt/;
$decrypted="VACT_MEM_FIN_20110207.csv";
my $meth ="Crypt::OpenSSL::AES";

$my_key ='vactV@20110207';
$cipher = Crypt::CBC->new( {'literal_key'      => 1,
                            'key'             => $my_key,
                            #'cipher'          => 'Rijndael',
                            'keysize'         => 32,
                            'blocksize'       => 128,
                             'cipher' => $meth
                           });
#--------------------------------------------------------------------
# Decryption
#--------------------------------------------------------------------
open(FH_encrypted, "<$encrypted");
open(FH_decrypted, ">$decrypted");
$cipher->start('decrypting');
while (read(FH_encrypted,$buffer,1851)) {
   print FH_decrypted $cipher->crypt($buffer);
}
print FH_decrypted $cipher->finish;
close FH_encrypted;
close FH_decrypted;

caciing_help

View Public Profile for caciing_help

Find all posts by caciing_help

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Decryption software

whats the most sufficient way to make decryption software? What are the recoomendations for one?

2. UNIX for Advanced & Expert Users

which port to write my server application?

I want to write a server application that would accept HTTP requests from client. The server would be on a machine that has no connection to the INTERNET. The clients that would be posting their HTTP requests would be doing so through webbrowser .Thus it would be sort of intranet application....

3. Programming

how to write application for 32 com port

Dear Sir, i m going to use NP5610-16 moxa device for multiport serial communication. i m using fedora-core 6 o.s. after installation it will detect serial ports as /dev/ttyr0,/dev/ttyr1...ttyr32. there are total 32 com ports. now i want to write application which monitor all serial ports and...

4. IP Networking

read/write,write/write lock with smbclient fails

Hi, We have smb client running on two of the linux boxes and smb server on another linux system. During a backup operation which uses smb, read of a file was allowed while write to the same file was going on.Also simultaneous writes to the same file were allowed.Following are the settings in the...

5. Shell Programming and Scripting

Password decryption

Hi, I don't know if I am in a correct category with my question. I want to know what decryption-method is used for this password: (1) The first stadium is (its stored in the settings.xml of my software):...

6. Shell Programming and Scripting

decryption issue!

Hi, Something bizarre is happening while decrypting the files. I had a decrypt script which was working smoothly on uname -a Linux ######### 2.6.9-89.ELsmp #1 SMP Mon Apr 20 10:33:05 EDT 2009 x86_64 x86_64 x86_64 GNU/Linux After the front-end application was moved to uname -a Linux...

7. UNIX for Dummies Questions & Answers

decryption of .cpt file

Hi i have the path for encrytion file in unix and i want to decrypt the .cpt file in unix and change the password how can i do that .

8. Shell Programming and Scripting

String encryption and decryption

Hello All, There are so many questions on this and I didn't find any concluded answer. I want to encrypt a string in the script, actually this is a password. I tried using openssl (I am a newbie to openssl), but it is generating a long one which we can't remember. I want to encrypt the...

9. Web Development

Apache2 web application- Submit button - write data into a file

Hello, I am newbie on php-mysql and just know only installation. I have an apache2+php5+mysql installed VPS. What I would like to do is that when visitor enters requested data shown in index.html, submit button will run a script to save each field into a file. Here is an example shown in...

10. UNIX for Advanced & Expert Users

How to write if condition in shell script for application server?

Hi all, I have a code to create folder in application server through shell script and i want to create if conditional based folder folder=$HOME/test/sample/whatever if ; then echo "$folder already exists, not created." else mkdir -p "$folder" > /dev/null 2>&1 ...

LEARN ABOUT DEBIAN

image::exiftool::aes

Image::ExifTool::AES(3pm)				User Contributed Perl Documentation				 Image::ExifTool::AES(3pm)

NAME

       Image::ExifTool::AES - AES encryption with cipher-block chaining

SYNOPSIS

	 use Image::ExifTool::AES qw(Crypt);

	 $err = Crypt($plaintext, $key, 1);   # encryption

	 $err = Crypt($ciphertext, $key);     # decryption

DESCRIPTION

       This module contains an implementation of the AES encryption/decryption algorithms with cipher-block chaining (CBC) and RFC 2898 PKCS #5
       padding.  This is the AESV2 and AESV3 encryption mode used in PDF documents.

EXPORTS

       Exports nothing by default, but "Crypt" may be exported.

METHODS

   Crypt
       Implement AES encryption/decryption with cipher-block chaining.

       Inputs:
	   0) Scalar reference for data to encrypt/decrypt.

	   1) Encryption key string (must have length 16, 24 or 32).

	   2) [optional] Encrypt flag (false to decrypt).

	   3) [optional] Flag to avoid removing padding after decrypting, or to avoid adding 16 bytes of padding before encrypting when data
	   length is already a multiple of 16 bytes.

       Returns:
	   On success, the return value is undefined and the data is encrypted or decrypted as specified.  Otherwise returns an error string and
	   the data is left in an indeterminate state.

       Notes:
	   The length of the encryption key dictates the AES mode, with lengths of 16, 24 and 32 bytes resulting in AES-128, AES-192 and AES-256.

	   When encrypting, the input data may be any length and will be padded to an even 16-byte block size using the specified padding
	   technique.  If the encrypt flag has length 16, it is used as the initialization vector for the cipher-block chaining, otherwise a
	   random IV is generated.  Upon successful return the data will be encrypted, with the first 16 bytes of the data being the CBC IV.

	   When decrypting, the input data begins with the 16-byte CBC initialization vector.

BUGS

       This code is blindingly slow.  But in truth, slowing down processing is the main purpose of encryption, so this really can't be considered
       a bug.

AUTHOR

       Copyright 2003-2011, Phil Harvey (phil at owl.phy.queensu.ca)

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

REFERENCES

       <http://www.hoozi.com/Articles/AESEncryption.htm>
       http://www.csrc.nist.gov/publications/fips/fips197/fips-197.pdf <http://www.csrc.nist.gov/publications/fips/fips197/fips-197.pdf>
       <http://www.faqs.org/rfcs/rfc3602.html>

SEE ALSO

       Image::ExifTool(3pm)

perl v5.12.4							    2011-03-04						 Image::ExifTool::AES(3pm)

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Decryption software

Discussion started by: Phatress

2. UNIX for Advanced & Expert Users

which port to write my server application?

Discussion started by: rraajjiibb

3. Programming

how to write application for 32 com port

Discussion started by: amitpansuria

4. IP Networking

read/write,write/write lock with smbclient fails

Discussion started by: swatidas11