Sponsored Content
Top Forums Shell Programming and Scripting Problem of encrypt openssl RC4 Post 303024672 by Xremix30 on Sunday 14th of October 2018 12:56:31 PM
Old 10-14-2018
Problem of encrypt openssl with cypher RC4

Hi Guys sorry about post the code in portuguese but now i fix almost parts of code. now i can encryped and decryped the files but have a small problem. When not writte nathing generate automatically a random cypher but after the value of this cypher not appear igual than variable $saved_key. And used this value modifacate for decrypt file and i can see nathing because not use the correct cypher. How can fix this?

This my code modificate;

Code:
 

file_key="cypher.txt"
saved_key=$(cat cypher.txt)

menu_Start(){
clear_screen
echo ---------------------------------------------------
echo                  Manufactory RC4 OpenSSL
echo ---------------------------------------------------
echo ""
echo 1 - RC4 little used
echo Insert the cypher most be used:

read option_menu

case $option_menu in
1) menu;;
esac

}


menu(){
clear_screen

echo "REVERSE CRYPTO 4"
echo ""
echo "1 -> Encrypt"
echo "2 -> Decrypt"
echo "3 -> go back last menu"
echo "Choise the number of options:"

read option

case $option in
0);;	
1) encrypt_RC4 ;;
2) decrypt_RC4 ;;
esac
}

encrypt_RC4() {
clear_screen

name="RC4"
echo -n "Insert the cypher hex that you want created:"; read CYPHER
echo $CYPHER > $file_key

# Problem in this part when generated the cypher

if [[ -z "$CYPHER" ]]; then
echo $(openssl rand -hex 8) > $file_key # generated the cypher principal ex: abcdc34ba
fi
#--------------------------------------------------------------------------------------------------------
cat $file_key

echo -n "Insert the name of file for encrypted:"; read IN_FILE   
echo -n "Insert the name of file for out:"; read OUT_FILE
if [[ -z "$IN_FILE" ]]; then
   echo "The file was cypher"	
fi

case $option_menu in
1) algorithm_encryptRC4 ;;
esac

echo "The cypher used is: " $name
echo "The key of cypher is: " $saved_key # show other random cypher ex:abc45aec and used this value.
echo "The file created was:" $OUT_FILE
echo "The file exclued is:" $IN_FILE
}


decrypt_RC4() {
clear_screen

echo -n "Insert the name of the file encryped:"; read OUT_FILE
echo -n "Insert the name of the file for decrypting:"; read IN_FILE

if [[ -z "$OUT_FILE" ]]; then
	echo 
fi

case $option_menu in
1) algorithm_decryptRC4 ;;
esac


echo "The key used is: " $saved_key
echo "The file created was: " $IN_FILE
echo "The file exclued was: " $OUT_FILE	

}


algorithm_encryptRC4(){
openssl enc -rc4 -e -K "$saved_key" -in "$IN_FILE.txt" -out "$OUT_FILE.rc4"
}

algorithm_decryptRC4(){	
openssl enc -rc4 -d -K "$saved_key" -in "$OUT_FILE.rc4" -out "$IN_FILE.txt"
}

clear_screen(){
clear
}

menu_Start


Last edited by Xremix30; 10-15-2018 at 08:58 PM.. Reason: Because my code was Portuguese
 

5 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

solaris 9 openssl make problem with ld

i've seen a few posts regarding this issue, and i've tried the resolutions, but i keep running into the same problem. i'm trying to compile OpenSSL with the use of rsaref-2.0 (i'm running through this tutorial... (1 Reply)
Discussion started by: xyyz
1 Replies

2. Solaris

NRPE Compiling problem with OpenSSL 1.0

I am trying to compile nrpe 2.12 against openssl 1.0 on Solaris 10 however I am getting core dumps for some reason. Anyone know a way to fix this? Here is the output of make: bash-3.00# make all cd ./src/; make ; cd .. gcc -g -fPIC -Wall -O2 -I/usr/local/ssl/include... (0 Replies)
Discussion started by: _JPL_
0 Replies

3. UNIX for Dummies Questions & Answers

openssl dgst cat header problem

I am trying to run an old script to modify an image file with a modified header to bypass the md5 check but it comes up with an error message. The image file is for use on a Expressgate SSD so that I can add sqx files to it. This is a link from where I got the script:-... (3 Replies)
Discussion started by: r1speedyrider
3 Replies

4. Solaris

Solaris v Ubuntu using OpenSSL paste problem

Hello, I hope this means something to someone. I have an odd problem that just started happening recently. I am not the system admin, so I don't have full info on any changes to the system lately. Except that I did upgrade OpenSSL to version 1.0.1.c from 1.0.0j. Anyway, I am trying to... (4 Replies)
Discussion started by: jonycp
4 Replies

5. Shell Programming and Scripting

Openssl scripting problem

im trying to make sure the openssl password does not show up in the output of ps. so i'm trying to do something like this: MAST=yup echo "U2FsdGVkX19wH9LrQhuRZes45BM9rfiRpdhTCi+gLls=" | openssl <<HERE 2>&1 >/dev/null aes-128-cbc -a -d -salt -k "${MAST}" HERE But this isn't working.. I... (10 Replies)
Discussion started by: SkySmart
10 Replies
Crypt::DES_EDE3(3pm)					User Contributed Perl Documentation				      Crypt::DES_EDE3(3pm)

NAME
Crypt::DES_EDE3 - Triple-DES EDE encryption/decryption SYNOPSIS
use Crypt::DES_EDE3; my $ede3 = Crypt::DES_EDE3->new($key); $ede3->encrypt($block); DESCRIPTION
Crypt::DES_EDE3 implements DES-EDE3 encryption. This is triple-DES encryption where an encrypt operation is encrypt-decrypt-encrypt, and decrypt is decrypt-encrypt-decrypt. This implementation uses Crypt::DES to do its dirty DES work, and simply provides a wrapper around that module: setting up the individual DES ciphers, initializing the keys, and performing the encryption/decryption steps. DES-EDE3 encryption requires a key size of 24 bytes. You're probably best off not using this module directly, as the encrypt and decrypt methods expect 8-octet blocks. You might want to use the module in conjunction with Crypt::CBC, for example. This would be DES-EDE3-CBC, or triple-DES in outer CBC mode. USAGE
$ede3 = Crypt::DES_EDE3->new($key) Creates a new Crypt::DES_EDE3 object (really, a collection of three DES ciphers), and initializes each cipher with part of $key, which should be at least 24 bytes. If it's longer than 24 bytes, the extra bytes will be ignored. Returns the new object. $ede3->encrypt($block) Encrypts an 8-byte block of data $block using the three DES ciphers in an encrypt-decrypt-encrypt operation. Returns the encrypted block. $ede3->decrypt($block) Decrypts an 8-byte block of data $block using the three DES ciphers in a decrypt-encrypt-decrypt operation. Returns the decrypted block. $ede3->blocksize Returns the block size(8). $ede3->keysize Returns the key size(24). LICENSE
Crypt::DES_EDE3 is free software; you may redistribute it and/or modify it under the same terms as Perl itself. AUTHOR &; COPYRIGHTS Crypt::DES_EDE3 is Copyright 2001 Benjamin Trott, ben@rhumba.pair.com. All rights reserved. perl v5.8.8 2001-09-15 Crypt::DES_EDE3(3pm)
All times are GMT -4. The time now is 09:16 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy