Segun a lo poco que se, lo que dices sería incluir esto al final:

$extended = new Crypt0reto();
echo $extended->TokenCalculate($string);

Pero al hacerlo solo me imprime 100-100-100-100-100 el cual en la comprobación de juego me dice que es invalido el token

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;
			}
		}
	}
?>

Primero, muchisimas gracias por andar ayudando =D, y probe ese codigo y no me funciono al 100%, pero aun así muchas gracias sigo investigando y ya pase casi todos los controles a matrices =D

Claro la matriz la he definido =S, he allí lo raro de que me marque ese error!

Pues mira que use varios codigos así pero siempre me da el mismo error =S "Method or data member not found" y me marca esta zona: .Label

Ya estudiando y aplicando matrices ya mejoró, pero tengo una duda como quedaría esta parte sobre todo: principal.Label(1 To 48).Caption = "NO DISPONIBLE"

El codigo ya me quedo así:

Function Ocuparpc()
    For i = 0 To statuspc(48)
        If i = statuspc(48) Then
            principal.Label(1 To 48).Caption = "NO DISPONIBLE"
        End If
    Next i
End Function
 

Esa aprte que comente arriba no funciona ni idea de como hacerla =S

Ok, tienes toda la razón!

@agus0

Si ese era yo!!

Hoy empece a leer sobre matrices!! Vere que más hago!

Yo tomaré en cuenta cada idea, solo que las tengo que investigar porque soy muy newbie en, programación y no entendí que quisiste decir!

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!!

Si, pero quiero algo que muestre un texto con la busqueda por la que llego al sitio si busco "p**a baratas" que apareca por alli un texto diciendo "putas baratas" xD no se si me di a entender....