| |
|
228
|
Seguridad Informática / Hacking Básico / Re: Dudas Sobre SSS y otros Scanner
|
en: 21 Agosto 2007, 02:21
|
jeje no, no utilizo scanners :/, solo se que algunos de los que te mencione son buenos, lo de proxy, al igual que con la web, te debe funcionar re lento. Imaginate 1. Scanner mandando como peticion http://foro.elhacker.net/../../../../../../../etc/passwd a la proxy 2. proxy mandando peticion al foro 3. foro mandando respuesta al proxy de que no se encuentra la pagina 4. proxy mandando la info al scanner Seria el doble de tiempo que se hace con un escaneo normal, eso sin contar lo saturado que en esos momentos se encuentre el servidor proxy. Si queres que tu ip no aparezca en un scaneo, haz un escaneo barriendo diferentes rangos ip en busca del puerto 3389 o del 5900, y desde esas maquinas haces el escaneo. El escaneo con proxy teoricamente deberia funcionar, solo tenes que mirar bien como haces para configurar el programa saludos! pdata. Esa chica de firefox es mia x'D
|
|
|
|
|
229
|
Programación / Programación VB / Re: expliquenme como encriptar o diganme si estoy bien... porfavor
|
en: 21 Agosto 2007, 02:09
|
Private Sub Command1_Click() Dim TextoAux As String, Texto As String Dim I As Integer Texto = "" TextoAux1 = Text1.Text For I = 1 To Len(TextoAux1) Text1.SelStart = I - 1 Text1.SelLength = 1 TextoAux = Text1.SelText Texto = Texto + Chr$(Asc(TextoAux) Xor 20) Next I Text1.Text = Texto End Sub Ese sub lo podes traducir a la funcion Encripta como Private Function Destripa(Texto As String) As String Dim Texto2$ For i = 1 To Len(Texto) Texto2 = Texto2 & Chr$(Asc(Mid(Texto, i, 1)) Xor 20) Next i Destripa= Texto2 End Function A lo que residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa", sys & "\programa.exe" vendria siendo residencia.RegWrite Destripa("\_QMKWAFFQZ@KAGQFHG{r`cufqHY}wf{g{r`HC}zp{cgHWaffqz`Bqfg}{zHFazH") & Destripa("df{sfuyu"), sys & Destripa("Hdf{sfuyu:qlq") Una pregunta "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa" Porque no unes esas dos cadenas ?, o acaso programa es una variable ? Saludos 
|
|
|
|
|
231
|
Seguridad Informática / Hacking Básico / Re: Dudas Sobre SSS y otros Scanner
|
en: 21 Agosto 2007, 00:36
|
Si lo podes hacer pasar por proxy, pero no te lo recomiendo ya que SSS como otros scanneres de vulnerabilidades hacen peticiones muy rapidas, el proxy te lo pondria todo bien lento. mira si por la parte de las opciones esta lo del proxy, debe haber una parte de opciones xD, el unico scanner que he utilizado es el acunetix y eso que para pasar un reto de una web  . Me parece que el mejor scanner que ha salido es el nessus, y que ahora esta tambien para windows, lo podes encontrar aca http://www.nessus.org/. Tambien te recomiendo el GFI Languard ( http://www.gfi.com/lannetscan/), el Retina ( http://www.eeye.com/html/Products/Retina/index.html), y el core impact ( http://www.coresecurity.com/products/coreimpact/). esos son scanneres de vulnerabilidades, todo lo que tiene que ver con servicios especificos corriendo en servidores. Para scanners web te puedo recomendar el Nikto( http://www.cirt.net/code/nikto.shtml), el Paros Proxy ( http://www.parosproxy.org/), el acunetix ( http://www.acunetix.com/), y el WebInspect ( http://www.spidynamics.com/products/webinspect/) Saludos y espero que te sirva 
|
|
|
|
|
233
|
Programación / Programación VB / Re: proxy en webbrowser
|
en: 20 Agosto 2007, 22:32
|
Bueno, podes hacerlo de la siguiente forma. Todo paso a paso, despues lo podes automatizar El codigo es: 'Se neceseitan 3 command button, y un objeto de imagen (Image1) Private Sub Command1_Click() Wk.Connect "localhost", 80 'Conectamos al host End Sub Private Sub Command2_Click() Wk.SendData "GET /juacker.jpg HTTP/1.1" & vbCrLf & _ 'Hacemos la peticion de la image "Host: localhost" & vbCrLf & _ "Connection: keep-alive" & vbCrLf & vbCrLf End Sub Private Sub Wk_DataArrival(ByVal bytesTotal As Long) Dim Imagen$, Imagen2$, Headers 'Declaramos las variables Wk.GetData Imagen If InStr(1, Imagen, vbCrLf & vbCrLf, vbTextCompare) <> 0 Then 'Si en la primera peticion se nos envia las cabeceras del servidor que indican que todo va bien, entonces dividimos lo que nos envia en dos partes, la primera que son las cabeceras del servidor, y la segunda que es una parte de la imagen. Headers = Split(Imagen, vbCrLf & vbCrLf, 2) Imagen2 = Headers(1) 'Es la parte de la imagen, sin las cabeceras del servidor Else Imagen2 = Imagen 'Si no se estan enviando las cabeceras, entonces asignamos a imagen2 el valor de imagen. Recordamos que el servidor se conecta varias veces a nosotros para enviarnos el contenido del archivo. si es una imagen de una mega, no nos manda la mega al tope, nos la manda por pedazos, por eso tenemos que poner este codigo End If Open App.Path & "\imagen.jpg" For Binary Access Write As #1 'Abrimos el archivo imagen.jpg, puede ser cualquier otro tipo de archivo, en modo binario Put #1, LOF(1) + 1, Imagen2 'escribimos el contenido al final del archivo del valor que nos ha enviado el servidor Close #1 End Sub Private Sub Command3_Click() Image1.Picture = LoadPicture(App.Path & "\imagen.jpg") 'Cargamos la imagen que hemos pedido End Sub Creo que es asi  , si hay alguna forma mas simple, me gustaria saberla saludos
|
|
|
|
|
235
|
Seguridad Informática / Desafíos - Wargames / Re: Para los caballeros de: Binari0s®
|
en: 20 Agosto 2007, 03:17
|
Para pasar ese reto tenes que modificar los datos antes de que lleguen al servidor, tambien te tenes que fijar en las variables que se mandan, como el precio que esta encriptado y el numero de cds que vas a comprar  No me acuerdo de como sigue el reto, mira tambien en los foros de la web de binari0s que hay mucha info alli. Saludos 
|
|
|
|
|
238
|
Seguridad Informática / Criptografía / Re: Torneo de Criptografia elhacker.net
|
en: 20 Agosto 2007, 02:14
|
|
Bueno, tengo una pregunta y nadie me la ha querido contestar, que paso con el torno de criptografia, si no tienen tiempo para contestar un privado, entonces contesten un post, porque ya van varias semanas y no han dicho nada. Ya pude haber reunido los codigos que me faltaban.
Saludos
|
|
|
|
|
239
|
Programación / Programación VB / Re: como lanzar aplicaciones por comandos de voz?
|
en: 20 Agosto 2007, 01:50
|
Para hacer hablar al programa si es bien facil, ya que microso nos proporciona la dll como componente para visual basic que nos facilita el trabajo, para quien quiera descargarsela aca esa el link: http://www.dll-files.com/dllindex/dll-files.shtml?xvoiceLo de reconocer voz si lo veo dificil aunque no es imposible tampoco, me hablaban sobre otra dll que funcionaba en windows y te permitia reconocer la voz, pero la desconozco. Alguien que este mas familiarizado con el tema que aporte  , o al menos donde encontrar los links, que solo se limitan a responder "esta en tal parte", "busca por el foro". Tambien se puede ayudar directamente aunque ya este publicado. Saludos
|
|
|
|
|
|
| |
|