Insertar y leer contraseñas encriptadas .txt

[GunkanX]

Te paso mi modulo de criptografía. lo uso para mi web (<a href='ir.asp?http://gunkan.org/cjapo2' target='_blank'>http://gunkan.org/cjapo2...</a>). Lo más importante es la $KEY (la clave para encriptar y desencriptar). Puedes encriptar todo lo que quieras, aunque yo lo uso sólo para los usuarios.

Las funciones que realmente &quot;hacen algo&quot; con;
enc($tmp)
dec($tmp)
que encriptan o desencriptan los datos.
Lo único raro es &quot;hex2bin&quot; que es una función que uso porque me gusta que la codificación tenga un formato &quot;decente&quot;.

Que lo disfrutes. ;)

Ya sé que pensarás que soy bueno por este código. Nada más lejos de la realidad, simplemente es una modificación de lo que encontré en www.php.net.

//////////Módulo Criptográfico
/////////JJFerres

/////////
$key = &quot;¿Cuando soporte Hash para PHP?&quot;
/////////

function keyED($txt,$encrypt_key)
{
$encrypt_key = md5($encrypt_key);
$ctr=0;
$tmp = &quot;&quot;;
for ($i=0;$i&lt;strlen($txt);$i++)
{
if ($ctr==strlen($encrypt_key)) $ctr=0;
$tmp.= substr($txt,$i,1) ^ substr($encrypt_key,$ctr,1);
$ctr++;
}
return $tmp;
}

function encriptar($txt,$key)
{
srand((double)microtime()*1000000);
$encrypt_key = md5(rand(0,32000));
$ctr=0;
$tmp = &quot;&quot;;
for ($i=0;$i&lt;strlen($txt);$i++)
{
if ($ctr==strlen($encrypt_key)) $ctr=0;
$tmp.= substr($encrypt_key,$ctr,1) .
(substr($txt,$i,1) ^ substr ($encrypt_key,$ctr,1));
$ctr++;
}
return keyED($tmp,$key);
}

function desencriptar($txt,$key)
{
$txt = keyED($txt,$key);
$tmp = &quot;&quot;;
for ($i=0;$i&lt;strlen($txt);$i++)
{
$md5 = substr($txt,$i,1);
$i++;
$tmp.= (substr($txt,$i,1) ^ $md5);
}
return $tmp;
}

function hex2bin($data) {
$len = strlen($data);
for($i=0;$i&lt;$len;$i+=2) {
$newdata .= pack(&quot;C&quot;,hexdec(substr($data,$i,2)));
}
return $newdata;
}

function enc($tmp)
{
$tmp = encriptar($tmp,$key);
return (bin2hex($tmp));
}

function dec($tmp)
{
$tmp = hex2bin($tmp);
return (desencriptar($tmp,$key));