Sistema de seriales

[Saok Dagon]

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]

[WarGhost]

podias hacer que se conecte a la BD y lo mira y una vez que se valide se borre ese serial.

Salu2

[Saok Dagon]

ola

     no tneia ni idea de que fuera asi. 

Si no te es mucha molestia podrias ponerme un ejemplo? que si no no se por donde empezar

saludos[sh]

[WarGhost]

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:

Código [Seleccionar] Expandir

<?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:

Código [Seleccionar] Expandir

9SD87T1ADSF24JU85P74P1X54W7F4G
65498SDF12ZX302H54KHL7SDSXF6QW

ahora viene el código de VB6.

Código [Seleccionar] Expandir


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

Salu2, David

[Nizer]

:D lo voy a usar en la mia.. solo q con algunas modificaciones. :D

[WarGhost]

ya incluso podrias hacer algunas madificaciones de la seguridad poniedolo en md5 seria asi:

Código [Seleccionar] Expandir

<?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:

Código [Seleccionar] Expandir

a367177e1ced211845e6452dd5950b78
5f2884555e3a38b6d3088ad09139c5b5

Salu2