Hola amigos, ando en un juego de esos de wargame, la misión es generar un token valido, ponen el script que lo genera, lo siento, tal vez sea una estupidez postear esto, pero es que ni idea con este código, no le entiendo, quisiera saber como generar el token valido, o me lo explicarán:

<?php
class Crypt0reto
	{
	private $prefix_token = 'ddlr-';
	private $valid_algorithm = '56-101-52-51-56';
	private function TokenCalculate($string)
		{
		$md5_1 = md5($string[0]);
		$md5_2 = md5($string[1]);
		$md5_3 = md5($string[2]);
		$md5_4 = md5($string[3]);
		$md5_5 = md5($string[4]);
		$token = ord($md5_1).'-'.ord($md5_2).'-'.ord($md5_3).'-'.ord($md5_4).'-'.ord($md5_5);
		return $token;
		}
	private function DebugToken($token)
		{
		$string_explode_array = explode($this->prefix_token, $token); 
		$string = $string_explode_array[1];
		return $string;
		}
	public function CheckToken($token)
		{
		$test_token = $this->TokenCalculate($this->DebugToken($token));
		if($test_token == $this->valid_algorithm)
			{
			return true;
			}
		else
			{
			return false;
			}
		}
	}
?>

Bueno ando trabajando en un proyecto para mi escuela, la idea es que hay un centro de computo con 50 PCs, la primera parte del proyecto esta enfocada a la comodidad de los alumnos.

Actualmente llegan, tienen que preguntar a la encargada si hay PCs disponibles y se anotan en un cuaderno, la idea es que haya una PC donde llegen y se muestren las PCs disponibles, hagan doble click en la que se quieren registrar, llenen un formulario. Al hacer click en Registar! se comprobará que sus apellidos y nombre coincidan con el de su N° de cuenta de ser así registra el N° de cuenta, N° de PC y hora en que se registro.

Bueno aqui pongo los codigos:


principal.frm(Form1):

Public statuspc As Integer
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "Error"
End
End If
End Sub
Private Sub pc_Click(Index As Integer)
statuspc = i
i = statuspc
If Label(i).Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, está ya esta ocupada.", vbCritical, "Error"
End If
End Sub
 

registro.frm(Form2):

Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub datos_Change(Index As Integer)
If datos(Index).Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub Command1_Click()
MsgBox "Registrado. Disfruta tu estancia", vbInformation, "Registro exitoso"
 
Call Ocuparpc
 
'Registro BD
 
Call Limpiardatos
 
Unload registro
principal.Show
End Sub
Private Sub Command2_Click()
Call Limpiardatos
 
Unload registro
principal.Show
End Sub
 

funciones.bas(module1):

Public Sub Limpiardatos()
registro.datos(Index).Text = ""
End Sub
Function Bloquearpc()
 
End Function
Function Ocuparpc()
For i = 0 To principal.Label(Index)
principal.Label(i).Caption = "NO DISPONIBLE"
Next i
End Function
 
 

Como se podran cuenta soy muy nuevo en visual basic , aparte aquí les dejo el source:
http://rapidshare.com/files/291290861/Centro_de_computo.rar ----> Actualizado al Update 1

De ante mano, mil gracias por su ayuda y consejos!!

Bueno, ando haciendo un pequeño scrip en PHP, que recolecte información sobre el usuario. Su objetivo es que recolectará información empezando por el día y hora, luego ip, hostname, navegador... Pero ahora mi intención es que si llega desde un buscador mostrar desde cual llego y ademas que muestre la búsqueda por la que llego... No se si sea posible, bueno aquí tengo lo que llevo... Si me dan recomendaciones también lo agradecería bastante...

<?php
 
$archivo = "info.txt"; // Archivo con los datos...
 
$abre = fopen($archivo, "a"); 
 
 
 
$IP=$_SERVER['REMOTE_ADDR'];//IP del Host visitante
 
$Fecha= date("j-M-y G:i:s");
 
$Host= $_SERVER['REMOTE_HOST']; //Nombre del Host visitante
 
$Browser= $_SERVER['HTTP_USER_AGENT']; //Navegador
 
$HostName = gethostbyaddr($_SERVER['REMOTE_ADDR']);
 
$Refer = $_SERVER['HTTP_REFERER']
 
 
 
 
 
$info= "$Fecha \t $IP \t $HostName \t $Refer \t $Browser \t $Host \n"; 
 
 
 
$grabar = fwrite($abre, $info); // escribimos información del visitante
 
fclose($abre); // Cerramos la conexión al archivo
 
?>

Buenas amigos, andube buscando información... pero no he encontrado algo como que quiero/necesito... Lo que pasa es que andaba haciendo varias aplicaciones en visual basic en la pc de mi hermana y ahora que ya ha regresado la mia donde uso linux, quiero acabar esos proyecto lei de gambas pero veo que no me deja crear exes aparte de que no leyo mis archivos de mi USB.... Queria saber de algo asi o como es posible... :S Lo que no quiero es instalar visual basc con wine o una maquina virtual, eso lo dejo como en el ultimo de los casos!!

Acabo de recibir mi tarjeta USB Wlan con el chipset: rtl8187l, para ser más precisos compre esta... La conecte a mi compu, en la cual uso Ubuntu y al instante la reconocio y todo... El problema fue que solo detecta 2 redes, la mia y la de un vecino y la que trae mi laptop detecta 6... Y no tengo la menor idea de porque... Actualmente uso Ubunut 9.10 Alpha 2 De verdad no se como es posible que la que trae mi lap detecte mas que una hecha para auditorias...

Y bueno tambien les queria decir que como ven esta tarjeta que me interesa compra cuando la economia me lo permita xD