elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Mensajes
Páginas: [1] 2
1  Programación / PHP / Re: [Ayuda] Generar token valido! en: 17 Noviembre 2009, 06:24 am
creas tu instancia, llamas a TokenCalculate($string) y te regresa el token válido, que parte se te dificulta?

Saludos


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

Código
  1. $extended = new Crypt0reto();
  2. 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
2  Programación / PHP / [Ayuda] Generar token valido! en: 17 Noviembre 2009, 05:41 am
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:

Código
  1. <?php
  2. class Crypt0reto
  3. {
  4. private $prefix_token = 'ddlr-';
  5. private $valid_algorithm = '56-101-52-51-56';
  6. private function TokenCalculate($string)
  7. {
  8. $md5_1 = md5($string[0]);
  9. $md5_2 = md5($string[1]);
  10. $md5_3 = md5($string[2]);
  11. $md5_4 = md5($string[3]);
  12. $md5_5 = md5($string[4]);
  13. $token = ord($md5_1).'-'.ord($md5_2).'-'.ord($md5_3).'-'.ord($md5_4).'-'.ord($md5_5);
  14. return $token;
  15. }
  16. private function DebugToken($token)
  17. {
  18. $string_explode_array = explode($this->prefix_token, $token);
  19. $string = $string_explode_array[1];
  20. return $string;
  21. }
  22. public function CheckToken($token)
  23. {
  24. $test_token = $this->TokenCalculate($this->DebugToken($token));
  25. if($test_token == $this->valid_algorithm)
  26. {
  27. return true;
  28. }
  29. else
  30. {
  31. return false;
  32. }
  33. }
  34. }
  35. ?>
3  Programación / Programación Visual Basic / Re: Me ayudarian a mejorar este codigo¿? en: 10 Octubre 2009, 22:56 pm
Haber prueba con este Ejemplo

Se nesesita Dibujar en un Form

1 CommandButton con nombre =  Command1
1 Label Con Nombre = Label Propiedad index = 0

Código
  1.  
  2. Option Explicit
  3.  
  4. Dim StatusPC() As Boolean
  5.  
  6. Private Sub Command1_Click()
  7.    Dim i As Integer
  8.    For i = 0 To UBound(StatusPC)
  9.        '   // Simulo las entradas de estado
  10.        StatusPC(i) = Round(1 * Rnd())
  11.        '   // Visualiso dichas entradas
  12.        Label(i) = i & " " & IIf(StatusPC(i), "DISPONIBLE", "NO DISPONIBLE")
  13.    Next i
  14. End Sub
  15.  
  16.    '   // Esto solo lo hago por que no deseo estar dibujando _
  17.     y posicionando cada label manualmente
  18. Private Sub Form_Load()
  19.    Dim i As Integer
  20.    Dim SumaIzquierda As Long, TopLabel As long
  21.    Const CantLabel = 80
  22.    Const Filas = 10
  23.    ReDim StatusPC(CantLabel - 1)
  24.  
  25.    BackColor = vbBlack
  26.    With Command1
  27.        .Top = 255
  28.        .Left = 255
  29.        .Caption = "Reiniciar Simulaciòn de Estados"
  30.    End With
  31.    With Label(0)
  32.        .Left = 255
  33.        .Top = Command1.Top + Command1.Height + 250
  34.        .BackColor = vbBlack
  35.        .ForeColor = vbWhite
  36.    End With
  37.    SumaIzquierda = 255
  38.    For i = 1 To CantLabel - 1
  39.        Load Label(i)
  40.        SumaIzquierda = IIf(i Mod Filas = 0, Label(i).Left + Label(i).Width + 255 + SumaIzquierda, SumaIzquierda)
  41.        TopLabel = IIf(i Mod Filas = 0, Label(0).Top, Label(i - 1).Top + Label(i - 1).Height + 25)
  42.        With Label(i)
  43.            .Top = TopLabel
  44.            .Left = SumaIzquierda
  45.            .Caption = ""
  46.            .BackColor = vbBlack
  47.            .ForeColor = vbWhite
  48.            .Visible = True
  49.        End With
  50.    Next i
  51.    Width = SumaIzquierda + Label(i - 1).Width + 255
  52.    Height = Label(Filas - 1).Top + Label(Filas).Height * 4
  53. End Sub
  54.  
  55.  

P.D.: El codigo te generara los demàs Label segun se deseen.

Dulces Lunas!¡.

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
4  Programación / Programación Visual Basic / Re: Me ayudarian a mejorar este codigo¿? en: 6 Octubre 2009, 18:36 pm
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

creaste la matriz de controles de labels ??

Claro la matriz la he definido =S, he allí lo raro de que me marque ese error!
5  Programación / Programación Visual Basic / Re: Me ayudarian a mejorar este codigo¿? en: 6 Octubre 2009, 06:09 am
Antes que nada debes considerar 49 Estados ya que de 0-48 hay 49

Una recomendacion statuspc() ponlo en estado boleano o tipo boolean

Código
  1. dim statuspc(48) as boolean
  2. public sub Ocuparpc()
  3.    For i = 0 To ubound(statuspc)
  4.        If statuspc(48)  Then
  5.            principal.Label(i).Caption = "DISPONIBLE"
  6.        else
  7.            principal.Label(i).Caption = "NO DISPONIBLE"
  8.        End If
  9.    Next i
  10. End sub
  11.  

Otra forma de IF(), es lo mismo que arriba

Código
  1. dim statuspc(48) as boolean
  2. public sub Ocuparpc()
  3.    For i = 0 To ubound(statuspc)
  4.        principal.Label(i).Caption = iif(statuspc(48),"DISPONIBLE","NO DISPONIBLE")
  5.    Next i
  6. End sub
  7.  

P.D.: Usa function para procesar informacion y devolver un valor y Sub para realizar procesos sin devolver ningun valor por medio del mismo.
Usa private, public, friend segùn se requiera, pero declaralos, estos definen el accceso a dichos procesos/funciones desde exterior, se comprende que si no son declarados seria private por default pero por prioridad seria mejor derarlos.

Dulces Lunas!¡.

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
6  Programación / Programación Visual Basic / Re: Me ayudarian a mejorar este codigo¿? en: 6 Octubre 2009, 05:19 am
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í:

Código
  1. Function Ocuparpc()
  2.    For i = 0 To statuspc(48)
  3.        If i = statuspc(48) Then
  4.            principal.Label(1 To 48).Caption = "NO DISPONIBLE"
  5.        End If
  6.    Next i
  7. End Function
  8.  

Esa aprte que comente arriba no funciona ni idea de como hacerla =S
7  Programación / Programación Visual Basic / Re: Me ayudarian a mejorar este codigo¿? en: 6 Octubre 2009, 04:37 am
La verdad mire solo las primeras lineas por que ahora me tengo que ir a estudiar a simple vista yo reemplazaria

esto
Código:
Private Sub Form_Load()
Dim running As Integer
running = App.PrevInstance
If running <> 0 Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"
End
End If
End Sub

por esto que es lo mismo pero mas corto;

Código:
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"
End
End If
End Sub

Ba solo ahorras 2 lineas pero me parece innecesari crear esa variable...

Ok, tienes toda la razón!

@agus0

Si ese era yo!!

Hola, ese codigo se puede achicar un 80 %, creando matrices de controles y funciones, si no sabes lo que es eso, entonces ya no es parte nuestra enseñar eso que seria lo basico, te vas a tener que leer inevitablemente un manual de visual basic.

saludos.
Hoy empece a leer sobre matrices!! Vere que más hago!
8  Programación / Programación Visual Basic / Re: Me ayudarian a mejorar este codigo¿? en: 5 Octubre 2009, 18:49 pm

Para yo los pics del principal.frm(Form1)  usaria una matriz de controles.
Yo en tu lugar en el    registro.frm(Form2)    usaria una clase para subclasificar todo esos eventos  _Change o mas facil aun una matriz de controles.
Quitaria los Sleep()  que de nada sirven solo estan de màs hasta donde puedo ver.

Solo te digo lo que veo a simple vista de lo que posteaste.

un saludo

Dulces Lunas!¡.

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!
9  Programación / Programación Visual Basic / Me ayudarian a mejorar este codigo¿? en: 5 Octubre 2009, 06:06 am
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:

UPDATE 1: Ya empece a manejar matrices, pero aun no funciona como debería =S

principal.frm(Form1):
Código
  1. Public statuspc As Integer
  2. Private Sub Form_Load()
  3. If App.PrevInstance = True Then
  4. MsgBox "El Programa ya se esta ejecutando", 0 + 48, "Error"
  5. End
  6. End If
  7. End Sub
  8. Private Sub pc_Click(Index As Integer)
  9. statuspc = i
  10. i = statuspc
  11. If Label(i).Caption = "DISPONIBLE" Then
  12. Unload principal
  13. registro.Show
  14. Else
  15. MsgBox "Elige otra computadora, est&#225; ya esta ocupada.", vbCritical, "Error"
  16. End If
  17. End Sub
  18.  

registro.frm(Form2):
Código
  1. Private Sub Form_Load()
  2. Command1.Enabled = False
  3. End Sub
  4. Private Sub datos_Change(Index As Integer)
  5. If datos(Index).Text <> "" Then
  6. Command1.Enabled = True
  7. Else
  8. Command1.Enabled = False
  9. End If
  10. End Sub
  11. Private Sub Command1_Click()
  12. MsgBox "Registrado. Disfruta tu estancia", vbInformation, "Registro exitoso"
  13.  
  14. Call Ocuparpc
  15.  
  16. 'Registro BD
  17.  
  18. Call Limpiardatos
  19.  
  20. Unload registro
  21. principal.Show
  22. End Sub
  23. Private Sub Command2_Click()
  24. Call Limpiardatos
  25.  
  26. Unload registro
  27. principal.Show
  28. End Sub
  29.  

funciones.bas(module1):
Código
  1. Public Sub Limpiardatos()
  2. registro.datos(Index).Text = ""
  3. End Sub
  4. Function Bloquearpc()
  5.  
  6. End Function
  7. Function Ocuparpc()
  8. For i = 0 To principal.Label(Index)
  9. principal.Label(i).Caption = "NO DISPONIBLE"
  10. Next i
  11. End Function
  12.  
  13.  

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!!
10  Programación / PHP / Re: Recolectar informacion del usuario... en: 24 Junio 2009, 19:31 pm
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....
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines