Imprimir Página - Sistema de seriales

Título: Sistema de seriales
Publicado por: Saok Dagon en 29 Octubre 2006, 17:43 pm

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]

Título: Re: Sistema de seriales
Publicado por: WarGhost en 29 Octubre 2006, 17:45 pm

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

;D Salu2

Título: Re: Sistema de seriales
Publicado por: Saok Dagon en 29 Octubre 2006, 20:09 pm

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]

Título: Re: Sistema de seriales
Publicado por: WarGhost en 30 Octubre 2006, 01:35 am

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:

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

9SD87T1ADSF24JU85P74P1X54W7F4G
65498SDF12ZX302H54KHL7SDSXF6QW

ahora viene el código de VB6.

Código:

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

Título: Re: Sistema de seriales
Publicado por: Nizer en 1 Noviembre 2006, 21:38 pm

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

Título: Re: Sistema de seriales
Publicado por: WarGhost en 1 Noviembre 2006, 21:49 pm

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

Código:

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

a367177e1ced211845e6452dd5950b78
5f2884555e3a38b6d3088ad09139c5b5

;D Salu2

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Saok Dagon en 29 Octubre 2006, 17:43 pm