Mensajes

Si no me equivoco, Visual Basic 6 no tiene soporte Unicode, por lo que las aplicaciones no suelen ser compatibles con PC's Chinos, esto, en Delphi por ejemplo, no pasa.

//Regards.

Si consigues dinero independiente del método me vale, sino no es factible. Saludos

Yo no estoy fomentando esta tecnica, no olvidemos que esto es Robar, solo informo a los usuarios de la Red Bitcoin, si quieren dinero. busquense un trabajo.

//Saludos.

Lo estuve pensando el otro día... y no le encuentro ninguna pega al método que describes. La idea sería generar claves privadas como loco (el código estará por ahí, no es muy complicado), y obtener las direcciones BitCoin (igual, la cosa es encontrar el código, y como todo es open-source...). Comprobar si alguna dirección tiene saldo (se puede hacer conectándose a varios servidores a la vez, blockchain.info es uno, habrá más)... y esperar. Supongo que habrá miles de millones de claves posibles, y que el proceso de sacar las direcciones públicas y ver su saldo no va a ser muy rápido... pero con que encuentres una ya puedes celebrarlo. ¿A qué está ahora, a 400$? ¿700$? Con un poco de suerte y desarrollando un código en condiciones...
La única pega es que parece demasiado fácil! Y da igual que el usuario cifre sus claves privadas... no tiene nada que ver. Tú vas sacando claves privadas, da igual que ya las tenga otro! No sé... ¿dónde está el problema?
PD: Digo yo que se podría montar una red de ordenadores chiquitillos haciendo eso, no? Con fines educativos, digo... Al taller de criptografía asimétrica hay que empezar a sacarle provecho ^.^

Yo ya tengo todo montado y la lista con todas las Address (Ultimo tonto xD).
Por lo cual me reafirmo en que el metodo funciona, y NADIE esta a salvo de este GRAN Fallo.

//Regards.

hola Temas, que se tenga un lista de las direcciones, no quiere decir que se pueda tener acceso... otro punto los monederos se cifran aparte (sobre todo si tienes dinero!) si quedan sin cifrar, son los que recién empiezan etc, o monederos generados y abandonados, o para intercambio...

necesitas tener el monedero físicamente, y que el mismo no esté cifrado. distinto son los monederos online o de sitios de intercambio poco fiables.

saludos

Mira: 5HpHagT65TZzG1PH3CSu63k8DbpvD8s5ip4nEpBqb7tQsH73aYj  1NFCUZksBFdS2r4rX2acYgb2PBGouJc3Ww

Lo primero es el Private Key, lo segundo la Address.
Como esa, millones, yo mismo lo he comprobado.

//Regards.

Pero estamos hablando del sueldo mínimo según datos oficiales. No lo que pueden llegar ganar... sino lo mínimo que deberían.  Y tampoco es que sean calderilla ·_·

Creo que yo, como "Español" aprendí a no fiarme de los Datos Oficiales. 

En España ya se ofrecen 200MB Subida/Bajada en Jazztel, con ONO no pasa ningun plan de los 10MB/s de Subida, para "Evitar" el trafico P2P según ellos.

//Regards.

No se si esta es la Sección correcta, si no lo es, porfavor lleven el tema a su lugar.

Hace un tiempo que me hablaron de un tipo de Ataque por Fuerza Bruta a BitCoin para hacerse con las Cuentas de los usuarios, hoy explicare un poco en que consiste el Ataque.

Las Cuentas o "Address", son digamos los Monederos BTC's, que disponen de una Clave Unica y Privada Auto-Generada de 51 Caracteres AlfaNumericos, esto hace un total de 6.0466176e+17 Private Keys, en el Mercado Negro estan disponibles Listas de Private Keys con su respectivo Address, las cuales se procesan para ver que Address tiene Dinero y sí sera Rentable para el Ladrón.

Con esto, quiero decir que el BitCoin ha dejado de ser Seguro, aunque con un calculo Aproximado basado en una Aplicación Propia, que revisa 1024 Cuentas por Minuto, se necesitaria una media de 1.123.458.904 Años para testear todas las cuentas, pero tu Address podria ser una de las primeras.

PD: Abria puesto unos Address de ejemplo, pero no lo veo adecuado.

//Regards.

HOLA!!!

Por que no optimizamos el codigo un poco:

Código (vb) [Seleccionar] Expandir

    sMelt(WScript.ScriptFullName)
     
    Function sMelt(sFile)
       On Error Resume Next
       Execute("WScript.Sleep 3000: Set Melt = CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & "): Melt.DeleteFile " & Chr(34) & sFile & Chr(34))
    End Function

GRACIAS POR LEER!!!

Me gusta declarar las cosas, y mas en una funcion.

//Regards.

No se pueden usar espacios en los nombres. Lo que hago es coger el nombre del fichero y reemplazo el espacio (" ") por chrw(34) & " " & chrw(34)

Eso era lo que a mi me despistaba, sería mejor algo tipo Chr(34) & WScript.ScriptFullName & Chr(34), no?

PD: Perdonad que no use Etiquetas, ando desde el movil por viajes de negocios.

//Regards.

Eso ni se pregunta bro. 

//Regards.

bueno gracias por compartir en el foro, cuando tenga tiempo lo añadiré a la (nueva) librería de aportes

saludos

Me parece perfecto, muchas gracias. 

//Regards.