| |
|
4
|
Seguridad Informática / Desafíos - Wargames / Re: yashira.org
|
en: 13 Agosto 2008, 07:08
|
|
Puede que sea demasiado fácil, pero es uno de los pilares de la internet, y muchas personas no estan muy relacionadas con el tema de la programación en HTML. Pero bueno, un reto es un reto, al menos para iniciar el wargame, tienen que ver cuales son los retos que siguen, hay unos que si son muy dificiles xD. Saludos y éxitos
|
|
|
|
|
5
|
Seguridad Informática / Desafíos - Wargames / Re: mas criptografia
|
en: 27 Julio 2008, 05:31
|
Dice algo como "eres muy bueno dotes en el criptoanalisis", es lo único que me sale, pero podría ser "eres muy bueno tienes dotes para el criptoanalisis". En fin, el reto no dice nada. Ahora te reto a que descifres está cadena, también quien lo resuelva que publique la respuesta, es algo simple y es un cifrado muy usado: •ªÞ²›ž²Öž±Êâ¦ÚjÈœ
Saludos
|
|
|
|
|
7
|
Programación / Programación VB / Re: problema al introducir datos!
|
en: 12 Mayo 2008, 05:44
|
|
Si estas introduciendo solo texto para que haces uso del modo binario? Usa el output y con binario revisa que hagas todo bien. for binary access write as canal put #canal,,datos Si no hay mucho problema, podes colocar el code, porque de verdad te ayudaría más fácil con el code. Al menos la parte donde metes el contenido. saludos
|
|
|
|
|
8
|
Programación / Programación VB / Re: creador de .exe desde visual basic
|
en: 12 Mayo 2008, 04:22
|
Private Sub Command1_Click() Dim P As New PropertyBag, P1 As Long, Temp 'Declaramos P como propertybag (Bolsa de propiedades) P.WriteProperty "Titulo", Text1.Text 'Escribimos en dicha bolsa una propiedad "Titulo" con el texto que contiene text1.text P.WriteProperty "Msgbox", Text2.Text 'Igualmente escribimos la propiedad "Msgbox" con el texto que contiene text2.text FileCopy App.Path & "\fuente.exe", App.Path & "\compilado.exe" 'Copiamos "Fuente.exe" previamente compilado a "compilado.exe" Open App.Path & "\compilado.exe" For Binary As #1 'Abrimos el archivo compilado en modo binario P1 = LOF(1) 'p1 es la longitud del archivo que acabamos de abrir (1) 1 es el canal, igualmente se pordía haber hecho, dim canal%: canal=freefile: p1=lof(canal) Temp = P.Contents 'Temp igual a todo el contenido de la bolsa de propiedades. msgbox + titulo Seek #1, LOF(1) 'Posicionamos el puntero de escritura al final del archivo Put #1, , Temp 'Guardamos la bolsa de propiedades Put #1, , P1 'guardamos el tamaño del archivo inicial Close #1 'cerramos el canal End Sub Y fuente.exe. Fuente.exe no se debe abrir porque no contiene datos guardados (Los que guardamos con compilador.exe) y por eso lanza error. Primero generamos fuente.exe, luego con compilador.exe "creamos" el ejecutable, y el ejecutable producido "compilado.exe" es el que se puede abrir. Dim P As New PropertyBag, Mensaje 'Declaramos la variable para todo el form P como propertybag Private Sub Command1_Click() MsgBox Mensaje End Sub Private Sub Form_Load() Dim P1 As Long, Temp, ByteArray() As Byte Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 'Abrimos compilado.exe generado por compilador.exe Get #1, LOF(1) - 3, P1 'obtenemos la longitud del archivo fuente.exe, antes guardada con compilador.exe Seek #1, P1 'posicionamos el puntero de lectura al final del archivo fuente.exe contenido en compilado.exe Get #1, , Temp 'y el resto lo metemos en la variable temp ByteArray = Temp 'guardamos el contenido en bytearray P.Contents = ByteArray 'y asignamos al contenido del propertybag lo que leimos Close #1 'cerramos el canal de lectura Mensaje = P.ReadProperty("Msgbox") 'la variable mensaje es igual al contenido de la propiedad msgbox Me.Caption = P.ReadProperty("Titulo") 'el título de la ventana es igual al contenido de la propiedad titulo End Sub Como ves es fácil. Alguna duda lanzala. Saludos
|
|
|
|
|
9
|
Programación / Programación VB / Re: hola ayudenme a una cosa sencilla
|
en: 11 Mayo 2008, 06:35
|
Mira este pequeño ejemplo: Private Sub Command2_Click() Command1.Enabled = False SaveSetting "ejemplo", "boton", "habilitado", "0" End Sub Private Sub Command3_Click() Command1.Enabled = True SaveSetting "ejemplo", "boton", "habilitado", "1" End Sub Private Sub Form_Load() If GetSetting("ejemplo", "boton", "habilitado") = "0" Then Command1.Enabled = False End If End Sub SaveSetting guarda un valor en el registro del sistema. GetSetting retorna valores del registro del sistema. Command2 deshabilita el botón Command3 habilita el botón Para deshabilitar el botón cada vez que se inicia la aplicación retornamos el valor en el registro de la clave habilitado, y si es igual a cero (Que anteriormente se definió con command2) entonces el botón quedará inhabilitado) Saludos
|
|
|
|
|
12
|
Programación / Programación VB / Re: iniciandome en winsock ayuda (solucionado)
|
en: 01 Abril 2008, 20:03
|
Deberías leer un poco sobre el protocolo FTP. http://tools.ietf.org/html/rfc959La cosa sería algo así: Winsock.connect "ftp.es.geocities.com",21 'acá se tiene que esperar a que conecete 'luego 'responde: 220 ProFTPD 1.2.10 Server (ProFTPD Default Installation) Winsock.senddata "user HaDeX0r" 'responde: 331 Password required for HaDeX0r. Winsock.senddata "PASS ******" '230 User HaDeX0r logged in. Winsock.senddata "PASV" '227 Entering Passive Mode modo pasivo, servidor a la espera de conexiones y transferencias Winsock.senddata "STOR pagina.txt" '150 Opening ASCII mode data connection for pagina.txt Le dice al servidor que acepte el archivo y lo guarde '226 Transfer complete. Bueno, Sobra decir que es a groso modo lo que se hace, porque no quiero entrar con tecnisismos porque el protocolo es muy amplio, así que estudiatelo y si no entendes mira varios ejemplos que de seguro lo entendes rápido. Saludos
|
|
|
|
|
13
|
Seguridad Informática / Criptografía / Re: Como crackear hash con salt?
|
en: 21 Marzo 2008, 08:06
|
|
Si te fijas bien dije: "es un salto aleatorio", y luego mostre: converge_id converge_email converge_joined converge_pass_hash converge_pass_salt 1 **@gmail.com 1077925295 ce381b2a91f715cc19e7883ded057c63 :,t25 2 **@ono.com 1077991115 84d0e7b182c63d9bdd950a01d322f04c )w2<" 4 **@hotmail.com 1078071327 077c4a624d38b8c7bebb205b6ea9f87f lwdIh Donde el último campo es el salto, y si te fijas bien es aleatorio... saludos
|
|
|
|
|
14
|
Seguridad Informática / Criptografía / Re: Como crackear hash con salt?
|
en: 21 Marzo 2008, 01:06
|
|
El salto es un valor que fija el servidor, es un salto aleatorio. Mira te muestro varios: converge_id converge_email converge_joined converge_pass_hash converge_pass_salt 1 **@gmail.com 1077925295 ce381b2a91f715cc19e7883ded057c63 :,t25 2 **@ono.com 1077991115 84d0e7b182c63d9bdd950a01d322f04c )w2<" 4 **@hotmail.com 1078071327 077c4a624d38b8c7bebb205b6ea9f87f lwdIh
Como te digo, es improbable crackear un hash de estos... Saludos
|
|
|
|
|
15
|
Programación / Programación VB / Re: enviar datos de visual basic a una pagina web
|
en: 21 Marzo 2008, 00:56
|
Hmm, probemos: Private Sub Form_Load() Dim segViejo&, segNuevo&, Segundos As Byte segViejo = Int(Timer) segNuevo = 0 Ws.Connect "www.dequito.com", 80 Segundos = 0 Do If segViejo <> segNuevo Then segNuevo = segViejo Segundos = Segundos + 1 If Segundos = 5 Then MsgBox "Imposible conectar" Exit Sub End If End If segViejo = Timer DoEvents Loop Until Ws.State = sckConnected MsgBox "Conectado con éxito" End Sub Lo que hace es un loop en el que comprueba si el estado del winsock es conectado, si es conectado muestra el mensaje de que se ha conectado con éxito, y si el estado no es conectado mientras se hace el bucle, comprueba si no han pasado mas de cinco segundos, lo puse arbitrario, porque creo que cinco segundos es mas o menos lo que debe tardar en realizarce la sola conexión, si te sale que es imposible conectarse, y con la página que diste quizas sea un error en una librería de código de tu compu, o reglas del firewall, en fin. Si te conecta lo que queres decir es que no te está retornando el código html de la página. Para ello nos debemos fijar y seguir el protocolo: GET /recurso HTTP/1.1 Host: www.dequito.comConnection: Close en visual: Private Sub Form_Load() Dim segViejo&, segNuevo&, Segundos As Byte Dim Request$ segViejo = Int(Timer) segNuevo = 0 Ws.Connect "www.dequito.com", 80 Segundos = 0 Do If segViejo <> segNuevo Then segNuevo = segViejo Segundos = Segundos + 1 If Segundos = 5 Then MsgBox "Imposible conectar" Exit Sub End If End If segViejo = Timer DoEvents Loop Until Ws.State = sckConnected Request = "GET /recurso HTTP/1.1" & vbCrLf & _ "Host: www.dequito.com" & vbCrLf & _ "Connection: Close" & vbCrLf & vbCrLf Ws.SendData Request End Sub Todo el code y eso lo hice sin probar, así que puede que hayan errores, espero que no  . Mira haber si eso te sirve, sino es así, hace mucho publique acá un minimanual de este tipo de conexiones, quizas te sirva Acá el link: http://foro.elhacker.net/index.php/topic,186798.0.htmlSaludos
|
|
|
|
|
|
| |
|