Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.204
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
AuthEnc	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
CAST5_PP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Checksum	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Cipher	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
DSA	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Digest	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mac	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mode	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
OpenPGP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
OpenSSL	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PK	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PRNG	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
RIPEMD160	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
RSA	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Random	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
SSLeay	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Stream	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
AuthEnc.pm	152 B	-rw-rw-rw-	2020-08-25 11:02
Blowfish.pm	4.66 KB	-rw-rw-rw-	2013-07-24 00:48
CAST5_PP.pm	8.57 KB	-rw-rw-rw-	2006-07-01 20:57
CBC.pm	36.75 KB	-rw-rw-rw-	2013-07-31 00:01
Checksum.pm	2.2 KB	-rw-rw-rw-	2020-08-25 11:02
Cipher.pm	4.09 KB	-rw-rw-rw-	2020-08-25 11:02
DES.pm	3.43 KB	-rw-rw-rw-	2013-07-24 00:41
DES_EDE3.pm	2.68 KB	-rw-rw-rw-	2001-09-15 07:41
DSA.pm	6.82 KB	-rw-rw-rw-	2011-06-17 05:46
Digest.pm	9.12 KB	-rw-rw-rw-	2020-08-25 11:02
IDEA.pm	1.31 KB	-rw-rw-rw-	2013-07-24 00:46
IDEA.pod	1.83 KB	-rw-rw-rw-	2005-12-08 19:38
KeyDerivation.pm	3.65 KB	-rw-rw-rw-	2020-08-25 11:02
Mac.pm	711 B	-rw-rw-rw-	2020-08-25 11:02
Misc.pm	14.59 KB	-rw-rw-rw-	2020-08-25 11:02
Mode.pm	146 B	-rw-rw-rw-	2020-08-25 11:02
OpenPGP.pm	58.89 KB	-rw-rw-rw-	2015-08-16 15:28
PK.pm	505 B	-rw-rw-rw-	2020-08-25 11:02
PRNG.pm	6.49 KB	-rw-rw-rw-	2020-08-25 11:02
RC4.pm	4.78 KB	-rw-rw-rw-	2001-12-13 23:41
RC6.pm	1.37 KB	-rw-rw-rw-	2002-03-17 00:50
RIPEMD160.pm	7.24 KB	-rw-rw-rw-	2020-10-22 03:06
RSA.pm	17.05 KB	-rw-rw-rw-	2017-04-27 01:10
Rijndael.pm	3.06 KB	-rw-rw-rw-	2020-10-10 23:28
SSLeay.pm	17.11 KB	-rw-rw-rw-	2014-04-24 19:39
Serpent.pm	2.15 KB	-rw-rw-rw-	2002-03-30 19:05
Twofish.pm	3.29 KB	-rw-rw-rw-	2020-11-25 06:49

Rename

#! /usr/local/bin/perl -w

#
# Copyright (C) 1995, 1996 Systemics Ltd (http://www.systemics.com/)
# All rights reserved.
#

package Crypt::IDEA;

$VERSION="1.10";

require Exporter;
require DynaLoader;

@ISA = (Exporter, DynaLoader);

# Items to export into callers namespace by default
@EXPORT =	qw();

# Other items we are prepared to export if requested
@EXPORT_OK =	qw();

bootstrap Crypt::IDEA;

$VERSION="1.10";

package IDEA;

$VERSION="1.10";

use strict;
use Carp;

sub usage
{
    my ($mess, $package, $filename, $line, $subr);
	($mess) = @_;
	($package, $filename, $line, $subr) = caller(1);
	$Carp::CarpLevel = 2;
	croak "Usage: $package\::$subr - $mess";
}

sub blocksize { 8; }
sub keysize { 16; }

sub new
{
	usage("new IDEA key") unless @_ == 2;

my $type = shift; my $self = {}; bless $self, $type;

$self->{'ks'} = Crypt::IDEA::expand_key(shift);

$self;
}

sub encrypt
{
	usage("encrypt data[8 bytes]") unless @_ == 2;

my $self = shift;
	my $data = shift;

Crypt::IDEA::crypt($data, $data, $self->{'ks'});

$data;
}

sub decrypt
{
	usage("decrypt data[8 bytes]") unless @_ == 2;

my $self = shift;
	my $data = shift;

#
	# Cache Decrypt key schedule
	#
	$self->{'dks'} = Crypt::IDEA::invert_key($self->{'ks'})
										unless exists $self->{'dks'};

Crypt::IDEA::crypt($data, $data, $self->{'dks'});

$data;
}