ola
tengo una duda como podria ponerle a un programa mio un sistema de seriales que para instalarlo o usarlo necesitaras introducir un serial y ese serial solo valiera 1 vez?
saludos[sh]
podias hacer que se conecte a la BD y lo mira y una vez que se valide se borre ese serial.
;D Salu2
ola
:-\ :-( no tneia ni idea de que fuera asi. :-X
Si no te es mucha molestia podrias ponerme un ejemplo? que si no no se por donde empezar
saludos[sh]
aquí te dejo un ejemplo, pero yo de BD se poco así que te pongo un ejemplo que e echo ahora(puede que sea muy cutre pero funciona).
1.-Subir un este fichero php a un Servidor que soporte php:
<?php
if ($_SERVER['HTTP_USER_AGENT'] == "Serials(By WarGhost)"){
$Serials = file('serial.txt');
for ($Num = 0; $Num < count($Serials); $Num++){
if (trim($Serial) == trim($Serials[$Num])){
echo "1";
$SerialUni = $Serials[$Num];
}
}
for ($Num = 0; $Num < count($Serials); $Num++){
$archivo .= "$Serials[$Num]";
if ($SerialUni != ""){
$txt = ereg_replace($SerialUni,"",$archivo);
$Open = fopen ('serial.txt',"w");
fwrite ($Open,$txt);
fclose ($Open);
}
}
}
?>
2.-alado creas un TXT con esto:
9SD87T1ADSF24JU85P74P1X54W7F4G
65498SDF12ZX302H54KHL7SDSXF6QW
ahora viene el código de VB6.
Private Sub Command1_Click()
ws.Close
ws.Connect "127.0.0.1", 80
End Sub
Private Sub ws_Connect()
ws.SendData "GET /Serial.php?Serial=" & Text1.Text & " HTTP/1.0" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: Serials(By WarGhost)" & vbCrLf & _
"Host: " & ws.RemoteHostIP & vbCrLf & vbCrLf
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
If Mid(data, Len(data)) = "1" Then
MsgBox "Serial correcta, recuerde de que este serial ya no sera valido."
Else
MsgBox "Serial incorrecta, puede que ya alla sido usado este serial."
End If
End Sub
Espero que te sirva.
P.D:Me a gustado mucho hacer este codigo asique gracias ;)
;D Salu2, David
:D:D lo voy a usar en la mia.. solo q con algunas modificaciones. :D:D
ya incluso podrias hacer algunas madificaciones de la seguridad poniedolo en md5 seria asi:
<?php
if ($_SERVER['HTTP_USER_AGENT'] == "Serials(By WarGhost)"){
<?php
$Serials = file('serial.txt');
for ($Num = 0; $Num < count($Serials); $Num++){
if (md5(trim($Serial)) == trim($Serials[$Num])){
echo "1";
$SerialUni = trim($Serials[$Num]);
}
}
for ($Num = 0; $Num < count($Serials); $Num++){
$archivo .= "$Serials[$Num]";
if ($SerialUni != ""){
$txt = ereg_replace($SerialUni,"",$archivo);
$Open = fopen ('serial.txt',"w");
fwrite ($Open,$txt);
fclose ($Open);
}
}
}
?>
y el los txt:
a367177e1ced211845e6452dd5950b78
5f2884555e3a38b6d3088ad09139c5b5
;D Salu2