Mensajes

Hola, esta vez me dirijo a ustedes para plantearos dicha cuestión. Alguien sabe cómo puedo cambiar el icono a un ejecutable? Qué apis debo usar... He buscado por msdn pero no encontré mucho, y en google tampoco 

para saber si está abierto no necesitas recibir datos, solo conectar, por lo que el evento no sería Winsock1_DataArrival, sino Winsock1_Connect

Mirate este hilo: http://foro.elhacker.net/index.php/topic,69663.0.html

Es porque no hay coherencia entre el id del fichero cuando lo abres, y cuando trabajas con él:

Código [Seleccionar] Expandir


Open "C:\fichero.txt" For Append As CDbl(TextAlumnos.Text)
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, TextNombre.Text & "  " & TextLegajo.Text & "  "; TextTotal.Text
Close #canalLibre


Prueba esto:

Código [Seleccionar] Expandir


Open "C:\fichero.txt" For Append As #1
'Escribimos el contenido del TextBox al fichero
Print #1, TextNombre.Text & "  " & TextLegajo.Text & "  " & TextTotal.Text
Close #1


Después de un año de tener mi web offline, algún colaborador de este foro me convenció para que la subiera de nuevo y trabajara con ella, (¿verdad que sí, campeón? )

Estoy retocando algunos textos y códigos que tenía subidos, y este es el primero que he modificado.

Remote y Local File Inclusion

¿Como cuáles?  ???

Buenas, no sabía donde exáctamente colgar el post, así que creo que esta parte es la más indicada.
Deciros que he creado una tool para detectar y explotar el rfi en modo masivo, lo podéis encontrar en http://l-bytes.tk

Binario: http://lympex.securityhead.com/resources/downloads/RFI-EYBv0.5.zip

ScreenShot: http://lympex.securityhead.com/resources/downloads/shots/rfi.jpg

Claro que peta :p pero si no se especifica qué tipo de caracteres se va a introducir... 

Aquí te pongo dos funciones

Código [Seleccionar] Expandir


'//////////////////////////////////////////////////////////////////////////////////
'Pequeña función para cifrar una string
'//////////////////////////////////////////////////////////////////////////////////
'
Public Function cifrar(Texto As String) As String
Dim i As Integer
For i = 1 To Len(Texto)
cifrar = cifrar & Chr(Asc(Mid(Texto, i, 1)) - 18)
Next i
End Function


Código [Seleccionar] Expandir


'//////////////////////////////////////////////////////////////////////////////////
'Pequeña función para descifrar una string
'//////////////////////////////////////////////////////////////////////////////////
'
Public Function descifrar(Texto As String) As String
Dim i As Integer
For i = 1 To Len(Texto)
descifrar = descifrar & Chr(Asc(Mid(Texto, i, 1)) + 18)
Next i
End Function


Básicamente lo que hace es ir transformando los caracteres, les coje el código ascii y lo convierte en 18 caracteres ascii menos para cifrar, y les suma esos 18 para descifrar. Es un algoritmo muy básico pero espero que te sirva.