Haber, escribe tu duda aqui ahora.

Es bueno que te leas un libro, además creo que no esta permitido escribir 3 mismos posts seguidos, ves editando.

Function SacaR(num1 As String, num2 As String)
Dim total As String
If num1 >= num2 Then
SacaR = num1 / num2
total = 100 - SacaR
MsgBox total
ElseIf num2 >= num1 Then
 
SacaR = num2 / num1
total = 100 - SacaR
MsgBox total
End If
End Function

Te sirve?
Me ABURRÍA y me comí la cabeza x'dd

Ajusta el TextBox a las medidas que quieras y pon en True la propiedad Multiline

Me equivoqué, para cifrar es:

$pass = crypt("lapass","lipmanesfeo");

¿Que si se puede descifrar desde la funcion crypt...?
Creo que no, en el login haces lo siguiente:

<? if(isset($_post['usuario'])){
$contraseña = $_POST['contraseña'];
if(crypt($contraseña,"limpanesfeo") == lacontraseñaguardada){
Login
}else{
COntraseña incorrecta
}
}
?>
<form action="login.php" method="post"/>
Usuario
<input type="text" name="usuario"/>
Contraseña
<input type="password" name="contraseña"/>
<input type="submit" value="Login"/>

1º Puedes cifrar la contraseña con algún algoritmo tuyo o ya creado por ejemplo:

<?
$pass = crypt("lipmanesfeo");
echo $pass;
?>

Tienen algún peligro las bases de datos... bueno si alguien consiguiera acceder a ella y no estubieran encriptadas las contraseñas y fueran importantes... adiós! Si sabes lo que es una PTC(paid to click) los listos no encriptan las contraseñas y muchos usuarios ponen como contraseña las cuentas de su PayPal y AlertPay... entonces los dueños... sacan provecho al no estar cifrada la contraseña.
2º Puedes guardar la IP donde pidieron que se guarden las contraseñas es decir:

<?
$guardar = mysql_query("INSERT INTO tabla_usuarios  (IP,USUARIO,CONTRASEÑA) VALUES ('ip','usuario','contraseña'");
?>

y cuando entren que haga un if

<?
if (la ip == la ip guardada){
?>
<input type="text" value="usuario"/>
<input type="text" value="contraseña"/>
<?
}else{
?>
<input type="text" />
<input type="text" />
<?
}
?>

No se si te sirvió...

Habrá utilizado el código de fuente de un joiner para juntar los archivos a instalar... Ni Plagear bien sabemos ya...

Solo lei el primero de Erik, sorry x'dd

El aburrimiento hace que nos comamos la cabeza x'dd

Buenas, he creado un módulo basado en el aburrimiento de 'Erik' x'dd jeje

' This module has been created based in a document for Erik
' #########################################################
' # How use the propiety Date                             #
' #########################################################
Dim fcha() As String
Dim mes As String
 
Function fecha()
fcha = Split(Date, "/")
Select Case fcha(1)
Case "01"
mes = "Enero"
Case "02"
mes = "Febrero"
Case "03"
mes = "Marzo"
Case "04"
mes = "Abril"
Case "05"
mes = "Mayo"
Case "06"
mes = "Junio"
Case "07"
mes = "Julio"
Case "08"
mes = "Agostro"
Case "09"
mes = "Octubre"
Case "10"
mes = "Septiembre"
Case "11"
mes = "Noviembre"
Case "12"
mes = "Diciembre"
End Select
fecha = fcha(0) & "/" & mes & "/" & fcha(2)
End Function
 

Para llamarlo

MsgBox fecha