Mensajes

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

enig, que es esto?

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

Salu2

y porque no lo metes todo en el RES de el fichero original?

seria todo mas fácil, no?

si sera un error al crear el mensaje

q yo sepa las libreria dll se utilizan para guardar funciónes no ficheros.

Salu2

http://foro.elhacker.net/index.php/topic,145407.0.html

no se puede, pero lo que puedes hacer es meterlo en un RES luego sacarlo comprimir y luego eliminarlo.

Salu2

ola

  me lo podrias explicar un poquito mas porfavor el uso de If lo comonozco pero el otro no 

saludos[sh]

Código [Seleccionar] Expandir

If InStr(1, LCase(Text1.Text), "elhacker.net") <> 0 Then
MsgBox "Esta web esta restringida :D, Gracias", vbCritical
Else
'funcionamiento normal
End If

eso bloquearía la web y los subdominios.

Salu2

pues a mi me va de PM incluso tengo bajando cosas a tope y me sigue yendo bien.


Salu2