Re: web cgi forms data security...

[pg]

use strict;
use warnings;

require Digest::MD5;

my $user = "foo";
my $pass = "bar";
my $key = "something";
my $md5 = Digest::MD5->new();
$md5->add(join(":", $key, $user, $pass));
print $md5->hexdigest;

[extremely]

I'm going to be interested in how you propose to retrieve the data from that digest... since it returns a 16 byte one-way hash of the data. :)

Now, to give you credit, you could at least verify that the people hadn't switched up the data from form to form with this. That isn't an unimportant task and worthy of implementing even if the users decides to go with SSL only and just let HTTP and the browser resend the arguments over and over.

[sgifford]

That's actually easy to do. Each time the page loads, you just create a massive distributed computing project to try all possible usernames and passwords.

Might be a little slow, though.

[noname00]

pg,
after md5 encryption can i get back my original data?
with which function?

thanx

[tachyon]

No. The way a hash digest works is to allow you to REHASH the 2 params and the key (in the same order), and see if the hash is the same. It will be if the params have not been tampered with. You sound like you want real encryption. Here are a few handy functions:

my $key = "this key must be kept secret!";

sub generate_MD5_hash {
    my ( $plain_text ) = @_;
    $plain_text = '' unless defined $plain_text;
    require Digest::MD5;
  return Digest::MD5->new->add( $plain_text . $key )->hexdigest;
}

sub validate_MD5_hash {
    my ( $hash, $plain_text ) = @_;
  return 0 unless $hash;
  return 0 unless defined $plain_text;
  return $hash eq generate_MD5_hash($plain_text) ? 1 : 0;
}

sub decrypt {
    return '' unless $_[0] and $_[0] =~ m!^[A-Fa-f0-9]+$!;
    require Crypt::Blowfish;
    require Crypt::CBC;
    my $cipher = new Crypt::CBC( $key, 'Blowfish' )
    return $cipher->decrypt_hex($_[0]);
}

sub encrypt {
    return '' unless defined $_[0];
    require Crypt::Blowfish;
    require Crypt::CBC;
    my $cipher = new Crypt::CBC( $key, 'Blowfish' )
    return $cipher->encrypt_hex($_[0]);
}