#http://developpeur.journaldunet.com/tutoriel/cgi/011022_perlrsa.shtml
use Crypt::RC4; # utilisation du module Crypt::RC4
$encrypted = RC4($publickey,$message); # coté serveur (clé publiable)
$decrypted = RC4($privatekey,$message);  # coté local


# algorithme RC4, clé allant jusqu'à 2048 bits...

#implémentation perl de MD5 : (hachage d'un message)...

#!/usr/bin/perl -0777
@k=unpack('C*',pack('H*',shift));
for(@t=@s=0..255)
{
	$y=($k[$_%@k]+$s[$x=$_]+$y)%256;
	&S;
}
$x=$y=0;
for(unpack('C*',<>))
{
	$x++;
	$y=($s[$x%=256]+$y)%256;
	&S;
	print pack(C,$_^=$s[($s[$x]+$s[$y])%256])
}
sub S
{
	@s[$x,$y]=@s[$y,$x]
}

Lire les commentaires | Laisser un commentaire