Temas

tengo q ejecutar un javascript en un webbro.. se puede? mm me parece q no..

ando a punto de cambiar todo y me iba a compara un core 2 quad pero no consigo en ningun lado, y estoy entre E5700 o E550 que son Dual Core, el primero sale mas caro y tiene 2.8GHz y el segundo 3GHz y sale mas barato, cual elegir?

[ubnt]

Esto no tiene ninguna ciencia pero bueno.. jaja

Simplemente vamos a conectar nuestro Nano Loco 2/M2/M5; Nanostation2/M2/M5 y le daremos a nuestra placa de red una IP fija:

Una ves echo esto en nuestro navegador mas utilizado Google Chrome o el que mas quieran colocaran la IP por defecto de Ubiquiti 192.168.1.20 y entraran a las configuraciones, si les pide usuario y contraseña es ubnt en las dos, en minuscula.

Luego vamos a ir a Wireless.

Seleccionamos Station/Estación y clickeamos en Scan/Escanear

se nos abrirá una ventana nueva con todas las redes disponibles, luego seleccionamos a la que nos qremos conectar y le damos a Select/Seleccionar

Ahora en el caso de tener equipos como los NanoStation2 o Nano Loco2, lo ideal es colocarle el RATE en 5.5 para que funcione perfectamente.

luego debajo si tiene algun tipo de cifrado la red colocaremos cual y la contraseña correspondiente a la red.

y por ultimo le damos a Change/Cambiar

y ya estaremos conectados a la red, en la pestaña main podemos ver los datos de la misma:

bien, ahora vamos a quitar la IP fija que le dimos a nuestra placa de Ethernet y listo.. ya podemos navegar sin problemas..



CASO NANOSTATION M2/M5, NANO LOCO M2/M5: Recordar desactivar la configuración de AirMAX, esta debe estar en NONE.

[Conexión: Ubiquiti Nanostation M2/M5 con AirCam]

Conexión: Ubiquiti Nanostation M2/M5 con AirCam

En el caso de tener una salida secundaria, podemos utilizar como vemos en la imagen anterior la configuración con un solo PoE, alimentando este mismo tanto al Nanostation como a la Camara. A la hora de realizar esta conexión, recordar que deben cambiarle la IP a la cámara por ejemplo a 192.168.1.22 para no tener problemas.

Conexión: Ubiquiti Nano Loco M2/M5 con AirCam

En el caso de no tener una salida secundaria; o utilizar equipos Nano Loco M2/5, podemos utilizar como vemos en la imagen anterior la configuración con dos PoE, alimentando cada uno al Nano y a la Cámara y a su ves estos estarán unidos por medio de LAN. A la hora de realizar esta conexión, recordar que deben cambiarle la IP a la cámara por ejemplo a 192.168.1.21 para no tener problemas.

Buenas a todos, resulta que hace tiempo que tenia que cambiar la fuente de mi ordenador ya que esta no corría muy bien; pero igual la seguía usando.. de pronto un día cambie de rígido por uno de 500GB, lo particiones en 5 una bestia, lo que pasa q necesitaba, 1 windows XP, 1 ubuntu, 1 ubuntu mod, 1 datos y 1 fedora... bueno instalado todo... funciono bien hasta hace unos dias, de repente estado en windows Pak! se apaga completamente el ordenador, todo menos la luz de power. fuente apagada, coolers apagados, todo apagado menos esta luz, me pareció muy extraño, así que pensé que podría ser la fuente... voy compro una fuente nueva, la cambio, todo perfecto, pasaron unas horas, Bank! se apago nuevamente.

me quede

luego probé haber si eran las memoras, en si la fuente la necesitaba pero que era el problema?

las memoras andaban perfecto; probé el micro que no se calentara, no pasaba nada; la placa de vídeo estaba bien refrigerada y sin problemas...

entonces pensé bueno tengo algun virus en el windows que me esta jodiendo; ya que con linux no tuve ningún problema, dejándola prendida 24hs la maquina nada en cambio en windows, no había un tiempo en si sino que de la nada Bank! se te apagaba, habían veces que a la hora, o a las 2 o 3 horas, pero nada que sea constante o frecuente...

pensé bueno, tendré algún virus.. formateo la partición y instalo de nuevo windows y listo, al estar instalando faltando 10 minutos Bank! se apaga...

sera el rígido? que opinan ustedes?

[FUENTE:]

En este caso realizaremos un Activador "Genuine" de Windows XP, simplemente lo que realizara nuestro programa es, mediante a un modulo, tomar datos del registro de windows y luego escribir en él.

Para ello utilizaremos una libreria incluida en Windows XP llamada "advapi32.dll", luego trabajaremos con la ruta de registro "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion"; en esta ruta se encuentra nuestro serial codificado, que luego decodificaremos y a su ves codificaremos el nuevo serial.

Utilizaremos básicamente dos botones "Verificar" llamado "cmdComprobar" y "Registrar" llamado "CmdInsertar", luego dos labels, uno corresponderá a la versión llamado "lblVersion" y otro a la licencia "Label3", también un ComboBox llamado "cbSerial" el cual estará oculto. Los demás son simplemente para darle un aspecto mas provechoso al programa.

Bien, comenzaremos por el formulario principal (Main.frm):

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Centrar Me
    DatosActuales
    CargarSeriales
End Sub

Aquí primero centraremos el formulario en la pantalla. Luego:

Código (vb) [Seleccionar] Expandir

Private Sub cmdComprobar_Click()
    DatosActuales
    If lblClave.Caption = "BVXT3-HMX82-3T69H-9WC87-7JJKW" Then
        Label3.Caption = "Genuine"
        Label3.ForeColor = vbBlue
    Else
        Label3.Caption = "Copia"
        Label3.ForeColor = vbRed
    End If
End Sub

Tomaremos los datos actuales del windows y verificaremos si tiene el serial genuino, si es que no es copia.

Código (vb) [Seleccionar] Expandir

Private Sub DatosActuales()
    lblVersion.Caption = VerVersion
    lblClave.Caption = SacarClave
End Sub

Private Sub CargarSeriales()
    cbSerial.Clear
    cbSerial.AddItem "BVXT3-HMX82-3T69H-9WC87-7JJKW" 's
    cbSerial.ListIndex = 0
End Sub

Luego definimos las variables para los datos actuales y cargamos un serial por defecto en el combobox.

Código (vb) [Seleccionar] Expandir

Private Sub CmdInsertar_Click()
    InsertarSerial Trim(cbSerial.Text)
End Sub

Por ultimo llamamos a la función para insertar el serial correspondiente en el registro de windows.

Bien, ahora vamos al modulo, agregaremos un modulo llamado "modulo.bas":

Código (vb) [Seleccionar] Expandir

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Const REG_BINARY = 3
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
' Ruta del registro donde Windows guarda la clave (codificada) y la versión
Private Const RUTA_REGISTRO = "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion"

' Obtenemos la clave actual

Public Function SacarClave() As String
Dim bID(164) As Byte, bKey(14) As Byte, bAsc(24) As Byte
Dim lBit As Long, hKey As Long

If RegOpenKey(HKEY_LOCAL_MACHINE, RUTA_REGISTRO, hKey) = 0 Then
    If RegQueryValueEx(hKey, "DigitalProductId", 0&, REG_BINARY, bID(0), 164) = 0 Then
        For lBit = 52 To 66
            bKey(lBit - 52) = bID(lBit)
        Next lBit
    Else
        SacarClave = "No se puede leer la clave."
        Exit Function
    End If
Else
    SacarClave = "No se puede acceder al registro."
    Exit Function
End If

'Descodificar la clave

bAsc(0) = Asc("B"): bAsc(1) = Asc("C"): bAsc(2) = Asc("D")
bAsc(3) = Asc("F"): bAsc(4) = Asc("G"): bAsc(5) = Asc("H")
bAsc(6) = Asc("J"): bAsc(7) = Asc("K"): bAsc(8) = Asc("M")
bAsc(9) = Asc("P"): bAsc(10) = Asc("Q"): bAsc(11) = Asc("R")
bAsc(12) = Asc("T"): bAsc(13) = Asc("V"): bAsc(14) = Asc("W")
bAsc(15) = Asc("X"): bAsc(16) = Asc("Y"): bAsc(17) = Asc("2")
bAsc(18) = Asc("3"): bAsc(19) = Asc("4"): bAsc(20) = Asc("6")
bAsc(21) = Asc("7"): bAsc(22) = Asc("8"): bAsc(23) = Asc("9")

Dim i As Integer, j As Integer, sClave As String
For lBit = 24 To 0 Step -1
    i = 0
    For j = 14 To 0 Step -1
        i = i * 256 Xor bKey(j)
        bKey(j) = Int(i / 24)
        i = i Mod 24
    Next j
    sClave = Chr(bAsc(i)) & sClave
    If lBit Mod 5 = 0 And lBit <> 0 Then sClave = "-" & sClave
Next lBit
SacarClave = sClave
End Function

' Obtenemos la clave actual

Public Function VerVersion()
Dim lRet As Long
RegOpenKey HKEY_LOCAL_MACHINE, RUTA_REGISTRO, lRet
VerVersion = SacarValorRegistro(lRet, "ProductName")
RegCloseKey lRet
RegOpenKey HKEY_LOCAL_MACHINE, RUTA_REGISTRO, lRet
VerVersion = VerVersion & " - " & SacarValorRegistro(lRet, "CSDVersion")
RegCloseKey lRet
End Function

' Leer valor de registro

Function SacarValorRegistro(ByVal HKLM As Long, ByVal sValor As String) As String
Dim lRet As Long, lInfoValor As Long
Dim lLen As Long, sBuffer As String
   
lRet = RegQueryValueEx(HKLM, sValor, 0, lInfoValor, ByVal 0, lLen)
If lRet = 0 Then
    If lInfoValor = REG_SZ Then
        sBuffer = String(lLen, Chr$(0))
        lRet = RegQueryValueEx(HKLM, sValor, 0, 0, ByVal sBuffer, lLen)
        If lRet = 0 Then
            SacarValorRegistro = Left$(sBuffer, InStr(1, sBuffer, Chr$(0)) - 1)
        End If
    ElseIf lInfoValor = REG_BINARY Then
        Dim strData As Integer
        lRet = RegQueryValueEx(HKLM, sValor, 0, 0, strData, lLen)
        If lRet = 0 Then SacarValorRegistro = strData
    End If
End If
End Function

' Cambiar serial del registro

Public Sub InsertarSerial(Serial As String)

On Error Resume Next

Dim TodoOk As Boolean
TodoOk = True

If Serial = "" Then
    MsgBox "Complete el Número de Serie que quiere insertar!", vbExclamation, "Nº de Serie inválido"
    TodoOk = False
    XPReg.cbSerial.SetFocus
Else
    If Len(Serial) <> 29 Then
        MsgBox "El Número de Serie a Insertar debe poseer 29 dígitos" & vbCrLf & "Controle", vbExclamation, "Nº de Serie inválido"
        TodoOk = False
        XPReg.cbSerial.SetFocus
    End If
End If

    If TodoOk = True Then
        Dim VOL_PROD_KEY As String
        VOL_PROD_KEY = Replace(Serial, "-", "")
       
        For Each obj In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
           result = obj.SetProductKey(VOL_PROD_KEY)
           If Err <> 0 Then
              MsgBox Err.Description, "0x" & Hex(Err.Number)
              Err.Clear
           End If
        Next
       
        MsgBox "¡Su Microsoft Windows XP es Genuino!" & vbCrLf & vbCrLf & "Verifíquelo pulsando el botón Verificar", vbInformation, "Registro Exitoso!"
        XPReg.cmdComprobar.SetFocus
    End If

End Sub

' Centrar el formulario

Public Sub Centrar(Frm As Form)
    Frm.Left = (Screen.Width / 2) - (Frm.Width / 2)
    Frm.Top = (Screen.Height / 2) - (Frm.Height / 2) - 600
End Sub

Un modulo lo podemos utilizar para declarar funciones, acciones, variables y realizar calculos y llamarlos con tan solo poner el nombre de la funcion, en este caso la función "SacarClave"  la utilizamos para decodificar y mover el serial a una variable que luego comparamos con el serial original y damos como genuino o no al serial. A su ves también tenemos la función de "VerSerial", la cual solamente toma datos del registro; entre otras más...

FUENTE: http://www.nochesdecode.com.ar/2012/04/activador-de-windows-xp-en-visual-basic.html

Se trata del pirata informático w0rmer. Según indican fuentes del FBI varias veces logró ingresar a los sistemas federales.

El activista informático había atacado varias veces los sitios de la policía de Houston y Los Ángeles. W0rmer es en realidad Higinio Ochoa, de 30 años, y fue descubierto por el FBI gracias a una foto de los pechos de su novia que él mismo publicó en su cuenta de Twitter.
Este experimentado pirata digital no tuvo en cuenta un detalle fundamental: los iPhone dejan en las fotos tomadas una metadata de información sobre qué tipo de aparato tomó la foto, con qué configuración y, lo más importante, dónde se tomó la imagen, indicando hasta la latitud exacta.
En este caso la imagen había sido tomada en un departamento en Wantirna South, Melbourne, Australia.
Los agentes, venían siguiendo a diario la cuenta @Anonw0rmer ya que en la misma se adjudicaba abiertamente los ataques, se encontraron con una sorpresa: la foto de un escote con un cartel cuya leyenda era "<3 u bitch's" (les queremos prostitutas).
Gracias a la publicación constante de imágenes en su centa de Twitter los investigadores descubrieron otra foto que les dio información. En ella se veía una pantalla de computadora con una serie de programas con un mensaje de ERROR. Uno de ellos era Skype, que estaba siendo utilizado por el usuario Anonw0rmer, en otro programa el nombre de usuario era @higochoa. A partir de ahí las piezas del rompecabezas empezaron a encajar.
Una búsqueda rápida en internet permitió identificar a ese usuario como Higinio Ochoa y residente en Galveston, y una consulta en Facebook reveló que el individuo tenía una relación sentimental con una chica residente en Melbourne, Australia.
Así fue como la imagen de los pechos prominentes, a pesar de no revelar el rostro de la joven, se convirtió según el FBI en la "prueba definitiva" para demostrar que w0mer y Ochoa son la misma persona.

FUENTE: http://tn.com.ar/internacional/00089604/un-hacker-fue-capturado-por-los-pechos-de-su-novia

un amigo me trajo su PC para formatearla, al querer intentarlo pasaban unos segundos y se colgaba. tome el rigido pensando que tenia algun virus y formatie e instale windows desde otro ordenador. lo vuelvo a colocar en el PC de mi amigo inicio windows y se congela, pienso bueno debe de ser problemas de refrigeración ya que solamente tenia el cooler del micro.. saco la tapa lateral izquierda y coloco un cooler a 220v para enfriar bien el micro y la ram, ahi inicio y un poco mas tarde se vuelve a congelar la image; verifique la RAM y el micro todo esta refrigerado y funciona bien pero se congela, el rigido tomo un poco de temperatura pero por mas que se enfrie igual se congela, aparte que en otra PC no hubo problemas con el rígido. alguien tiene alguna cosa que no me haya pasado de alto?

Si tu router inalambrico tiene la MAC: "C8:3A:35" o "00:B0:0C", ahora puedes desde windows saber cual es su posible pin de WPS!

Código (csharp) [Seleccionar] Expandir

#include ＜stdio.h＞
#include ＜stdlib.h＞
int main()
{
unsigned int wps_pin_checksum(unsigned int pin);
int PIN = 0;
printf("ComputePIN-C83A35\n");
printf("Description:\n");
printf("If your wireless router MAC address start with \"C83A35\",\n");
printf("type the other six digits, you might be able to get the \n");
printf("WPS-PIN of this equipment, please have a try, good luck!\n\n");
printf("Code by ZhaoChunsheng 04/07/2012 http://iBeini.com\n\n");
printf("Input MAC Address(HEX):c83a35");
scanf("%x",&PIN);
printf("MAC Address(HEX) is: C83A35%X\n",PIN);
printf("WPS PIN is: %07d%d\n",PIN%10000000,wps_pin_checksum(PIN%10000000));
return 0;
}
unsigned int wps_pin_checksum(unsigned int pin)
{
unsigned int accum = 0;
while (pin)
{
accum += 3 * (pin % 10);
pin /= 10;
accum += pin % 10;
pin /= 10;
}
return (10 - accum % 10) % 10;
}

FUENTE: http://forum.anywlan.com/thread-125873-1-1.html

[xiaopanOS 0.4:]

xiaopanOS 0.4:

Actualización del Nucleo a 4.4
por defecto 8187L con el controlador oficial.
actualización 3.2.3 feedingbottle
actualización minidwep-gtk 30303
0.3.8 Reparación de la Intel NIC conducir
Añadir RTL8188DU/8192DU unidad

Temporalmente aterm no es compatible con chino / ángulo, será ilegible!
De hecho, 8187L tiene una solución perfecta, ya que el último controlador de compatibilidad 8187l MAC aleatoria de transformación, sino que además no desea utilizar la versión más baja, a la espera para la corrección de compatibilidad!
En cuanto a wpscrackgui no se añade, la última vez que esté bien apretada. . .
Recientemente he descubierto, el RT3070 no puede usar el escaneo de lavado, con independencia de xiaopanOS o CDlinux. No sé es mi tarjeta tiene un problema. . . Esta tarjeta para informar sobre ! !
Encontró que una gran cantidad de zapatos para mujer de fondo de pantalla es muy sensible, no una mujer que yacía allí. ¿Usted, ya que sólo un par de pies. . .
Tiene que cambiar!
tinycore 4,3 kernel actualizado puede ser difícil que conducir todo el recompilar todo! ! !

DESCARGA: http://dl.dbank.com/c0e31jfzta

no se si lo han notado, pero creo que es medio inservible dejar estos post con "Movido: TITULO DEL POST"; pues si se movió entonces lo puedo encontrar buscándolo en el buscador por el titulo. Lo digo no mas porque hay "segun google":

unos 23.200 post, seria una linda limpieza... no se, que os parece?

http://wpa-sec.stanev.org/

[DESCARGA]

Las listas de palabras con la compilación de diferentes fuentes y se eliminan los duplicados. Creado con la herramienta de WLC.

Código [Seleccionar] Expandir

Offensive Security 34036913 0
Used 9062908 0
InsidePro 7788990 0
Wikipedia en 5925979 186
Wikipedia de 5429072 18087
Wikipedia ru 2574086 27934
Old gold 1560177 29117
Wikipedia es 1528843 29403
wp_chit bg 1318313 29467
Wikipedia fr 1294686 29783
OpenWall 1148496 30287
CoW 930799 30464
Slang 510315 30515
Pinyin chinese 61479 29867
C-nets 1634 32878


DESCARGA

jaaj, hace unos años compre el XP original, se podía actualizar y todito... sin ninguna limitación  :¬¬ el otro día formatie después de casi 1 año y un poco mas... y me encuentro con que el XP que era original ahora es copia. El XP lo habré comprado hace como 4 años pero q mas da, se convirtió en copia, por mas que lo haya pagado...  billy hdp.. jaja

me entere porque necesitaba escuchar una radio y usa windows media para transmitir, el firefox me pidio actualizar y bomb... no inicio nunca mas y no me tira el cartelito de "compre windows original" sino que no puedo actualizar... ya que al validar dice q es truchitooo.. me quiero matar..

alguien encontró algo para contrarrestar esto, algún XP original, yo me he dado cuenta que cada CD de XP lleva su código de activación "original", y si pones otro te lo instala pero como copia. Ese mecanismo resulta raro pero q mas da, alguien sabe de alguno "no modificado" original, el de oro ya lo probé y es trucho.

hay unos que vi por thepiratebay.se:

Windows XP Profesional SP3 ISO Original Spanish (http://www.auyanet.net/?p=7581)
Windows XP Pro SP3 Activated -MODDED-

[Tan sólo quedan pocos días para que los usuarios puedan borra su historial de Google. De no hacerlo antes del 1o de Marzo, entonces los secretos de las personas que usan el buscador más popular de la Internet pudieran ser revelados y hasta ser usados con fines desconocidos. Google puso en aprietos a sus clientes virtuales con la nueva política a la que serían sometidos sus lineamientos. La información privada será expuesta y se dio un plazo para que el público pueda sacar sus registros y la fecha está por cumplirse. Son tres pasos sencillos que se siguen para borrar los récords (1) Ir a la página principal y buscar en la parte superior derecha para ingresar en la cuenta (2) Encontrar la sección llamada servicios y buscar por el link que te diga "ver", "activar" o "desactivar" el archivo historial. (3) Hacer un click y queda resaltado en rojo. Finalmente buscar "remover web history" y darle un click para desactivarlo hasta el tiempo que el usuario regrese a la página. Ciertamente el manejo de esta política ha despertado la crítica y la controversia porque no se respeta el derecho a la privacidad. Google no ha encontrado el mecanismo para resolver el problema y simplemente ha dado las indicaciones para salvaguardar cualquier impase con la información privada y que sea el público quien decida.]

Tan sólo quedan pocos días para que los usuarios puedan borra su historial de Google. De no hacerlo antes del 1o de Marzo, entonces los secretos de las personas que usan el buscador más popular de la Internet pudieran ser revelados y hasta ser usados con fines desconocidos.

Google puso en aprietos a sus clientes virtuales con la nueva política a la que serían sometidos sus lineamientos. La información privada será expuesta y se dio un plazo para que el público pueda sacar sus registros y la fecha está por cumplirse.

Son tres pasos sencillos que se siguen para borrar los récords (1) Ir a la página principal y buscar en la parte superior derecha para ingresar en la cuenta (2) Encontrar la sección llamada servicios y buscar por el link que te diga "ver", "activar" o "desactivar" el archivo historial. (3) Hacer un click y queda resaltado en rojo. Finalmente buscar "remover web history" y darle un click para desactivarlo hasta el tiempo que el usuario regrese a la página.

Ciertamente el manejo de esta política ha despertado la crítica y la controversia porque no se respeta el derecho a la privacidad. Google no ha encontrado el mecanismo para resolver el problema y simplemente ha dado las indicaciones para salvaguardar cualquier impase con la información privada y que sea el público quien decida.

[xiaopan-0.3.7.1]

xiaopan-0.3.7.1 es el hermano del beini pero actualizado, viene con reaver y el inflador.

sigue siendo la misma kaka del beini.

DESCARGA:
http://www.mixturecloud.com/download=Dmh418

[WPSCrackGUI]

WPSCrackGUI es una interfaz gráfica para el crackeo de redes wireless con WPS Activo. Es fase BETA, así que tiene errores, verifiquen si funciona, pues su funcionamiento puede variar entre sistemas operativos. WPSCrackGUI esta especialmente diseñado para entornos Debian (Ubuntu, Kubuntu, Xubuntu, BackTrack, AirUbuntu, Debian, etc).

Requerimientos:

* Sistema Operativo basado en Linux.
* Gambas 3.
* xTerm.
* Reaver-WPS v1.4.
* Navegador WEB (Firefox o Chrome).
* Nautilus (Ya incluido en Entornos Debian).
* Python v2.6 (o superior) [para funcionamiento de WPSpy y WPScan].
* Scapy (2.0.1-1) [para funcionamiento de WPSpy y WPScan].
* Lorcon v2 rc1 [para funcionamiento de WPSpy y WPScan].

Instalación:

  Hay muchas formas de Instalar WPSCrackGUI, la primera es utilizar algún paquete binario según el distro que estemos utilizando y realizar la instalación como un programa normal y corriente. Luego una alternativa en el caso de las versiones betas o sin empaquetar podemos lanzar directamente el Gambascript desde el terminal sin necesidad de instalar el mismo.

Pasos de Ejecución desde el Terminal:

Código [Seleccionar] Expandir

wget http://sourceforge.net/projects/wpscrackgui/files/Beta/WPSCrackGUI-v1.2.1-beta-gambas2.gambas
chmod 777 WPSCrackGUI-v1.2.1-beta-gambas2.gambas
./WPSCrackGUI-v1.2.1-beta-gambas2.gambas

- Con Wget descargamos el archivo *.gambas de la ultima versión disponible en SourceForge.
- Luego le damos accesos al archivo.
- Por ultimo lanzamos el programa.

En el caso de tener instalado ya una versión antigua de WPSCrackGUI y queremos actualizar la misma podemos realizarlo de la siguiente manera:

Código [Seleccionar] Expandir

wget http://sourceforge.net/projects/wpscrackgui/files/Beta/WPSCrackGUI-v1.2.1-beta-gambas2.gambas
mv WPSCrackGUI-v1.2.1-beta-gambas2.gambas WPSCrackGUI.gambas
cp WPSCrackGUI.gambas /usr/bin/
cp WPSCrackGUI.gambas /usr/local/bin/
cd /usr/bin/
chmod 777 WPSCrackGUI.gambas
cd /usr/local/bin/
chmod 777 WPSCrackGUI.gambas
./WPSCrackGUI.gambas

- Con Wget descargamos el archivo *.gambas de la ultima versión disponible en SourceForge.
- Con mv cambiamos el nombre de la versión al instalado.
- Con cp copiamos a los directorios genéricos de instalación de WPSCrackGUI.
- Con cd entramos la carpeta de instalación.
- Luego le damos accesos al archivo.
- Con cd entramos la carpeta de instalación.
- Luego le damos accesos al archivo.
- Por ultimo lanzamos el programa.

Ahora podemos lanzar desde el lanzador ya creado la ultima versión actual de WPSCrackGUI.

Últimos Cambios:

v1.2.4:

* KeyGen Tenda v2.0
* Keygen Kozumi v2.0
* Keygen Edimax v2.0
* Keygen Nisuta v2.0
* Keygen Belkin v2.0
* Agregado Instalador Reaver-MOD.
* Agregado Multi-Opción de Ataque (Reaver|Reaver-MOD)
* Solucionado Errores en WPSVerificator.
* Solucionado Errores de Resolución de Pantalla.
* Actualizado el Envio de Pines a Base de Datos Online (WPSdb)
* Agregada la opción de Buscar en WPSdb Online.
* Agregada la opción de Envio de Pin a WPSdb Online.
* Base de Datos: MAC: #155 - PIN: #350.
* Agregado envió de Bugs.
* Soporte para el sistema operativo Mageia.

v1.2.3:
* Edición Prototipo no Editada.

v1.2.2:

* Actualizador v1.4: v1.2.2 - R3 Agregado: ./configure --prefix=/usr --sysconfdir=/etc
* Actualizador v1.3: v1.2.2 - R2 Agregado: ./configure --prefix=/usr --sysconfdir=/etc
* Base de Datos de Pines #350 / MAC's: 155.
* Agregado envió de Bugs.

v1.2.1:
* Se Adiciono el Idioma Portugués.
* Se Adiciono el Keygen Kozumi.
* Se Adiciono el Keygen Edimax.
* Se Adiciono el Keygen Belkin.
* Se Adiciono el Keygen Nisuta.
* Actualización de Base de datos a: #301 Pines, #120 MAC Address.
* Solución de Errores en General.

v1.2.0:
* Nueva Herramienta PINCheck v1.0.
* Nuevo Diccionario 5000-9000 y Continuar.
* Base de datos de PIN's: #250.

v1.1.8:
* Base de Datos de Pines: #233.
* Agregado Keygens -> Tenda (C8:3A:35).
* Solucionados Errores en General.

v1.1.7:
* Agregado idioma Francés.
* Agregado en Herramientas: "Verificar WPS Activado".
* Agregado en Herramientas: "Actualizar Reaver-WPS a v1.3".
* Base de Datos de Pines #115 / MAC's: 66.
* Corregidos los errores en los idiomas.
* Solucionados los errores en general.
* Créditos Mejorados.

v1.1.6:
* Base de datos de pines: #100 / MAC: #62
* Editados los Créditos.
* Agregado en Opciones Avanzadas Diccionario Genérico Inverso.
* Solucionados Errores con el Script Actualizador.

v1.1.5:
* Base de datos de pines: #81 / MAC: #52
* Editados los Créditos.
* Solucionados los Errores de Envio de PIN.
* Envíos de PIN mediante Google Chrome y Mozilla Firefox.
* Agregadas Opciones Avanzadas.
* Agregado en Opciones Avanzadas Diccionario Genérico.
* Agregado en Opciones Avanzadas Diccionario Mejorado.
* Solucionados Errores en General.

v1.0.4:
* Edición Prototipo no Editada.

v1.0.3:
* Edición Prototipo no Editada.

v1.1.2: (Pegasus Edition)
* Versión Única para AirUbuntu 5 (Pegasus Edition)

v1.1.1:
* Solucionado el error en el script de Actualización de Reaver-WPS.
* Solucionados errores en General.
* Base de Datos de Pines: #58.
* Editados WPScan y WPSpy.
* Agregado Créditos.

v1.0.9:
* Soporte para Debian, Fedora, Mandriva, OpenSUSE, Ubuntu y AirUbuntu.
* Solucionado el error en WASH de FCS Invalid.
* Base de Datos de Pines: #53.

v1.0.8:
* Agregado sistema de recuperación de sesión perdida.
* Base de Datos de Pines: #44.
* Mejorado el cambio de MAC Address.
* Solución de errores en general.

v1.0.7:
* Agregado el Escaneo de redes por medio de Wash, WPScan, WPSpy.
* Agregado el Ataque por especificación de PIN.
* Abrir carpeta de archivos de sesión.
* Traducción al Español y al Ingles.
* Opción de Aportar PIN para la base de datos (Completo o Parcial).
* Solucionados errores en general.

v1.0.6:
* Solución de varios errores.
* Nueva base de datos de pins.
* Actualización Automática a la ultima versión de Reaver-WPS.

v1.0.5:
* Solucionados errores en general.

v1.0.4:
* Edición de prueba no editada.

v1.0.3:
* Configuración de Ataques.
* Solución de varios errores.

v1.0.2:
* Solucionados errores en general.

v1.0.1:
* Solucionados los errores con los terminales.
* Solucionados errores en general.
* Manual.

v1.0.0:
* Edición Prototipo Alpha no Editada.

Imágenes:

Vídeos:

[youtube=640,360]http://www.youtube.com/watch?v=87Z-8K6HeU4[/youtube]
[youtube=640,360]http://www.youtube.com/watch?v=UxNfP4gpKls[/youtube]
[youtube=640,360]http://www.youtube.com/watch?v=kAm6DkOIyrQ[/youtube]
[youtube=640,360]http://www.youtube.com/watch?v=DLjGVPabRX8[/youtube]
[youtube=640,360]http://www.youtube.com/watch?v=94Ez9sKk7Jk[/youtube]

WPSCrackGUI Press:

http://www.arg-wireless.com.ar/index.php/topic,698.0.html

http://foro.elhacker.net/wireless_en_linux/wpscrackgui_v121_beta_13012013-t352541.0.html

http://www.blackploit.com/2012/03/wpscrackgui-interfaz-grafica-para-el.html

http://toolsyard.thehackernews.com/2012/06/wpscrackgui-v-118-graphical-tool-for.html

http://seclist.us/2013/01/update-wpscrackgui-v-1-2-1.html

http://xiaopan.co/forums/threads/wps-pin-database-via-wpscrackgui.434/

http://factoriawireless.net/aplicaciones-wifi/wpscrackgui/

http://www.redinsegura.com/2012/05/wpscrackgui-interfaz-grafica-para-el.html

http://stuxnethack.blogspot.com.ar/2012/12/wpscrackgui.html

http://ubuntusaurio.blogspot.com.ar/2012/06/wpscrackgui-ataque-wps.html

http://masters-hackers.info/showthread.php?t=19650

http://siriusinfoblog.blogspot.com.ar/2012/04/wpscrackgui.html

http://chicomonte.blogspot.com.ar/2012/02/wpscrackgui-v10.html

http://andres-elladooscuro.blogspot.com.ar/2012/10/wpscrackgui-v118.html

http://dishingtech.blogspot.com.ar/2012/05/how-to-download-install-wpscrackgui-on.html

http://fusionhack.es/foro/index.php?topic=6084.0

http://underc0de.org/foro/wireless/(wpscrackgui)-interfaz-grafica-para-el-crackeo-de-redes-wps-con-reaver/

http://indianhacker.in/showthread.php?116-WPSCRACKGUI-V-1-1-8-Graphical-tool-for-cracking-WPS-Wireless-Pin

http://www.auditoriaswireless.net/index.php/topic,3872.0.html

http://hackingelitegroup.blogspot.com.ar/2012/03/wpscrackgui-interfaz-grafica-para-el.html

http://www.icttf.org/videofeed/UxNfP4gpKls

http://www.wirelessparatontos.es/2012/04/30/493/

http://seclist.wordpress.com/2012/02/13/wpscrackgui-beta-graphical-interface-to-the-network-cracking-wps-reaver/

http://profit22.blogspot.com.ar/2012/03/wpscrackgui-beta-graphical-interface-to.html

http://www.linuxblogger.com.ar/2012/02/wpscrackgui-v10-alpha.html

http://intentodehacker.wordpress.com/2012/07/14/hackin-wpa-psk/

http://www.subhashdasyam.com/2012/03/wireless-wps-gui-cracker.html

http://masters-hackers.info/showthread.php?p=116912

http://www.teknofanaticos.com/video/UxNfP4gpKls/wpscrackgui-v108-reaver-wps/

http://bloggers.com/post/update-wps-crack-gui-v1-1-8-7243119

Descarga:

DESDE SOURCEFORGE

estoy buscan un lenguaje para programar un programa que:

* Capture el nombre del usuario q lo ejecuta.
* Capture la MAC Address de donde se conecta (router o cable).
* Capturar el nombre de la red en lo posible.
* Capturar si es router la sensibilidad de la señal.
* Utilizar HTML5 para localizar a este usuario.
* Trabajo fácil con base de datos, especial MySQL para web; osea envio a base de datos.

que lenguaje me recomendáis?

[LAMENTABLEMENTE NO FUNCIONA EN UBUNTU 11.04 O SUPERIOR. NO HE ENCONTRADO PORQUE PASA ESTO. TAMBIEN LOS PROGRAMAS QUE ERAN DEL BEINI PARA UBUNTU NO FUNCIONA NINGUNO A PARTIR DE 11.04]

Con un gran interés de los medios en la vulnerabilidad de la WPS (Wi-Fi Protected Setup) es una herramienta atracador ya bastante familiar. Creación de una interfaz gráfica para el "que" sólo era cuestión de tiempo. Este momento ha dejado a sí mismo de una larga espera y era la herramienta de inflado. Su autor Chunsheng Zhao de China ya ha marcado dos piezas interesantes, y Linux "pentest wifi" Bein distribución construido sobre los cimientos de Tiny Core Linux, y también muy popular alimentación con biberón . El estado actual de la toma de la herramienta de inflado es que es en la forma. deb, oficialmente designados para el 32-BackTrack 5 con el entorno GNOME y Tiny Core Linux 4.2.1. De todas formas pero se puede instalar y ejecutar en la versión KDE de BackTrack quinto Códigos fuente no están disponibles, por lo que los usuarios tienen una de 64 bits BackTrack 5, por el momento? mala suerte.

Atracador está disponible en los repositorios BackTrack-u, por lo que en este caso, se instalará directamente desde su lugar de recolección manual. A continuación, tire de inflado, descomprimir el archivo e instalar el archivo. Deb.

wget http://www.ibeini.com/inflator/inflator1.0-backtrack5r1-gnome-bit32.zip
unzip-inflator1.0 backtrack5r1-gnome-bit32.zip
dpkg-i-inflator1.0 backtrack5r1-gnome-bit32.deb

Selección de la tarjeta wifi y cambiar al modo monitor

AP escanear con WPS

Seleccione un punto de acceso, que será dirigida en contra de la prueba de seguridad

Análisis de seguridad

La prueba terminó con un resultado positivo  

FUENTE: http://www.hack4fun.eu/2012/01/inflator-reaver-command-generator/

LAMENTABLEMENTE NO FUNCIONA EN UBUNTU 11.04 O SUPERIOR. NO HE ENCONTRADO PORQUE PASA ESTO. TAMBIEN LOS PROGRAMAS QUE ERAN DEL BEINI PARA UBUNTU NO FUNCIONA NINGUNO A PARTIR DE 11.04

últimamente se esta utilizando mucho la programación en Android y estaría buena una categoría (subforo) en programación.

[WinRAR]

WinRAR es uno de los compresores más utilizados de la red, el problema es shareware, esto significa que puede probarlos gratuitamente durante 40 días, pasado este periodo de prueba deberá comprar una licencia o desinstalarlos de su ordenador.

WinRAR no te impide usarlo, por ende tenemos una ventana insoportable que cada ves que lo abramos nos dirá cuantos días nos queda y/o que ya han pasado los 40 días gratuitos. WinRAR no tiene ninguna función bloqueada en sus versiones, simplemente este esta ventana. Por ende lo modificaremos y haremos una versión sin esta ventana que seria igual que registrarlo.

Requerimientos:

• WinRAR, la ultima versión. Desde Aquí.
• ResHack.
• Recursos básicos (Algún icono para cambiar, etc.).

Muy bien, primero instalaremos la versión que descargamos del WinRAR, en mi caso es la versión 4.01. Esta versión según WinRAR vale unos $125,33 (Argentinos), con unos 5 minutos de nuestro tiempo la registraremos sin costo alguno.

Una ves terminada la instalación lo ejecutaremos y veremos:

Bien, ahí tenemos nuestra ventana, ahora vamos a cerrar el WinRAR y abrimos el ResHack, una ves abierto vamos a buscar el archivo ejecutable del WinRAR, WinRAR.exe en "C:\Archivos de programa\WinRAR" y lo abrimos:

Estos son todos los recursos de WinRAR.exe, ahora vamos a mirar cada carpetita para irnos acostumbrando al programa. Como puede ver tenemos Cursores, Imagenes, Iconos, Menús, Dialogos, etc. Todo esto puede ser modificado sin ningún problema.

Ahora vamos a ir a Dialog, si no lo encontraron todavía, vamos a REMINDER, verán:

Hemos encontrado la ventana que siempre nos molesta, bueno ahora, simplemente podemos editarla:

Pero esta no era la idea, la idea era eliminar este dialogo para que no nos moleste cada ves que ejecutamos WinRAR. Bien Simplemente vamos al recurso REMINDER y hacemos click derecho en 1033:

y le daremos a "Delete Resource [Dialog : REMINDER : 1033]" con esto eliminamos toda la ventana. Por ultimo le damos a File -> Save... vamos de nuevo a la carpeta del WinRAR: "C:\Archivos de programa\WinRAR" y veremos que hay dos archivos ahora WinRAR.exe y WinRAR_original.exe, es que ResHack nos hace una copia de seguridad del original. Ejecutamos el WinRAR y veremos que no tenemos nuestra ventana de registro.

Bien, pero si vamos a "Acerca de WinRAR..." encontramos que no esta registrado...

Entonces vamos a hacer figurar como que lo registramos, vamos a ir a Dialog y a ABOUTRARDLG, y veremos la ventana del About:

Ahora editaremos el "40 days trial copy" por "Registrado a nombre de NochesDeCode.com.ar", nos quedaría algo así:

Le damos a "Compile Script" y File -> Save... ejecutamos el WinRAR, vamos a "About me WinRAR..." y veremos que ya figura registrado a nuestro nombre. Simple no? Bien ya hemos eliminado la ventana de inicio y agregamos el texto como si estuviera registrado, ahora para terminar simplemente vamos a cambiarle el icono, para variar un poco... en el ResHack vamos a ir a:

y seleccionamos el icono que queremos ponerle, luego le damos a "Replace" para cambiarlo, nos quedaria algo así:

Ahora para terminar le damos a File -> Save... y listo ya cambiamos nuestro icono.

Seguimos trabajando con ResHack, ahora le toca el turno a "String Table", lo podemos definir como los textos que presenta el programa tanto en labels, textbox (cajas de texto), etc. Osea que para realizar una traducción por ejemplo de un programa debemos editar todos los String Table's.

Volviendo al ejemplo anterior con el WinRAR, no se si no se han dado cuenta pero ha quedado un texto inusual, que nos hemos salteado:

Si, se nos ha olvidado de editar el (copia de evaluación), para editarla y así poder decir que tenemos 100% terminado el trabajo de nuestro WinRAR, vamos a ir a String Table, yo les daré el código de donde esta el texto, pero es simple, al momento de ver tantos String Table's, simplemente hacemos CTRL+F y buscamos la palabra clave hasta que la encontramos; para no estar revisando uno por uno. En este caso es el 55, allí veremos dos textos:

Código (asm) [Seleccionar] Expandir

872, "Correct registration"
873, "evaluation copy"

Simplemente vamos a reemplazar "evaluation copy", por "Correct registration".

y simplemente ahora si le damos a File -> Save... y tenemos nuestro WinRAR 100% editado.

FUENTES:
http://www.nochesdecode.com.ar/2012/01/registrar-winrar-con-ingenieria-inversa.html
http://www.nochesdecode.com.ar/2012/01/string-table-en-ingenieria-inversa.html

[infoDEVI]

infoDEVI es un simple programita que se me ocurrio hace unos 10 minutos 8) que nos muestra las características de diferentes dispositivos wireless... actualmente tiene unos 77 dispositivos USB, pronto le agregare más...

Datos:
Peso: 800kb
Programado: vb6

Si falta alguno me dicen y la vamos agregando...

infoDEVI v1.1.71: DESCARGAR
infoDEVI v1.1.83: DESCARGAR
Código Fuente: es muy simple... pronto linux..

[QSSController]

QSSController es un simple parche que cree para los que no utilizamos el boton QSS de nuestra TP-Link, actualmente casi todas las TP-Link poseen este boton y si no tienes un router TP-Link no te funciona, entonces he programado este simple parche que cuando tocamos el QSS, se nos abre el NetStumbler.

[youtube=425,350]http://www.youtube.com/watch?v=b0hLfQkW6js[/youtube]

Download:
http://www.megaupload.com/?d=TU6D7FVG

Mirrors:
http://www.megaupload.com/?d=4WY604OM
http://www.uploadking.com/6ZU89K2IVI
http://www.uploadhere.com/TYE8LU1M8M
http://depositfiles.com/files/obd21aryx
http://hotfile.com/dl/135481312/d4a304b/QSSController.rar.html
http://www.zshare.net/download/96335392c77ad35e/
http://www.filesonic.com/file/3949996645/QSSController.rar
http://www.fileserve.com/file/H3B33n9/QSSController.rar
http://www.megaupload.com/?d=I9N6QX63

Ten un problema que quizás sea muy simple pero no logro darme cuenta como arreglarlo. Resulta que tengo un recuadro creado en CSS para colocar códigos en un blog; pero cuando el código ingresado dentro del recuadro es muy largo se sale del margen y queda muy mal, lo que quisiera es que el texto respete el recuadro pero no logre hacerlo. Alguien me guía?

Código (html4strict) [Seleccionar] Expandir

<pre class="cuadro">CODIGOS</pre>

Código (css) [Seleccionar] Expandir

.cuadro {
 background-color:#00FFFF right top no-repeat;
 text-align:left left top no-repeat;
 font-color:#0FFFF0;
 width: 98%;
 margin: 2px;
 font-family:verdana;
 border-width:0;
 padding:5px;
 border: 1px dotted #ff0000;
 -webkit-border-radius: 10px;
 -moz-border-radius: 10px;
 border-radius: 10px;
}

bien resulta q estoy trabajandon en un simple programa q envia un archivo jpg para actualizar el sitio aca un cierto tiempo. os pongo el code, y el source para bajar. este por ejemplo esta con txt.

FORM1:

Código (vb) [Seleccionar] Expandir

Option Explicit

'Variable Para la clase
Dim Ftp As Class1

'Conectar al servidor FTP.
'***********************************

Private Sub cmdConectar_Click()
 
  With Ftp
 
     .Inicializar Me
     'Le establecemos la contraseña de la cuenta Ftp
     .PassWord = txtPassword
     
     'Le establecemos el nombre de usuario de la cuenta
     .Usuario = txtUsuario
     
     'Establecesmo el nombre del Servidor FTP
     .Servidor = txtServidor
     
     '...conectamos al servidor FTP. EL label es el control donde mostrar _
      los errores y el estado de la conexión
     If .ConectarFtp(Label4) = False Then
         MsgBox "No se puedo conectar"
        Exit Sub
      End If
     'Mostramos en el label el path del directorio actual donde estamos _
      ubicados en el servidor
      lblDiractual = Ftp.GetDirectorioActual
     
      'Le indicamos el ListView donde se listarán los archivos
      Set .ListView = ListView1
     
     .ListarArchivos
  End With
     'Habilitamos los controles del frame2 (subir archivo, bajar, borrar etc..)
     Frame2.Enabled = True
     
End Sub

Private Sub CmdDesconectar_Click()
'Desconectamos del servidor FTP
Ftp.Desconectar
Frame2.Enabled = False
End Sub

'Establece el modo de transferencia (binario, Ascii o desconocido)
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
 Case 0: Ftp.TipoTransferencia = [ ASCII ]
 Case 1: Ftp.TipoTransferencia = [ BINARIO ]
 Case 2: Ftp.TipoTransferencia = [ DESCONOCIDO ]
End Select

End Sub

'Crear Directorio en el directorio FTP actual
Private Sub Command1_Click()
Dim carpeta As String
carpeta = InputBox("Escriba el nombre de la carpeta", "Crear directorio")
If carpeta <> "" Then
  Ftp.CrearDirectorio carpeta
End If
End Sub


'Sube un archivo al FTP
Private Sub Command3_Click()
'On Error GoTo errsub
Dim i As Integer
cd.CancelError = True
'cd.ShowOpen
If cd.FileName = "F:\code\sitio\tren.txt" Then Exit Sub

For i = 1 To ListView1.ListItems.Count
   If cd.FileTitle = ListView1.ListItems(i) Then
      If MsgBox("El archivo que itenta subir ya existe. ¿Sobreescribirlo?", _
                 vbQuestion + vbYesNo) = vbYes Then

        ListView1.ListItems.Remove i
        Ftp.SubirArchivo cd.FileName, cd.FileTitle
        Exit Sub
       Else
        Exit For
      End If
   End If
Next

Ftp.SubirArchivo cd.FileName, cd.FileTitle

Exit Sub
errsub:
If Err.Number = 32755 Then Exit Sub
End Sub

Private Sub Command2_Click()
   'Actualiza el ListView mostrando los dir y archivos del dir Ftp actual
   Ftp.Actualizar
End Sub


'Renombrar archivo remoto
Private Sub Command4_Click()
Dim localFile As String, nuevoNombre As String

nuevoNombre = InputBox("Se va a renombrar el archivo: " & ListView1.SelectedItem & vbCrLf & "Escriba el nuevo nombre para este archivo")

If nuevoNombre = "" Then Exit Sub

Ftp.RenombrarArchivo ListView1.SelectedItem, nuevoNombre

End Sub


'Eliminar archivo
Private Sub Command5_Click()
If ListView1.SelectedItem Is Nothing Then MsgBox "No hay ningún archivo seleccionado para eliminar", vbInformation: Exit Sub

If MsgBox("Eliminar el archivo:" & ListView1.SelectedItem & "??", vbYesNo + vbExclamation) = vbYes Then
  Ftp.EliminarArchivo ListView1.SelectedItem
  ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
End Sub


'Eliminar carpeta Ftp
Private Sub Command6_Click()
If ListView1.SelectedItem Is Nothing Then MsgBox "No hay ninguna carpeta seleccionada para eliminar", vbInformation: Exit Sub

If MsgBox("Eliminar el Directorio: " & vbCrLf & ListView1.SelectedItem & "??", vbYesNo + vbExclamation) = vbYes Then
  Ftp.EliminarDirectorio ListView1.SelectedItem
  ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If


End Sub

'Descarga un archivo del FTP
Private Sub Command7_Click()
Dim pathLocal As String
pathLocal = InputBox("Escriba la ruta donde descargar el archivo remoto" & vbCrLf & ListView1.SelectedItem, "descargar archivo", "c:\")
 If pathLocal = "" Then
    Exit Sub
 Else
    Ftp.ObtenerArchivo ListView1.SelectedItem, pathLocal & _
                       ListView1.SelectedItem
 End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Eliminamos la referencia de la clase
Set Ftp = Nothing
End Sub

'Cambia de directorio y actualiza la lista al hacer dobleclick
Private Sub ListView1_DblClick()
If ListView1.SelectedItem.SmallIcon = "carpeta" Then
  'cambiamos de Dir
  Ftp.CambiarDirectorio ListView1.SelectedItem
  Ftp.ListarArchivos 'Lista los archivos
  'Mostramos el directorio actual en el Label
  lblDiractual = Ftp.GetDirectorioActual
 
End If
End Sub



Private Sub Form_Load()
Set Ftp = New Class1
Combo1 = Combo1.List(0)
  With Ftp
 
     .Inicializar Me
     'Le establecemos la contraseña de la cuenta Ftp
     .PassWord = txtPassword
     
     'Le establecemos el nombre de usuario de la cuenta
     .Usuario = txtUsuario
     
     'Establecesmo el nombre del Servidor FTP
     .Servidor = txtServidor
     
     '...conectamos al servidor FTP. EL label es el control donde mostrar _
      los errores y el estado de la conexión
     If .ConectarFtp(Label4) = False Then
         MsgBox "No se puedo conectar"
        Exit Sub
      End If
     'Mostramos en el label el path del directorio actual donde estamos _
      ubicados en el servidor
      lblDiractual = Ftp.GetDirectorioActual
     
      'Le indicamos el ListView donde se listarán los archivos
      Set .ListView = ListView1
     
     .ListarArchivos
  End With
     'Habilitamos los controles del frame2 (subir archivo, bajar, borrar etc..)
     Frame2.Enabled = True
     On Error GoTo errsub
Dim i As Integer
'cd.CancelError = True
'cd.ShowOpen
If cd.FileName = "F:\code\sitio\tren.txt" Then Exit Sub

For i = 1 To ListView1.ListItems.Count
   If cd.FileTitle = ListView1.ListItems(i) Then
      If MsgBox("El archivo que itenta subir ya existe. ¿Sobreescribirlo?", _
                 vbQuestion + vbYesNo) = vbYes Then
         
         ListView1.ListItems.Remove i
         Ftp.SubirArchivo cd.FileName, cd.FileTitle
         Exit Sub
       Else
         Exit For
      End If
   End If
Next

Ftp.SubirArchivo cd.FileName, cd.FileTitle

Exit Sub
errsub:
If Err.Number = 32755 Then Exit Sub
End Sub


Class1:

Código (vb) [Seleccionar] Expandir


'Path mas largo
Private Const MAX_PATH = 260
'Constante para el atributo de directorio
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10

Private Declare Function FileTimeToSystemTime Lib "kernel32" _
(lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Private Type SYSTEMTIME
   intYear As Integer
   intMonth As Integer
   intDayOfWeek As Integer
   intDay As Integer
   intHour As Integer
   intMinute As Integer
   intSecond As Integer
   intMilliSeconds As Integer
End Type


'--- tipos de archivos --- para el Upload y Download
Private Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
Private Const FTP_TRANSFER_TYPE_ASCII = &H1
Private Const FTP_TRANSFER_TYPE_BINARY = &H2

'Puerto FTP
Private Const INTERNET_DEFAULT_FTP_PORT = 21
Private Const INTERNET_SERVICE_FTP = 1

' Modo de conexión FTP
Private Const INTERNET_FLAG_PASSIVE = &H8000000
Private Const PassiveConnection As Boolean = True

'--- formas de entrar en internet ---
' usa config del registro
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
' directo a internetnet
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
' via  proxy
Private Const INTERNET_OPEN_TYPE_PROXY = 3
' prevent using java/script/INS
Private Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4

'Type para atributos de fecha y hora de archivos
Private Type FILETIME
   dwLowDateTime As Long
   dwHighDateTime As Long
End Type

'Otros atributos de archivo tamaño, nombre, fecha etc..
Private Type WIN32_FIND_DATA
   dwFileAttributes As Long
   ftCreationTime As FILETIME
   ftLastAccessTime As FILETIME
   ftLastWriteTime As FILETIME
   nFileSizeHigh As Long
   nFileSizeLow As Long
   dwReserved0 As Long
   dwReserved1 As Long
   cFileName As String * MAX_PATH
   cAlternate As String * 14
End Type

' Declaraciones Apis
'***************************************************************


Private Declare Function InternetCloseHandle _
 Lib "wininet.dll" (ByVal hInet As Long) As Integer
'Establece una conexión a internet para poder iniciar seción Ftp
Private Declare Function InternetConnect _
 Lib "wininet.dll" Alias "InternetConnectA" _
 (ByVal hInternetSession As Long, _
  ByVal sServerName As String, _
  ByVal nServerPort As Integer, _
  ByVal sUserName As String, _
  ByVal sPassword As String, _
  ByVal lService As Long, ByVal lFlags As Long, _
  ByVal lContext As Long) As Long
'Conecta al Ftp
Private Declare Function InternetOpen _
 Lib "wininet.dll" Alias "InternetOpenA" _
  (ByVal sAgent As String, ByVal lAccessType As Long, _
   ByVal sProxyName As String, _
   ByVal sProxyBypass As String, _
   ByVal lFlags As Long) As Long
'Establece el path corriente
Private Declare Function FtpSetCurrentDirectory _
  Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" _
  (ByVal hFtpSession As Long, _
   ByVal lpszDirectory As String) As Boolean
'Recupera el path corriente
Private Declare Function FtpGetCurrentDirectory _
  Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" _
 (ByVal hFtpSession As Long, _
  ByVal lpszCurrentDirectory As String, _
  lpdwCurrentDirectory As Long) As Long
'Crea un directorio
Private Declare Function FtpCreateDirectory _
  Lib "wininet.dll" Alias "FtpCreateDirectoryA" _
  (ByVal hFtpSession As Long, _
  ByVal lpszDirectory As String) As Boolean
'Elimina un directorio del FTP
Private Declare Function FtpRemoveDirectory _
 Lib "wininet.dll" Alias "FtpRemoveDirectoryA" _
 (ByVal hFtpSession As Long, _
 ByVal lpszDirectory As String) As Boolean
'Borra un fichero
Private Declare Function FtpDeleteFile _
 Lib "wininet.dll" Alias "FtpDeleteFileA" _
 (ByVal hFtpSession As Long, _
 ByVal lpszFileName As String) As Boolean
'Renombra un fichero
Private Declare Function FtpRenameFile _
 Lib "wininet.dll" Alias "FtpRenameFileA" _
 (ByVal hFtpSession As Long, _
 ByVal lpszExisting As String, _
 ByVal lpszNew As String) As Boolean
'Recupera un archivo
Private Declare Function FtpGetFile Lib "wininet.dll" _
  Alias "FtpGetFileA" (ByVal hConnect As Long, _
 ByVal lpszRemoteFile As String, _
 ByVal lpszNewFile As String, ByVal fFailIfExists As Long, _
 ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
 ByRef dwContext As Long) As Boolean
'Escribe un archivo
Private Declare Function FtpPutFile Lib "wininet.dll" _
  Alias "FtpPutFileA" (ByVal hConnect As Long, _
 ByVal lpszLocalFile As String, _
 ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, _
 ByVal dwContext As Long) As Boolean
'Api Para los errores
Private Declare Function InternetGetLastResponseInfo _
 Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" _
 (lpdwError As Long, ByVal lpszBuffer As String, _
  lpdwBufferLength As Long) As Boolean
'Busca el primer archivo de un path
Private Declare Function FtpFindFirstFile Lib "wininet.dll" _
  Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, _
  ByVal lpszSearchFile As String, _
  lpFindFileData As WIN32_FIND_DATA, _
  ByVal dwFlags As Long, ByVal dwContent As Long) As Long
'api para buscar el siguiente archivo
Private Declare Function InternetFindNextFile Lib "wininet.dll" _
  Alias "InternetFindNextFileA" (ByVal hFind As Long, _
  lpvFindData As WIN32_FIND_DATA) As Long



Public Enum e_TipoTransferencia
[ BINARIO ] = FTP_TRANSFER_TYPE_BINARY
[ ASCII ] = FTP_TRANSFER_TYPE_ASCII
[ DESCONOCIDO ] = FTP_TRANSFER_TYPE_UNKNOWN
End Enum

   'Handle de la conexión Ftp
   Dim HandleConect As Long
   'Handle de la conexión a Internet
   Dim hOpen As Long
   
'Variables locales
Private m_DirectorioActual As String
Private m_Usuario As String
Private m_PassWord As String
Private m_Servidor As String
Private m_DirAnterior As String
Private m_listView As ListView
Private m_TipoTransferencia  As Long
Private m_form As Form

Private ctrl As Object

'Funciones Varias para el manejo de archivos y carpetas en el servidor Ftp
'***********************************************************************
'***********************************************************************

'Rutina que conecta al Servidor Ftp
Public Function ConectarFtp(Optional ControlStatus As Object _
                           = Nothing) As Boolean
   
'Verificamos que los datos de la cuenta estén establecidas, si no mostramos un _
mensaje y salimos
If m_Usuario = "" Or m_Servidor = "" Or m_PassWord = "" Then
  MsgBox "No se puede conectar. Verifique el Nombre de usuario," _
  & "El nombre del Servidor y la contraseña que estén establecidas", vbCritical
  ConectarFtp = False
  Exit Function
End If
   

  Set ctrl = ControlStatus
  Status "...Intentando conectar a: " & m_Servidor
  m_form.MousePointer = vbHourglass
   
'Abrimos una conexión a Internet
hOpen = InternetOpen(vbNullString, _
       INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, _
       vbNullString, 0)

If hOpen = 0 Then
  Status "Error en la conexión a internet, compruebe la conexión"
  m_form.MousePointer = vbDefault
  ConectarFtp = False
  Exit Function
End If
'Conectamos al servidor FTP, pasandole los datos: login y servidor
HandleConect = InternetConnect(hOpen, m_Servidor, _
              INTERNET_DEFAULT_FTP_PORT, m_Usuario, _
              m_PassWord, INTERNET_SERVICE_FTP, _
              IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
             
If HandleConect = 0 Then
  Status "Error. Compruebe los datos del servidor Ftp sin son correctos"
  m_form.MousePointer = vbDefault
  ConectarFtp = False
  Exit Function
End If
Status "Conectado a: " & m_Servidor
m_form.MousePointer = vbDefault
ConectarFtp = True
End Function

'Desconecta del servidor FTP
'**************************************************
Public Sub Desconectar()
   Dim ret As Long
   'cierra la conexion FTP
   ret = InternetCloseHandle(HandleConect)
   If ret = 0 Then Status "Error al desconectar": Exit Sub
   'cierra la conexion a internet
   ret = InternetCloseHandle(hOpen)
   If ret = 0 Then Status "Error al desconectar": Exit Sub
   
   Status "Desconectado de: " & m_Servidor
   Class_Terminate
End Sub

'Recupera el directorio actual donde estamos ubicados
'*****************************************************
Public Function GetDirectorioActual() As String
   'Crea un buffer
   m_DirectorioActual = String(MAX_PATH, 0)
   'Obtenemos el directorio actual
    ret = FtpGetCurrentDirectory(HandleConect, m_DirectorioActual, _
          Len(m_DirectorioActual))
    GetDirectorioActual = m_DirectorioActual
End Function

'Establecemos el Directorio Actual
'****************************************************
Public Sub CambiarDirectorio(PathDirectorio As String)
   
       
   Dim pData As WIN32_FIND_DATA
   Dim hFind As Long  'handle usado para buscar fichs en FTP
   Dim ret As Long
   Dim strDir As String
   
   
   
   strDir = Replace(m_DirectorioActual, Chr(0), "")
   
   If strDir = "/" And PathDirectorio = "../Subir un nivel" Then: Exit Sub
   
   m_form.MousePointer = vbHourglass
   
   If PathDirectorio = "../Subir un nivel" Then
     pos = InStrRev(strDir, "/")
     strDir = Left(strDir, pos)
     
     
     
     'Cambia al Directorio Ftp especificado
      ret = FtpSetCurrentDirectory(HandleConect, strDir)
     
      If ret = 0 Then
         Status "Error al cambiar de directorio."
      End If
      m_form.MousePointer = vbDefault
      Exit Sub
   End If
   
   'Cambia al Directorio especificado
   ret = FtpSetCurrentDirectory(HandleConect, strDir & "/" & PathDirectorio)
   
   If ret = 0 Then
      Status "Error al cambiar de directorio"
   End If
   m_form.MousePointer = vbDefault
   
End Sub


'Crea un nuevo directorio
'*******************************************
Public Sub CrearDirectorio(NameDirectorio As String)

'Creamos un nuevo  directorio ('testing')
ret = FtpCreateDirectory(HandleConect, NameDirectorio)
If Not ret Then
  Status "Error al crear el directorio, compruebe el nombre que sea válido"
Else
  m_listView.ListItems.Add , , NameDirectorio, , "carpeta"
  m_listView.ListItems(m_listView.ListItems.Count).Selected = True
  m_listView.SetFocus
End If
 
End Sub

'Crea o sube un nuevo Archivo.
'********************************************
Public Sub SubirArchivo(localArchivo As String, NombreArchivoRemoto As String)
'manda fichero al servidor FTP
ret = FtpPutFile(HandleConect, localArchivo, NombreArchivoRemoto, _
          m_TipoTransferencia, 0)
If ret Then
  m_listView.ListItems.Add , , NombreArchivoRemoto, , "archivo"
  m_listView.ListItems(m_listView.ListItems.Count).Selected = True
  m_listView.SetFocus
Else
  Status "Error al subir el fichero:" & NombreArchivoRemoto
End If
End Sub
   
   
'Renombra un archivo en el directorio Ftp corriente
'****************************************************
Public Sub RenombrarArchivo(Archivo As String, nuevoNombre As String)

'renombra 'test.htm' to 'apiguide.htm'
ret = FtpRenameFile(HandleConect, Archivo, nuevoNombre)

If ret Then
  m_listView.SelectedItem.Text = nuevoNombre
  m_listView.SetFocus
Else
  Status "Error al renombrar el fichero:" & nuevoNombre
End If

End Sub


Public Sub ObtenerArchivo(ArchivoRemoto As String, ArchivoLocal As String, _
          Optional SobreEscribir As Boolean = False)
'recupera fichero del servidor FTP: ArchivoRemoto es el nombre del archivo remoto
'ArchivoLocal es el nombre y ruta donde se colocará el archivo en local
ret = FtpGetFile(HandleConect, ArchivoRemoto, ArchivoLocal, _
          SobreEscribir, 0, m_TipoTransferencia, 0)

If ret Then
  Status "Archivo descargado correctamente:"
  m_listView.SetFocus
Else
  Status "Error al intentar descargar el fichero: " & ArchivoRemoto
End If

End Sub

'Eliminar Archivo del servidor Ftp
Public Sub EliminarArchivo(Archivo As String)
'elimina el fichero del servidor FTP
ret = FtpDeleteFile(HandleConect, Archivo)
If Not ret Then
   Status "Error. No se pudo eliminar el archivo: " & Archivo
End If
End Sub


Public Sub EliminarDirectorio(Directorio As String)
'elimina el directorio
ret = FtpRemoveDirectory(HandleConect, Directorio)
If Not ret Then
   Status "Error. No se pudo eliminar el Directorio: " & Directorio
End If
End Sub

Private Sub Status(mensaje As String)
On Error GoTo SubError
ctrl = mensaje
Exit Sub
SubError:
If Err.Number = 91 Then Resume Next
End Sub


Public Sub ListarArchivos()
   Dim Item As ListItem
   Dim pData As WIN32_FIND_DATA
   Dim hFind As Long  'handle usado para buscar fichs en FTP
   Dim ret As Long   'valor devuelto por API
   

   m_form.MousePointer = vbHourglass
   
   'crea buffer
   pData.cFileName = String(MAX_PATH, 0)
   
   'busca el primer fichero
   hFind = FtpFindFirstFile(HandleConect, "*.*", pData, 0, 0)
   
   m_listView.ListItems.Clear
   
   'Si Hfind vale 0 es porque no hay archivos ni directorios
   If hFind = 0 Then
      Set Item = m_listView.ListItems.Add(, , "../Subir un nivel", , "carpeta")
      Item.SubItems(2) = getFecha(pData)
      m_form.MousePointer = vbDefault
      Exit Sub
   End If
   
   
   Set Item = m_listView.ListItems.Add(, , "../Subir un nivel", , "carpeta")
   
   If pData.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY Then
      Set Item = m_listView.ListItems.Add(, , pData.cFileName, , "carpeta")
      Item.SubItems(2) = getFecha(pData)
   Else
     
      Set Item = m_listView.ListItems.Add(, , pData.cFileName, , "archivo")
      Item.SubItems(1) = Round((pData.nFileSizeLow / 1024), 2) & " Kb"
      Item.SubItems(2) = getFecha(pData)
   End If
   
   'si no hay mas Archivos sale
   If hFind = 0 Then
      m_form.MousePointer = vbDefault
      Exit Sub
   End If
   Do
       'crea buffer
       pData.cFileName = String(MAX_PATH, 0) 'se llena con nulos
       'find the next file
       ret = InternetFindNextFile(hFind, pData)
       'si no hay ficheros, no sigue
       If ret = 0 Then Exit Do

   
   If pData.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY Or _
                              pData.dwFileAttributes = 0 Then
      'Agrega el nombre del directorio
      Set Item = m_listView.ListItems.Add(, , pData.cFileName, , "carpeta")
      Item.SubItems(2) = getFecha(pData)
   Else
      'agrega el archivo y Muestra el tamaño del mismo en el LV
      Set Item = m_listView.ListItems.Add(, , pData.cFileName, , "archivo")
      Item.SubItems(1) = Round((pData.nFileSizeLow / 1024), 2) & " Kb"
      Item.SubItems(2) = getFecha(pData)
   End If
   
   Loop
   'Cerramos el handle de búsqueda
   InternetCloseHandle hFind
   m_listView.Sorted = True
   m_form.MousePointer = vbDefault
End Sub


'Actualiza la lista de Archivos y directorios en el ListView
'************************************************************
Public Sub Actualizar()

   Dim pData As WIN32_FIND_DATA
   Dim hFind As Long  'handle usado para buscar fichs en FTP
   Dim ret As Long   'valor devuelto por API
   Dim Item As ListItem
   
   
   m_form.MousePointer = vbHourglass
   
   'crea buffer
   pData.cFileName = String(MAX_PATH, 0)
   
   'busca el primer fichero
   hFind = FtpFindFirstFile(HandleConect, "*.*", pData, 0, 0)
   
   m_listView.ListItems.Clear
   
   If hFind = 0 Then
      Set Item = m_listView.ListItems.Add(, , "../Subir un nivel", , "carpeta")
      m_form.MousePointer = vbDefault
      Exit Sub
   End If
   
   
   Set Item = m_listView.ListItems.Add(, , "../Subir un nivel", , "carpeta")
   
   If pData.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY Then
      Set Item = m_listView.ListItems.Add(, , pData.cFileName, , "carpeta")
      Item.SubItems(2) = getFecha(pData)
   Else
      Set Item = m_listView.ListItems.Add(, , pData.cFileName, , "archivo")
      Item.SubItems(1) = Round((pData.nFileSizeLow / 1024), 2) & " Kb"
      Item.SubItems(2) = getFecha(pData)
   End If
   
   'si no hay mas Archivos sale
   If hFind = 0 Then
      m_form.MousePointer = vbDefault
      Exit Sub
   End If
   Do
       'crea buffer
       pData.cFileName = String(MAX_PATH, 0) 'se llena con nulos
       'find the next file
       ret = InternetFindNextFile(hFind, pData)
       'si no hay ficheros, no sigue
       If ret = 0 Then Exit Do
       'Archivo

   If pData.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY Or pData.dwFileAttributes = 0 Then
      Set Item = m_listView.ListItems.Add(, , pData.cFileName, , "carpeta")
      Item.SubItems(2) = getFecha(pData)
     
   Else
      Set Item = m_listView.ListItems.Add(, , pData.cFileName, , "archivo")

      Item.SubItems(1) = Round((pData.nFileSizeLow / 1024), 2) & " Kb"
      Item.SubItems(2) = getFecha(pData)
     

     
     
   End If
   
   Loop
   'Cerramos el handle de búsqueda
   InternetCloseHandle hFind
   m_listView.Sorted = True
   m_form.MousePointer = vbDefault
End Sub


Private Function getFecha(pData As WIN32_FIND_DATA) As Date
  Dim stSystemTime As SYSTEMTIME

           If FileTimeToSystemTime(pData.ftLastWriteTime, stSystemTime) > 0 Then
               VBATime = DateSerial(stSystemTime.intYear, _
                stSystemTime.intMonth, _
               stSystemTime.intDay) + TimeSerial(stSystemTime.intHour, _
               stSystemTime.intMinute, stSystemTime.intSecond)
           End If
           getFecha = VBATime
End Function


Public Sub Inicializar(Formulario As Form)
    Set m_form = Formulario
End Sub

'Para mostrar los errores
'************************************************+
Private Sub ShowError()
   Dim lngNumError As Long
   Dim strMemoError As String
   Dim lngTamBuffer As Long
   '-----------------------------
   'Tamaño del buffer
   InternetGetLastResponseInfo lngNumError, _
      strMemoError, lngTamBuffer
   'crea buffer
   strMemoError = String(lngTamBuffer, 0)
   'Recupera informacion del error
   InternetGetLastResponseInfo lngNumError, _
       strMemoError, lngTamBuffer
   'Mostrar el error en msgbox
   MsgBox "Error " & CStr(lngNumError) & ": " & strMemoError, _
      vbOKOnly Or vbCritical
End Sub


'Nombre de usuario de la cuenta Ftp
'**********************************
Public Property Get Usuario() As String
Usuario = m_Usuario
End Property

Public Property Let Usuario(ByVal vNewValue As String)
m_Usuario = vNewValue
End Property

'Nombre del servidor Ftp
'***********************
Public Property Get Servidor() As String
Servidor = m_Servidor
End Property

Public Property Let Servidor(ByVal vNewValue As String)
m_Servidor = vNewValue
End Property

'Contraseña de la cuenta FTP
'***************************
Public Property Get PassWord() As String
PassWord = m_PassWord
End Property

Public Property Let PassWord(ByVal vNewValue As String)
m_PassWord = vNewValue
End Property

'Establece el ListView donde listar los ficheros
'***********************************************
Public Property Get ListView() As ListView
Set ListView = m_listView
End Property

Public Property Set ListView(ByVal vNewValue As ListView)
Set m_listView = vNewValue
End Property

'Modo de Transferencia
'**********************************************
Public Property Get TipoTransferencia() As e_TipoTransferencia
   TipoTransferencia = m_TipoTransferencia
End Property
Public Property Let TipoTransferencia(NewData As e_TipoTransferencia)
   m_TipoTransferencia = NewData
End Property


Private Sub Class_Terminate()
On Local Error Resume Next
 'Cerramos la cesión FTP y la conexión a internet
 InternetCloseHandle HandleConect
 InternetCloseHandle hOpen
 'Eliminamos las variables de objeto
 Set ctrl = Nothing
 Set ListView = Nothing
 Set m_form = Nothing
End Sub


Proyecto: http://www.mediafire.com/?irabj2910123ird

Ahora mi problema es q mi servidor me da una carpeta "public_html"; donde tengo q guardar el archivo jpg. pero no puedo hacer que lo envie automaticamente a esa carpeta. alguien me podra dar una mano con esto?

resulta q me tope con un problema; estando programando un programa simple; quise extraer informacion de un webbrowser pero no pude.

webbrowser1 tiene un pagina; en su contrenido hay unos datos muy importantes que se tendrian que tomar para moverlos a una variable o label.

la informacion a tomar esta separada por "," y se encuentra entre "dat.setCenter(new GLatLng(" y ")," en el codigo fuente del sitio.

en cual es un siple api de google maps.

Código (html4strict) [Seleccionar] Expandir

var map = new GMap2(document.getElementById("map"));
GEvent.addListener(map, "moveend", function() {
  var center = map.getCenter();
  document.getElementById("message").innerHTML = center.toString();
});
map.setCenter(new GLatLng(37.4419, -122.1419), 13);

puedo de alguna manera extraer esta linea o su contenido entre lo anterior dicho?

[Captura del sitio:]

Samy Kamkar nos precenta su nuevo proyecto. Despues del famoso geolocalizador de MAC's que él solo habia creado, ahora Samy se unio con google y nos trae "Android Map". Samy en Android Map nos trae toda la base de datos que habia creado Google haciendo Wardriving en autos y con sus dispositivos Android, cada persona que tiene un Android, en cada red que se conecta este envia el nombre, la posición geografica y la calidad de la señal. y así ya tenemos lo nuevo:

Captura del sitio:

con tan solo visitar http://samy.pl/androidmap/index.php?mac= y colocar la MAC Address, ya tenemos su posición.

LINK:
http://samy.pl/androidmap/
http://samy.pl/
http://twitter.com/samykamkar

FUENTE: http://www.wirelessvalh.com.ar/

hola, quisiera saber el FCC ID de la kasens GS-5000, si alguin me lo pasa, se lo agradeceria, ya que no tengo la caja...

saludos

hola a todos, me regalaron un adaptador inalambrico con chipset rt2571wf que segun dicen es de la familia de los rt37, mi caso es que intente con un par de drivers ya pre-parcheados (DEB) y no logre que me la reconociera, el adaptador figura, pero no el driver y el modo monitor no figura.

actualemte utilizo ubuntu 11.04 beta 2, inyectando con alfa awus036nh, airoscript, aircrack-ng-ptw andando 100%.

¿alguien me pasa como parchearlo?

buenas, vi que dicen que el TP-Link TL-WN321G con chipset RT73 supuestamente. pero en la imagen dice 2571WF... queria preguntar si alguien la uso, cualquier sistema de auditorias, backtrack,wifiway,wifislax,beini.   . ya que es muy economica...

bueno como ya estoy cansado de los lives cd's me instale el ubuntu 10.04...  bien, ahora comence a agregar programar...

AirCrack-ng

Código [Seleccionar] Expandir

sudo apt-get install aircrack-ng

Kismet

me tira esto:

Código [Seleccionar] Expandir

sudo apt-get install kismet
Leyendo lista de paquetes... Hecho
Creando árbol de dependencias       
Leyendo la información de estado... Hecho
Se instalarán los siguientes paquetes extras:
  libc-ares2 libcap2-bin liblua5.1-0 libsmi2ldbl wireshark wireshark-common
Paquetes sugeridos:
  sox festival gpsd libcap-dev snmp-mibs-downloader
Se instalarán los siguientes paquetes NUEVOS:
  kismet libc-ares2 libcap2-bin liblua5.1-0 libsmi2ldbl wireshark
  wireshark-common
0 actualizados, 7 se instalarán, 0 para eliminar y 373 no actualizados.
Necesito descargar 13,8MB de archivos.
Se utilizarán 50,9MB de espacio de disco adicional después de esta operación.
¿Desea continuar [S/n]? s
AVISO: ¡No se han podido autenticar los siguientes paquetes!
  libc-ares2 liblua5.1-0 libsmi2ldbl libcap2-bin wireshark-common kismet
  wireshark
¿Instalar estos paquetes sin verificación [s/N]? s
Err http://es.archive.ubuntu.com/ubuntu/ lucid/main libc-ares2 1.7.0-1
  No pude conectarme a es.archive.ubuntu.com:80 (150.214.5.135). - connect (110: Expiró el tiempo de conexión)


y si quiero instalarlo desde el gestor de software... me dice que la instalacion requiere de software no autoidentificado. y no lo instala... esto me pasa con todos los demas programas...

ahora queria poner un script, me baje el ultimo airoscript... pero cuando lo quiero ejecutar nada..

Código [Seleccionar] Expandir

/home/valh/Descargas/airoscript1-7RC2.sh
bash: /home/valh/Descargas/airoscript1-7RC2.sh: Permiso denegado

sudo /home/valh/Descargas/airoscript1-7RC2.sh
sudo: /home/valh/Descargas/airoscript1-7RC2.sh: command not found


me baje el spoonwep2 y lo ejecuto... nada no aparece. quise hacer un accedo directo pero nada.. sale lo mismo.

¿me dan alguna idea de como hacer funcionar esto? ¿que otros soft me recomiendan?

alguien tiene algun diccionario para WPA de mas de 8 digitos en español??

ya baje  varios pero estan mal... estoy usando a john

hola que tal, me baje el CST Studio suite 2009, que es un programa para diceñar antenas y ver cuantos dbi tiene, despues de tres largos dias bajandolo, por fin lo tengo  pero el problema esta que no lo puedo registrar, me es imposible, menos con el lindo readme:

Código [Seleccionar] Expandir

Êàê êðÿ÷èòü CST2009 êðÿêîì îò CST2008 è ëèöåíçèåé îò 2009:


1.Óñòàíàâëèâàåì CST. Óñòàíàâëèâàåì ñåðâèñïàêè ñ ïîìîùüþ CST Update Manager. (Òåñòèðîâàíû SP1, SP2, SP3, SP5)

2.Çàïóñêàåì CST License Manager, îñòàíàâëèâàåì ñåðâèñ ìåíåäæåðà ëèöåíçèé. Çàêðûâàåì âñå ïðèëîæåíèÿ îòíîñÿùèåñÿ ê CST.

3.Êîïèðóåì ïàò÷  äèðåêòîðèþ C:\Program Files\CST Studio Suite 2009 è çàïóñêàåì åãî.

4. ïðèëàãàåìîì ôàéëå ëèöåíçèé ïðàâèì õîñòíåéì íà èìÿ ñâîåãî êîìïüþòåðà (Ïðàâîé êíîïêîé ìûøè íà "My Computer", Properties, âêëàäêà Cumputer Name, èìÿ êîìïüþòåðà = Full Computer Name äî òî÷êè ) Êðîìå òîãî ðåêîìåíäóþ èçìåíèòü äåôîëòíûé ïîðò 27000 íà êàêîé ëèáî äðóãîé (íàïðèìåð 27777), âî èçáåæàíèå êîíôëèêòîâ ñ äðóãèì ñîôòîì, èñïîëüçóþùèì FlexLM.

5.Ñîõðàíÿåì ëèöåíçèþ  C:\Program Files\CST Studio Suite 2009

6.Ãåíåðèì ëèöåíçèþ íà APLAC ñ ïîìîùüþ ïðèëîæåííîãî êåéãåíà, ñîõðàíÿåì ïîëó÷åííûé ôàéë  C:\Program Files\CST Studio Suite 2009 ïîä èìåíåì license.lic (APLAC íå èñïîëüçóþ, ïîýòîìó íå ãàðàíòèðîâàòü ÷òî áóäåò ðàáîòàòü íå ìîãó)

7. Çàïóñêàåì ìåíåäæåð ëèöåíçèé. Ñ åãî ïîìîùüþ ñòàðòóåì ñåðâåð ëèöåíçèé è ïî ëîãàì óáåæäàåìñÿ ÷òî âñå ÎÊ.

8. Äëÿ ðàáîòû íà 64-bit îïåðàöèîííûõ ñèñòåìàõ çàìåíèòü \AMD64\modeller_AMD64.exe íà modeller.exe

9. Çàïóñêàåì CST, óêàçûâàåì àäðåñ è ïîðò ñåðâåðà è åñëè âñå ÎÊ, òî äîëæíà çàïóñòèòüñÿ ñðåäà.


Æåëàþ óñïåøíûõ ðàñ÷åòîâ!
Radiolab

si alguien sabe como parchearlo se lo agradeceria!!!

[Bienvenidos queridos amigos del foro; como ya les habia anunciado anteriormete, he encontrado la manera de Auto-Geolocalizar varias MAC a la ves con Samy; sin tener ningun tipo de contacto con el sitio; soloutilizaremos una rama de programas para realizar este proceso. Les recomiendo que si es la primera ves que lo hacen, lo hagan con tan solo 5 o 10 MAC's, luego cuando les agarren la mano a las modificiaciones de archivos que se hacen mientras se genera este proceso lo pueden llegar ha hacer con mas de 300 MAC's al mismo tiemo; bueno primero les voy a dar la lista de programas (todos estan en el PACK):]

Bienvenidos queridos amigos del foro; como ya les habia anunciado anteriormete, he encontrado la manera de Auto-Geolocalizar varias MAC a la ves con Samy; sin tener ningun tipo de contacto con el sitio; soloutilizaremos una rama de programas para realizar este proceso. Les recomiendo que si es la primera ves que lo hacen, lo hagan con tan solo 5 o 10 MAC's, luego cuando les agarren la mano a las modificiaciones de archivos que se hacen mientras se genera este proceso lo pueden llegar ha hacer con mas de 300 MAC's al mismo tiemo; bueno primero les voy a dar la lista de programas (todos estan en el PACK):

RAMA DE PROGRAMAS:
- NetStumbler (Instalado) [Parchear]
- autoMACgeo v2.0 [Portable]
- KMLCSV Converter [Instalar]
- Google Earth [Opcional]
- Microsoft Office Excel [Si o Si Instalado]

Bueno el programa principal es el "autoMACgeo v2.0"; este programa abrira MAC por MAC en segundos y mediante a samy nos dara los valores de posicionamiento en el mundo. Este es un programa que requiere de muchos recursos; en especial de procesador; por ejemplo: Intel Atom 1,6GHz x2, Intel Pentium D 3,6GHz; es lo que más les pide, ya que utiliza el 100% del procesador. Les recomiendo que cuando lo utilicen, solo usen ese programa, no tengan habiero el Firefox, Mensenger entre otros archivos que precenten un consumo; solo dejen el antivirus y el autoMACgeo.

¿Que tan rapido geolocaliza?
bueno, autoMACgeo geolocaliza 100 MAC's en menos de 1 minuto (Intel Atom 1,6GHz x2)             

¿Bajo que sistemas operativos trabaja?
autoMACgeo solo funciona bajo Windows XP; no se ha probado en otros sitemas operativos como Vista o 7.

¿Cuanto pesa el programa y la suite?
El programa pesa tan solo unos 14MB y la suite unos 30MB descomprimida.

¿Hay errores?
pues claro, si no dejamos que el programa trabaje solo y se queda sin recursos; se va a colgar y hasta puede llegar a reiniciar el equipo. (no es casual)

¿Una Captura?

Bueno los dejo con los Links, lo subi a varios servidores por las dudas  ; el archivo pesa 20MB y descomprimido 30MB, tienen todo lo necesario para poder usar el programa y los programas; porque no solo usaremos el autoMACgeo sino que tambien utilizaremos lo programas que ya he nombrado en la Rama!

DESCARGA FILESERVER (No Caduca)

DESCARGA MEGAUPLOAD (No Caduca)

DESCARGAR ZSHARE

DESCARGAR RAPIDSHARE

DESCARGAR HOTFILE

DESCARGAR UPLOADING

No se pueden quejar, todo totalmente explicado y muy detallado el tutorial; imagen por imagen; paso por paso. Lamento no ponerles el tutorial aquí; pero ya son las dos de la mañana y sigo con esto... jejjee... tarde tres oritas en compilar, escribir codigos y unos 20 minutos para subirlos a cada host... jejeje... me voy a dormir...  8)

Saludos a todos y comenten lindo y vamos por conquistar el mundo! 

[bueno, cree un foro usando una base de SMF 2.0 RC3 luego como me entere que estaba la version SMF 2.0 RC4 me la baje lo parchie, el problema es que perdi gran parte del material del foro, muchos post no se veia. bueno, ahora queria ponerle una especie de chat onda facebook; etc, pero no logro instalar ningun paquete, todos estan bien pero a la hora de instalar se caduca la pagina, osea que no puede llegar a instalar. quise poner un portal; me fue imposible, quise poner el chat, nada, quise poner una funcion para poner los videos de youtube, nada... q me recomiendan?? a alguien le paso?]

bueno, cree un foro usando una base de SMF 2.0 RC3 luego como me entere que estaba la version SMF 2.0 RC4 me la baje lo parchie, el problema es que perdi gran parte del material del foro, muchos post no se veia. bueno, ahora queria ponerle una especie de chat onda facebook; etc, pero no logro instalar ningun paquete, todos estan bien pero a la hora de instalar se caduca la pagina, osea que no puede llegar a instalar. quise poner un portal; me fue imposible, quise poner el chat, nada, quise poner una funcion para poner los videos de youtube, nada... q me recomiendan?? a alguien le paso?

Bueno es facil, solo tienes que seguir los pasos de este tuto:

Clic en la Imagen.

[youtube=525,450]http://www.youtube.com/watch?v=uGRvnbyVp0w[/youtube]

hola, he estado mirando el post de como programar en vbs; bueno el script que quiero realizar es para el programa de wireless NETSTUMBLER, al cual se le pueden generar varios Scrips, pero el problema es que anduve buscando un script o script en general y no he encontrado ninguno; bueno el script a desarrollar seria guardar solamente la columna de MAC's en un Archivo de Texto; ya que hay un programa que te geolocaliza todas las macs que esten en un archivo de texto automaticamen.

creen que se podria usar este codigo:

Código [Seleccionar] Expandir

Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("C:\archivo.txt",true) 'creamos el archivo
archivotexto.writeline "Este es el texto que estoy escribiendo" 'escribimos una linea
archivotexto.writeblanklines(2) 'escribimos 2 lineas en blanco
archivotexto.writeline "Aqui mas texto" ' escribimos otra linea de texto
archivotexto.close 'cerramos el archivo

http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html#ixzz1DJY9m9aW

la única información para hacer script son: http://www.stumbler.net/scripting.html

bueno si alguien me daria una mano, se lo agradecería.

bueno, vi que el netstumbler tiene una parte de scripts, estos escrips pueden estar en varios lenguajes de programacion, para saber mas...

la cuestion esta en que yo puse mi videotutorial de como geolocalizar los ap con un sitio web que nos da las cordenadas y tambien nos da el mapa. y lo que estaria bueno es tener una especie de scipts para poder recolectar estos datos de latitud y longitud y poder ponerlos en el netstumbler o hacer un pasaje que combierta a datos CVS para usar un programa que encontre que es tambien un scrip pero lo que hace es que, mediante un pyton toma de un archivo CVS los datos de la mac nombre y eso, los busca en el sitio web, al obtener la info la pasa a un archivo de KML del Google Earth y al abrirlo se veria son exactitud todas las ap marcadas en el mapa. (poniendo un archivo CVS en la carpeta entrada y en las demas saldria los datos).

Archivo

no se si alguien sabe algo de programacion y se quiere armar este scrip estaria muy bueno...

altere las dimenciones del video ya que sino no se puede apreciar bien, cualquier cosa las cambian.

[youtube=600,450]http://www.youtube.com/watch?v=Ek59NjjHfhA[/youtube]

bueno hola a todos, mi vecino me propuso hachear su red, esta usando un sistema de seguridad que solo permite que 2 MAC's se conecten al router. La cuestion esta que yo le quise crackear con el wifiway y nada no suben los datas.... 3 horas.... o datas.... luego me pase al beini, use el minidwep-gtk y junte 1000 en 3 horas.... y ahora que lo quise hacer denuevo no he podido hacerlo, ya ni junta.

mi placa es una alfa 1w, la señal esta a pwr 30, unos 78 metros de distancia, tengo todos los sitemas operativos: wifiway 1.0, wifiway 2.0, back track 4 r2, beini 1.2.1, wifislax 3.1, OSWA, FBI, nUbuntu 3.4, etc.

el modem es un 3 com, 54 MB.

alguien tiene idea de que hacer?

DATA: he probaco cambiarme la mac a la del router pero no sube....

hola, me he comprado una alfa 1w y he estado utilizando los 3 mas famosos s.o. de auditoria: wifiway, wifislax, black track 4 y he tenido muchos problemas.... 

bueno paso a explicar:

en wifiway me salta un error (v2 del wifiway) al poner la alfa en modo monitor. por ello me mude a wifislax, el cual anda bien el modo monitor, pero tengo problemas al capturar paquetes, no capture nada, de ninguna señal... me di cuenta que el txpower estaba en 9dbi (7mW) al verlo quise cambiarlo pero no me dejo, solo puedo cambiar de 0 a 9; al intentar mas me tira error. creo que por ello no puedo capturar nada. para tratar de cambiar el tx use: iwconfig wlan1 txpower 9 (del 10 al 35 no funciona) y no logre nada.  quisiera saber si alguien tiene alguna solucion para eso? cambiar drivers? otra forma de subir (lo de higpower no funciona)?

luego con el blacktrack4 me sucede que no me reconoce la alfa, la placa no aparece al hacer iwconfig. debo instalar los drivers de la alfa?

gracias.

hola a todos, acabo de comprar un adaptador AWUS036H de 1w y me ha dejado imprecionado:

esta captura (LA HE BORRADO YA QUE NO SE PERMITEN MACS COMPLETAS EN EL FORO) es en el techo con la alfa + la antena por defecto de 5dbi


Bueno paso a aclarar mis pregunta:

intente colocar la placa en modo monitor mediante a WifiWay 2 pero es como que tengo un problema con el driver o algo asi creo yo.



la verdad es que no se bien que es este error??

[Especificaciones]

hola q tal, esto en argentina y me ofrecieron una alfa.

Adaptador Usb Wifi Inalámbrico Alfa Awus036h High Power!



El producto tiene 3 meses de uso.

Especificaciones

Chipset Realtek RTL8187L
Standards: IEEE 802.11g y IEEE 802.11b
Banda de frecuencia: 2.412GHz~2.484GHz ISM band
Seguridad: 64/128bit WEP, WPA (TKIP with IEEE802.1x), WPA-PSK and WPA II
Potencia de salida: 802.11g hasta 24 +/- 1 dBm.
802.11b hasta 30 +/- 1 dBm.
Dimensiones(mm): 95(largo) x 59(ancho) x 16(alto) mm. Peso 120g.
Temperatura de funcionamiento: 0°C ~ 60°C
Compatible con: Windows 2000/XP/Vista/Windows 7 - MAC - LINUX

ya que me la ofrecieron tenia ganas de comprarla ya que me sale la mitad...

quisiera saber si alguien la ha utilizado tanto en wifislax como en blaktrack?
funciona en commons sobre windows?
q rango a la redonda tiene de señal... mas o menos...?
me la recomiendas?

[Buenas, bueno el caso es q me acaban de regalar una netbook Intel Atom 1.6 x2 con 2GB de Ram, 160 HD, video 350MB. y quisiera de alguna manera, la que pense fue por LAN (CABLE), darle conexion a internet mediante a mi otra maquina: Intel DualCore 3.6GHz, 2GB Ram, 80 HD(1), 490 HD(2), con una placa se Wifi - D-Link DWA-510 + una antena basica...]

Buenas, bueno el caso es q me acaban de regalar una netbook Intel Atom 1.6 x2 con 2GB de Ram, 160 HD, video 350MB. y quisiera de alguna manera, la que pense fue por LAN (CABLE), darle conexion a internet mediante a mi otra maquina: Intel DualCore 3.6GHz, 2GB Ram, 80 HD(1), 490 HD(2), con una placa se Wifi - D-Link DWA-510 + una antena basica...

Esta es la Antena, cubre un rango de 350 metros:


Resumido:

una maquina q usa internet con una placa wifi, le tiene q dar internet a una maquina (al mismo tiempo) mediante cable LAN!

Solo quiero saber si es posible?  

Agrego Datos:
Tengo un Adaptador Wifi-USB