Mundo Codes

Posadas Internet Libre... "Mejorando el servicio" je

2011-12-02T17:32:00.000-08:00

Holas Gentes de Posadas...

Usuarios de "Posadas Internet Libre"... les paso un dato para mejorar la navegació...

Generalmente nos conectamos a este router y nos asigan una IP 10.1.49.XXX y puerta de enlace 10.1.49.1... como servidores DNS nos asigna 8.8.8.8 y 4.2.2.1 bueno lo que tenemos que hacer es irnos a la configuración tcpip de la coneccion de red activa nuestra y asignamos esos servidores DNS manualmente... en los cuales ponemos: 200.45.191.35 en principal y 200.45.48.233 que son los servidores DNS de arnet ... con esto basta como para mejorar la navegación!

Saludos!!!!

GaneCon.TextCashNetwork.com

2011-11-10T13:05:00.000-08:00

Esto va a funcionar en 167 paises,esta en prelanzamiento,empezara el sabado 12 de noviembre,se gana reciviendo sms en tu movil,enviaran 5 diarios de 0.05 y puedes seleccionar la franja en que deseas recibirlos.Total se gana 7.50$ al mes mas lo de tus referidos.

Si en el campo de tu pais al cargar la pagina,acaba en blanco es que de momento no esta activo,lo mismo puede pasar con el operador movil,en mi caso no esta orange,pero aparecera en adelante.Si esto ocurre te registras igualmente y de momento ganaras de tus referidos.

LOS PAGOS DE MOMENTO LOS REALIZAN POR TARJETA DE CREDITO

INSTRUCCIONES DE REGISTRO:

Ingresa desde aqui: http://GaneCon.TextCashNetwork.com

haces click en la parte derecha, en le boton naranja que dice: JOIN FREEE

En firstname: colocas tu nombre
en lastname: tu apellido
en company name: coloca tu nombre y apellido
en country: seleciona tu pais...
esperas un rato que cargue la pagina y se te abre un campo donde
debes buscar el operador o empresa de tu telefono movil en tu pais,
seleccionas tu operador, esperas otro momento que la pagina te crea
otro campo para que coloques el numero de tu movil... colocas todos
los numero de tu movil sin dejar campos, solo numeros.
En Email: colcoas tu email
En confirm Email: repites el mismo mail
En password: colocas tu contraseña
Confirm password: vuelves a colocar tu contraseña
En Website URL: colocas un nombre como quedara tu enlace o pagina de referido
　
Ingresas los numeros de verificacion que ves alli, en el campo respectivo.
haces clic en CONTINUE, en la proxima pagina te muestras los datos
para ver si con correctos, si es asi, haz clic en CONTINUE, No hay que olvidarse
de activar la casilla que ves alli, de terminos y condiciones.
En la proxima pagina tambien haces clic en CONTINUE,recibes un Mensaje en tu movil, debes responder ese mensaje con la palabra
Si..
Tambien recibes un mensaje en tu correo con un codigo de Validacion
(Validation Code) buscalo en tu correo de registro que recibes con otros datos
Alli, en ese mensaje encontraras que dice: Your Email Validation Code is:
copia esos numeros en el campo de la pagina que dice: Email validation Code:
haces clic en el boton azul. Validate Email
　
Y LISTO.. TE HABRAS REGISTRADO Y VALIDADO TU EMAIL Y TU NUMERO
MOVIL,
　
RECORDAR:
Esto va a funcionar en 167 paises,esta en prelanzamiento,empezara el sabado 12 de noviembre,
si en el campo de tu pais al cargar la pagina,acaba en blanco es que de momento no esta activo,
lo mismo puede pasar con el operador movil,en mi caso no esta orange,pero aparecera en adelante.
Si esto ocurre te registras igualmente y de momento ganaras de tus referidos.

Registro
http://GaneCon.TextCashNetwork.com

Araña Multi Escaner

2011-11-01T13:50:00.000-07:00

Holas gentes bueno aca dejo la nueva versión de mi escaneador de IP.

* Le eh agregado un calculador de rangos que el cual en base a un numero y la IP de inicio genera la IP de fin.

*Ahora los scanner no se crean individualmente, el programa distribuye el rango total de IPs a los scanners asignados.

*Una vez finalizado el scan las instancias son cerradas.

*En la parte posterior hay dos etiquetas las cuales muestran el tiempo de inicio y fin del escaneo.

*Se muestra la cantidad de IPs detectadas.

Descarga: MegaUpload

Aca dejo unas capturas:

Espero les sea de utilidad.

Saludos!

Escaner de IP

2011-10-25T17:09:00.000-07:00

Holas bueno como estoy medio aburrido me puse a experimentar con unos codigos en VB6 y salió esto... un escaner de ip por ping... mas bien un multiescaner.

En fin voy a explicar como funciona:

Primero verán que hay dos archivos uno es ping.exe y el otro general.exe.

Si abren Ping.exe veran esta pantalla:

Donde podrás hacer ping a una dirección IP X individualmente.

Si abres General.exe el cual se ve así:

Aquí podras hacer un multiescaneo, ya que permite crear multiples instancias de Ping .
Como es una versión Free puedes crear las instancias que quieras, pero tendras que agregar la ip de inicio y la ip de fin, de cada instancia nueva que crees, manualmente, antes de crearla.
El numero maximo de Hops no lo explicare ya que hay mucha info sobre el tema ese en internet, solo diré que cada uno lo setee acorde a su necesidad.

Bien una vez exlicado el uso, les dejo un par de imagenes con los resultados que me dio al hacer mi primer prueba con 25 scanners activos... aproximadamente 7000 ips fueron escaneadas, en un tiempo de 20 minutos.

Dejo unas capturas para que vean el insignificante consumo de recursos que produce este programa.

El uso de red con 25 sockets no supera el 1% (wireles de 54 mb/s), y de cpu tan solo un promedio de 2% con picos de 40% a 60% (en mi caso).
Como verán en esta ultima imagen el consumo de memoria por scanner es de 3.300 kb cuando esta en pleno funcionamiento, una vez finalizado el trabajo, cada scanner ocupa alrededor de 1.100 kb (en reposo).

Bueno espero les sea de utilidad.
Acá va el link: Descarga Megaupload

Saludos!!!

Como Juackiar una cuenta de hotmail!!!! Rumor comprobado!!!!!

2011-10-09T07:53:00.000-07:00

Holas despue de mucho tiempo sin publicar nada aca vuelvo publicando una conversación que tuve hace unos dias atras jeje... en la que "juackeamos" hotmail :P ... jajaja mmm alma juacker :P nanana mentira.. solo para prueba y con fines educativos...

Este metodo siempre ha sido un rumor... nadie lo comprueba, hace mucho tiempo (entre 10 y 6 años atrás) cuando apenas hotmail agregó este sistema a hotmail yo supe usarlo un par de veces... nunca creí que todavia siga funcionando :OOOO.....
Bue aca va:

Emiliano Traba

Hola como estas?

N/N 08 de septiembre

hola flaco bn bn

te cuento porq te agrege je

yo soy amig@ d XXXXXXXXXX

y me dijo q sabess muchisiimo de pc

Emiliano Traba 08 de septiembre

Sí decíme

N/N 08 de septiembre

no se si sabras peroo necesito hackear un facebook, mejordicho un msn q me va a ser mas facil y pagao para q alguien lo hagaa y alomejor vs sabias hacerlo

Emiliano Traba 08 de septiembre

perdon se me salio internet del cel

Ja podér se puede pero yo ya no lo hago... Sí querés te ayudo de onda... O sea te digo como hacerlo pero no es seguro que funcione

N/N 08 de septiembre

ahjejej

sii yo tmb toy buscandoo

qperoo q se yoo

como hacerlo

yo cagando el msn

saco el facee

es mas facil

eproo es mas quilomboo

no entiendo anda

jeje

Emiliano Traba 08 de septiembre

primero tenes acceso a la maquina desde donde entra la persona?

N/N 08 de septiembre

noo imposiblee

jej

Emiliano Traba 08 de septiembre

mmm entonces por medio de un scam, troyano o un exploit

N/N 08 de septiembre

ajam

Emiliano Traba 08 de septiembre

las unicas formas de que puedas hacerlo

un scam seria una copia de la pagina de logueo de hotmail... subido en otro servidor pero es medio complejo.. la otra es un exploit que es lo mas facil pero no hay muchos q funquen

y sino un troyano... per es mas complicado para que lo instale

N/N 08 de septiembre

si es todo un quilombo jeje

por esoo buscabaa alguien q me lo hagaa q sepaa hacerlo bn jje

y bue le pagaba para q me lo haga jeje

Emiliano Traba 08 de septiembre

jaja tambien podes probar... de seguro conoces a la persona.. y de seguro tiene cuentas en otra paginas... por lo generlas la gente usa una misma cntraseña para todo jaja

psss yo ya no hago eso por que ya me metio en varios kilmbitos jaja.. mala experiencia

N/N 08 de septiembre

es un/una N/N el/la q tengo q hack y es una verga jaja

y sii seguro jaja

Emiliano Traba 08 de septiembre

pss sino metete en paginas como hackerss.com messengeradictos

o esas

ahi de seguro encontras scams y exployts y todo con explicacion y toda la bola

N/N 08 de septiembre

a ver

voy entrando a las pag jaa

me nteog q ir encimaa q verga jajaj

bueno graciias por los datoss

cualquier cosaa t pregunto jej

o si conoces a alguien q lo hagoo

pegame el grito ejje

Emiliano Traba 08 de septiembre

oks cualquier cosa si necesitas que te explique algo en particular no tengo drama che

oks te aviso

N/N 08 de septiembre

buenoo graciias

Emiliano Traba 08 de septiembre

dnd che

N/N 08 de septiembre

aca avisamemsj privadoo

jej

Emiliano Traba 08 de septiembre

desp si queres pasame el correo y te digo .. por ahi ya alguien lo hackeo y esta e algun repositorio

N/N 08 de septiembre

el correo es XXXXXX@hot....

me nteog qir

desp cualquier cosa te avisoo

Emiliano Traba 08 de septiembre

oks

N/N 08 de septiembre

esoty viendo las pag q me dist no entiendo nada

jajaja

Emiliano Traba 08 de septiembre

cual de los 2 no entedes?

N/N 08 de septiembre

la del hac.com jaja

la otra la estoy viendo jaj

Emiliano Traba 08 de septiembre

cualquier cosa consultame

N/N 08 de septiembre

si en la segunda hablaa como es el msn nada mas je no dice nada raroo

estoy viendo en you tube como hacerloo

peroo es re complicadoo

Emiliano Traba 08 de septiembre

es mas facil de lo que parece,jaja cuestion de practica.

N/N 08 de septiembre

buenoo si es facill hacemeloo

jajaja

te consigoo lo q quieras jajaj

Emiliano Traba 08 de septiembre

dejame que lo piense bien,el tema que me a traido problema antes y no es seguro te consiga la contaseña ,despues capaz te pida inform sobre el/la chic@.

N/N 08 de septiembre

buenoo

peroo puedoo darte algoo q quieras noc

plata je

vs no vivvisen XXXXXXX?

pasa q d el/la N/N mucho no conoscoo

Emiliano Traba 08 de septiembre

si lo hago ,el favor queda pendiente

N/N 08 de septiembre

perfectoo

lo q quieras

q este a mi alcanze mas valee

jaja

tmp me vas a pedir un imposible jaja

.........................

Emiliano Traba 08 de septiembre

si vos queres saber la contraseña si cambiarla verdad?

N/N 08 de septiembre

sisisi

quiero entrar yo a su face

para esoo necesito saber su hotmail

jeje

XXXXXXXXXXXXx@hotmail.com ese es su correo

como te mostre antes jeje

Emiliano Traba 08 de septiembre

si pero no queres cambiarle la pass solo saberla ...

N/N 08 de septiembre

sii cambiarlaa no importaa

si es saberla es muchoo mjeor

osea si la se sin cambiar es mejor

a ver si soy mas claro se puede saber su contraseña sin cambiarla?

................................................

Emiliano Traba 08 de septiembre

bueno hay un par de formas

hay uan forma que es bastante facil... si sabes muchos dats de el/ella te vas a recuperar contraseña

N/N 08 de septiembre

sii se bastantee

Emiliano Traba 08 de septiembre

y en vez de seleccionar por pregunta secreta agarras y elegis ponerte en contacto con soporte

N/N 08 de septiembre

probe ahcerlo pero ni jaja

Emiliano Traba 08 de septiembre

una vez ahi... vas siguiendo los pasos .. cuado te pida una cuenta alternativa... hacete una cuenta que sea XXXXXXXXXX@hotmail.com.. (un id parecido al nombre de la victima)

y luego que selecciones esa cuenta... agarras y llenas el form que te da...

hay un par de formas... si es que te las ingenias

como el/ella no lee muy seguido los correos podes hacer que varios le envien correos con datos que vos sepas... los contactos que tenga los podes sacar facil...

y otros datos los debes saber... lo unic que queda colgado son las carpetas...

pero es lo de menos...

si llenas el form con datos armados como correos que le envias desde distintas cuentas te dan bola...

o sea es un trabajo que te lleva unos 3 o 4 dias

despues de eso... y llenado el form te dan pelota

ahi te van a hacer cambiar el pass lo ms seguro es q te den un link...

N/N 08 de septiembre

datos q yoo sepaa? osea el asunto?

Emiliano Traba 08 de septiembre

luego... que cambias el pass.. y lees lo que queres podes reestablecer la contraseña antigua en las opciones... y asi entras a hotmail.. sin saber la pass

al enviarle durante 4 dias algunos correos de distintas cuentas y despues los mencionas en el form queda creible y muchas veces lo pasa pr alto ... el soporte tecnico

las carpetas si el/ella no creo ninguna ni las menciones y pasa sin problemas eso..

y lo demas se puede saber..

N/N 08 de septiembre

ahh mira voss

jjee

si porq porpregunta secreta no la se

jaja

Emiliano Traba 08 de septiembre

jajaja proba por el form... solo que despues que cambias una vez que usaste y cambiaste... tenes que restaurar la contraseña

hay una funcion en hotmail que te permite volver a la contraseña vieja

creo que esta en opciones de privacidad

N/N 08 de septiembre

dondd esta ese opcion? peroo yo puedo saber la contra o noo?

Emiliano Traba 08 de septiembre

y asi ni cuenta se da que le entraste en la cuenta

no no la sabes pero podes leer sus correos... sin necesidad de saber su pass... y de ahi podes cambiar el pass de face... cuanto mucho

N/N 08 de septiembre

ahh oseaaentro una sola vezz

Emiliano Traba 08 de septiembre

sep

N/N 08 de septiembre

y no puedo entrar mas despues jaja

no importa esoo yo quieroo face jaja

pero sirve tmb jaja

Emiliano Traba 08 de septiembre

porque si usas ese metodo en una cuenta mas de una vez te calan al toque los de hotmail... y avisan d una... lo que podes hacer es esto... hotmail te da la posibilidad de recuperar tu pass al celu.. pone tu celu y recuperalo de ahi.. creo que tiene esa opcion nueva

N/N 08 de septiembre

q bitoo

Emiliano Traba 08 de septiembre

la estan implementando muchos sistems de orreo

o sea ua vez q entras configuras tu celu para recuperar la pass... y luego restauras la pass anterior

y despues cuandovas a recuperar te va a aparecer la opcion de al celular y le das ahi

lo que nunca me fije es ver que te manda si la pass o un link para que lo cambies

N/N 08 de septiembre

y ahi un problema con esoo?

oo es una boludes

Emiliano Traba 08 de septiembre

no... inclusive es una ventaja...

N/N 08 de septiembre

la pass o el link?

Emiliano Traba 08 de septiembre

porque si configuras un chip de esos que comprs por 5 mangos a tarjeta... es totalmente anonimo y ni cuenta se da... y lo de recuperar pass y despues restaurar .. con el metodo del celu lo pdes usar cuando se te cante

N/N 08 de septiembre

la pass jeje

ahh

creoo q algo entendii

jaja

seguroo te voy a ir preguntandoo

por ahoraa tengoo q mandarmails a su correo

Emiliano Traba 08 de septiembre

okas no hay drama

N/N 08 de septiembre

muchos mail ¡

Emiliano Traba 08 de septiembre

y mandale unos 8 maso.. durante unos 4 o 5 dias... y desde distintos mails...

N/N 08 de septiembre

los 8 de disntintoss?

Emiliano Traba 08 de septiembre

ponele de unos 5 mails distintos... y en cinco días

N/N 08 de septiembre

o puede aver 2 o 3 d uno mismo

Emiliano Traba 08 de septiembre

ya es sauficiente

N/N 08 de septiembre

okok

y ñpuedoo creer mails o tiene q ser q ya existee¿n?

jaja

Emiliano Traba 08 de septiembre

no importa que ella los borre en la bd los administradores ven los que estan y los borrados tbn

podes crear de otras empresas q no sean hotmail

N/N 08 de septiembre

ahh

dame alguna

Emiliano Traba 08 de septiembre

asi no pueden comprobar la fecha de creacion de las cuentas

N/N 08 de septiembre

aparte d yahoo y gmail

jaja

claroo

Emiliano Traba 08 de septiembre

gmail.com yahoo.com argentina.com

N/N 08 de septiembre

Perfecto

Emiliano Traba 08 de septiembre

el de facebook podes cnfigurarte

tamben podes mandar mails desde facebook... acordate... los avisos de fb...

N/N 08 de septiembre

el asunto?

Emiliano Traba 08 de septiembre

si.. cuando te llega una actualizacion de fb con un asunto.. create otra cuenta fb y agragala a tu cuenta y a la de sus contactos.. y te vana empezar a llegar las mismas actualizaciones que a ella

si te las ingenias un poco sacas al toque un par de correos sin necesidad de mandarlos

N/N 08 de septiembre

claro siisi algo creo q entendi

ajaa

Emiliano Traba 08 de septiembre

o sea las posibilidades de sacar info son muchisimas solo es cuestion de usar un poco de ingenieria social.. digamosle asi..

N/N 08 de septiembre

claroo

peor eigual es complii

Emiliano Traba 08 de septiembre

por eso fijate lo que te dije y si pensas un poco capaz sacas un monton de formas mas de saber..

N/N 08 de septiembre

sii igual esta es complicado jee

pero si funciona mejor

............................................................

N/N 08 de septiembre

una pre mas

esoo d soporte me pide un correo donde mandar la infoo

cual doy?

Emiliano Traba 08 de septiembre

create uno nuevo a nombre de el/ella...

eso hace mas creible que te hallas olvidado el pass

N/N 08 de septiembre

dalee

argetina.com nio me aparece para crear correos jeje

Emiliano Traba 08 de septiembre

creas una cuenta y desp creo que te da un correo

algo asi era

N/N 08 de septiembre

ahh

noo no me deja crear en argentona.com jeje

no hay otraa

Emiliano Traba 08 de septiembre

mm yahooo y gmail

otra la verdad no se

Emiliano Traba 08 de septiembre

pero podes jugar con lo del facebook que te dije eso le puede enviar muchos correos de actualizaciones.. de las aplicaciones

N/N 08 de septiembre

sii pero no entiendo eso dl face jajaj

Emiliano Traba 08 de septiembre

jajaja viste cuando comentan algo... fijate que el correo q te informa dice algo... entonces fijate que tiene en el muro y ya podes saber mas o menos que correos le enviaron desde fb

avisandole que le comentaron en tal caso o lo/la etiquetaron.. y demas

y si creas una cuenta paralela... y por ejemplo te etiquetas en ls mismas imagenes que el/ella te llega la misma actualizacion muchas veces

N/N 08 de septiembre

oseatengo q etiquetarl@ en la fotoo?

jeje

Emiliano Traba 08 de septiembre

si pensas en como te llegan los correos que te informan podes rearmar los asuntos en base a los datos de la cuent de el/ella sin drama

N/N 08 de septiembre

claroo

Emiliano Traba 08 de septiembre

si o esperas que alguien lo/la etiquete y ahi ya sabes como te avisa cuando te etiquetan ahi ya tenes un correo ... sin hacer nada

entendes maso ??

N/N 08 de septiembre

sii ahora por ejmeplo lo/la etiquetaron en una fotoo

con amig@s

como seria el ausnto ahii?

eso eslo q no me cierra jaja

Emiliano Traba 08 de septiembre

te etiquetas vos.. y al toque te sale el aviso cambias el asunto si es necesario con los datos de el/ella... por ejemplo el nombre de el/ella si en el asunto aparece el de tu cuenta ... por decirl asi

N/N 08 de septiembre

ahhhh

Emiliano Traba 08 de septiembre

por lo general dice...Fulanito te ha etiquetado en una foto

o XXX comento una foto en la que apareces..

entonces si alguien comenta una foto... vos ya sabes como es el asunto que le va a llegar...

copia uno de los tuyos y cambiale el XXX por el nombre del contacto que comento una foto en la que la etiquetaron...

eso en las actualizaiones recientes

y ya tenes un correo

N/N 08 de septiembre

borro todo d mi hot yo jaja

Emiliano Traba 08 de septiembre

que esta en su bandeja de entrada

N/N 08 de septiembre

sisi

Emiliano Traba 08 de septiembre

si pero de seguro alguno te llega al toque

si todo el mundo algo escribe .. sino subi una foto y ponele comenten que les parece .. etiquetate y vas aver la lluvia de correos que te llega en un par de horas :P

N/N 08 de septiembre

Emiliano Traba 08 de septiembre

o pone una frase bien boluda y graciosa esas que comentan todos tbn y al toque te llegan las actualizaciones :P

N/N 08 de septiembre

jje grax

cualquier cosaa te preguntoo

Emiliano Traba 08 de septiembre

okis no problem

N/N 08 de septiembre

ya consegui mas cuents jaja

hispavistaa y latin mail

jaa

Emiliano Traba 08 de septiembre

jjaja re bien che

N/N 09 de septiembre

jeje sii

ya tengo 5 cvorreos

jaja

distitnos

jaja

y 2 d yahoo

Emiliano Traba 09 de septiembre

y bueno anda mandandole correos por unos dias ... desde las distintas cuentas en distintos horarios

y proba

N/N 09 de septiembre

sisis

hora le mandoo 2

Emiliano Traba 09 de septiembre

acordate de ir anotando los asuntos

asi sean postales o lo que sea

N/N 09 de septiembre

sisis

lo q ponga en ausntoo lo anotoo

Emiliano Traba 09 de septiembre

N/N 09 de septiembre

okis

………………………………………………………………….

N/N 25 de septiembre

hola viejo

como andas?

me tarde en mandar los correos no importa?

jejej

hoy mandelos ultimos jeje

Emiliano Traba 25 de septiembre

no hay drama che ja

jajaj y proba

N/N 25 de septiembre

jejej ok

sisi

peroo como hago con el tema de restablecer+

la contraseña vieja

yq me la mande al cel?

Emiliano Traba 25 de septiembre

cuando entras a configuracion te va diciendo

en privacidad

sip.. te manda la contraseñaal celular

N/N 25 de septiembre

y como hago para q me la mande?

eeje

Emiliano Traba 25 de septiembre

cuando lo configuras en las opciones de privacidad luego reestableces la contraseña.. yluego pones como que se te olvido la contraseña y te va a dar la opcion de enviarla al celu

N/N 25 de septiembre

ahh estoy probando dl mio para saber bn jeje peroo no encuentro la opcion para volver a la contra anterior

…………………………………………………………..

N/N 29 de septiembre

hola viejo como andas

no puedo volver a la contra atenrior

estoy probando de mi correo

y no me sale jaja

Emiliano Traba 29 de septiembre

hola che como estas?

N/N 29 de septiembre

bn bn renegando jaja

vs7

Emiliano Traba 29 de septiembre

ja ya probaste mandar el formulario?

N/N 29 de septiembre

Nono

Emiliano Traba 29 de septiembre

que es lo que no te sale?

N/N 29 de septiembre

primeroo quieroo tratar d volver atra anterior y desp lo mando

quiero poner la configuracion para q el correo tengo la contra anterior

ya la cambiee

asi me practicoo en el mioo

jeje

Emiliano Traba 29 de septiembre

jajaja y ya te sale poner lo del celu?

N/N 29 de septiembre

nonono ni idea

como es

no lo entiendo

jaja

no me salen esas dos cosas

osea d mi correo estoy intentandoo probarlo

para q desp me sea mas facil

jaja

Emiliano Traba 29 de septiembre

https://sms.live.com/?ru=https%3A%2F%2Fhome.live.com%2Foptions%2F&wa=wsignin1.0

desde ahi podes poner el celu.. pero a mi me dice..

Los servicios SMS no están disponibles en tu zona en este momento, aunque podrás seguir agregando tu número de teléfono móvil.

N/N 29 de septiembre

y para volver a contra anterior

jeje

a ver

me podes decir paso por paso

osea donde entras y donde apretas jaja

escrivo el telefono

peroo no me deja seguir

lo debo escribir mal

como lo escribo

XXXXXXXXXXX

asi lo escribo

Emiliano Traba 29 de septiembre

XXXXXXXXXXXXXXXXX

N/N 29 de septiembre

tmp me deja

Emiliano Traba 29 de septiembre

sacale el 0 y el 15

N/N 29 de septiembre

nono tmp jeje

Emiliano Traba 29 de septiembre

mmm debe ser porque no tiene cobertura en argentina

N/N 29 de septiembre

ohh

jaja

y ahora cagamos

jaja

Emiliano Traba 29 de septiembre

el tema es que si conseguis cambiar la contraseña .. aca no me esta dando mas la opcion de volver para atras

N/N 29 de septiembre

ami tm

jaja

cagamos

jaja

q bostaa

y buee murioo

se cambiaa

y no se vuelve atras jaja

porq lo otro del troyano o espiaa no se como es

jaja

Emiliano Traba 29 de septiembre

a ver dejame revisar la cuenta Passport

N/N 29 de septiembre

dale

osea ami me resultaria mejor entrar sin cambiarla a la contra como te dije antes jeje

ahii me dejoo con el celular jaja

N/N 29 de septiembre

Los servicios SMS no están disponibles en tu zona en este momento, aunque podrás seguir agregando tu número de teléfono móvil.

Hemos enviado un código de comprobación a tu teléfono:

XXXXXXXXXXXXXX

XXXXX-Argentina (Not correct? Change)

Cuando lo tengas, escríbelo en el cuadro siguiente.

N/N 29 de septiembre

eso me amndo

jeje

nunca me llego el cogido

Emiliano Traba 29 de septiembre

ta bien ahora tenes que confirmarlo creo

N/N 29 de septiembre

jaja

Emiliano Traba 29 de septiembre

jaja

N/N 29 de septiembre

no me llego

jaja

osea peropara es al p2 lo dl telefono

porq no se puede volver a la conra anterior

verdad?

Emiliano Traba 29 de septiembre

no.. no deja volver la cuenta atras pero te deja recuperar la contraseña cuando el/ella la restablezca de nuevo

N/N 29 de septiembre

pero yo la pierdo ahii

jaja

Emiliano Traba 29 de septiembre

o simple podes vincular una pc u otra cuenta de correo para leer los correos... el/ella se va a dar cuenta que alguien cambio la contraseña y la va a restablecer pero si cambias las configuraciones que te digo ni se va a notar

N/N 29 de septiembre

como cambio la configuracion?

osea yo quiero el face no importa el msn

jaja

pero me interesa lo q me dijist

jaja

…………………………………………………..

N/N 29 de septiembre

mande el formulario je pero deje varias cosas sin llenar espero q se pueda y q el/ella no entre al msn jeje

N/N Hace una hora aproximadamente.

holaa papatodobn?

me salioo todoo mal lo hecho

jajaja

vaa en parte jajaja

Emiliano Traba Hace una hora aproximadamente.

ja por que en parte?

N/N Hace una hora aproximadamente.

Porq

Emiliano Traba Hace una hora aproximadamente.

como estas?

N/N Hace una hora aproximadamente.

me mandaron el cambio d contra

en 10min jaja

entre cambie todoo

Emiliano Traba Hace una hora aproximadamente.

jaja esta bien

N/N Hace una hora aproximadamente.

pero el/ella se entero al otro diaa

y volvio a mandar el formulario

y me cambio todoo

asiq caghuee

jaa}

no se entero q fui yooo porsupuesto

jaja

N/N Hace una hora aproximadamente.

se enteroo porq quiso entrar y no l@ dejjaban

jaja

Emiliano Traba Hace una hora aproximadamente.

aha

jaja

N/N Hace una hora aproximadamente.

pero bue me sirvioo para cosas saber

pero ahoraa no tengo pruebas

oseaa las tengoo

pero no puedo decirle XXXXX te robe el hot jaja

ajajaja

ya estaa

sos buenoo

jajaj pense q no iba a funcar esoo

jaja

Emiliano Traba Hace una hora aproximadamente.

jaja te dje que funcaba si lo hacias bien

N/N Hace una hora aproximadamente.

lo hice bienn

porq entre y todoo

jaja

de 10

Emiliano Traba Hace una hora aproximadamente.

solo que hay que hacer todo rapido sino te salta al toque

N/N Hace una hora aproximadamente.

siii

2 diass fuee y esoo q le cambie todoo

peroo con el soporte asi como hise yoo la recupero

jaja

Emiliano Traba Hace una hora aproximadamente.

jajaja y bueno ahora tenes acceso a su cuenta todavia o no?

N/N Hace 59 minutos

noo porq cambio la contraa

asiqq y esta jaja

tengo q saberle la contra sin cambiarlaa

la del face

jaja

Emiliano Traba Hace 59 minutos

hubieses creado una cuenta fantasma y la hubieses vinculado

N/N Hace 59 minutos

uhh no sabiaa q bolud@@

jaja

Emiliano Traba Hace 59 minutos

y si hubieses puesto a recuperar su contraseña de facebook te iba a llegar a ese mail

que le hackeaste

por decirlo asi

jaja podrias haber obtenido su cuenta de fb haciendo lo mismo que hiciste con su cuenta de hotmail... solo que creo que ahi te mandaban la pass al correo o el link para cambiar o recuperar la pass del fb

N/N Hace 57 minutos

uhh no sabiaa nadaa+

ya esta igual

Emiliano Traba Hace 57 minutos

bue ahi me conecto de nuevo ya vengo

N/N Hace 57 minutos N/N

jaja

dalee

jaja

Emiliano Traba Hace 53 minutos

estoy je

N/N Hace 53 minutos

jeje okis

………………………………………………………………………………………

Emiliano Traba Hace 43 minutos

un abraso che saludos

y para la proxima vincula la cuenta jajaja

N/N Hace 43 minutos

y si q pajer@

jaja

yo queriaa la contraseña

pero buenoo

ya fue

jajaja

detales

Emiliano Traba Hace 35 minutos

capaz haga todo un escrito sobre el fallo de seguridad y lo publique :/... igual es un tema a tener en cuenta seriamente

N/N Hace 34 minutos

q cosaa?

jaja no entendi

jaja

el/ella hacer esoo?

noo no hay chances jaja

Emiliano Traba Hace 33 minutos

jajaja ese metodo que te enseñe era uno de los que usaba cuando le hice el laburito ese a XXXXX

y todavia funciona... ya hace mas de 10 años maso creo..

N/N Hace 33 minutos

Jajajajaj

Emiliano Traba Hace 32 minutos

y todavia es un fallo de seguridad considerable juas

N/N Hace 32 minutos

y siii mas valee

muyyy gran fallo

jajaja

pero buenoo

detalles jaja

Emiliano Traba Hace 31 minutos

nunca nadie lo ha hecho publico o nunca lo vi por ahí publicado... aunque es un rumor nadie lo comprueba..

N/N Hace 31 minutos

jaja y lo vas a ahcer?

…………………………………………………………………………….

Visita mi perfil en Yashira!!!

Saludos Emiliano

Lista de repositorios de Mails de Universidades Argentinas y algo mas.....

2011-07-05T13:04:00.000-07:00

Holas haciendo un par de busquedas eh encontrado los siguientes repositorios de mails que a mas de alguno le pueden llegar a ser útiles:

http://listas.unam.edu.ar/pipermail/sensores/ Universidad Nacional de Misiones
http://listas.unam.edu.ar/cgi-bin/mailman/listinfo

http://listas.filo.uba.ar/cgi-bin/mailman/listinfo Facultad de Filosofía y Letras de la Universidad de Buenos Aires
http://listas.filo.uba.ar/cgi-bin/mailman/listinfo

http://listas.fi.uba.ar/pipermail/ Facultad de Ingenieria de la Universidad de Buenos Aires

https://listas.uns.edu.ar/pipermail/ Universidad Nacional del Sur
https://listas.uns.edu.ar/mailman/listinfo/

http://listas.uncoma.edu.ar/pipermail/ Universidad Nacional del Comahue
https://webmail.crub.uncoma.edu.ar/pipermail/ Centro Regional Universitario Bariloche - Universidad Nacional del Comahue

http://mrtg.unt.edu.ar/pipermail/ Universidad Nacional de Tucumán
http://listas.fceia.unr.edu.ar/pipermail/ Universidad Nacional de Rosario
http://listas.unnoba.edu.ar/pipermail/ Universidad Nacional del Nordeste de Bs AS
http://hum.unne.edu.ar/pipermail/ Universidad Nacional del Nordeste
http://noc.uncu.edu.ar/pipermail/ Universidad Nacional de Cuyo
http://mailman.fsoc.uba.ar/pipermail/ Facultad de Cencias Sociales - Universidad de BS AS

http://listas.fcq.unc.edu.ar/cgi-bin/mailman/listinfo Facultad de Ciencias Químicas - Córdoba Argentina
http://listas.fcq.unc.edu.ar/pipermail/

https://www.fcaglp.unlp.edu.ar/pipermail/ Facultad de Ciencias Astronómicas y Geofísicas
Universidad Nacional de La Plata

http://listas.ute.org.ar/pipermail/ Unión de Trabajadores de la Educación

http://listas.msal.gov.ar/pipermail/ Ministerio de Salud de la Nacion
http://listas.cultura.gov.ar/pipermail/ Secretaria de Cultura

ftp://ftp.mincyt.gov.ar/ Ministerio de ciencia, Tecnología e Innovación Productiva

http://www.concejomdp.gov.ar/cgi-bin/mailman/listinfo Concejo Deliberante de General Pueyrredon
http://www.concejomdp.gov.ar/pipermail/

http://www.madryn.gov.ar/pipermail/ Sitio Oficial de Puerto Madryn

Apuntes y demas Balseiro :
2010 - http://mail.ib.cnea.gov.ar/

http://www.lifia.info.unlp.edu.ar/~casco/ Laboratorio de investigacion y formacion en informática avanzada

Saludos!!!!

Obtener musica y videos de paginas con reproductores multimedia hechos en flash

2009-12-29T12:40:00.000-08:00

Holas hace mucho que no posteo asi que hoy me decidi compartir
algo que si bien no es un gran hallazgo les puede servir a mas de uno para descargarse un par de archivos de musica o video de cualquier pagina.
Bueno como ya saben hay muchas paginas que venden videos y musica, en las cuales puedes escuchar el tema pero si lo quieres descargar tienes que pagar o simplemente no te dan la opcion de descargarlo, por ejemplo una pagina que frecuento mucho es www.peliculasid.com pero como tiene mucha publicidad por alli esas publicidades hacen ruido y la peli no se puede escuchar bien .... o sea medio molesto, bueno basandome en esta pagina voy a tratar de explicar como bajarse la peli a la compu sin tener que verla obligadamente desde esa pagina llena de publicidad jeje.
Como todos saben un reproductor para reproducir algo necesita la ruta del archivo o la ruta de la lista de reproduccion (playlist) bueno en el 90% de los casos para los rep, hechos en flash se usan playlist en formato xml o sea solo basta con abrir la pagina y ver su codigo, como no siempre es asi no se confien buscando ".xml" aunque la mayoria de las veces acierta, pero no siempre, ya que a veces es un archivo solo y se linkea directamente el archivo en si y no por medio de playlist. En fin aca vamos por ejemplo busco en mi pagina la pelicula "Avatar" , la cual se divide en cuatro partes.
El link seria: http://www.peliculasid.com/peliculas/avatar.html
bueno ahi vemos el reproductor donde tiene al costado la lista de reproduccion que dice latino1, latino2, latino3, latino4.

Aqui lo que hacemos es click con el boton derecho del mouse y selecionamos "Ver codigo fuente" automaticamente se abre el bloc de notas con todo el codigo de la pagina, alli buscamos hasta llegar a el siguiente codigo:

aqui vemos la direccion de el reproductor en si que es:

http://www.imagenesid.com/mediaplayer.swf

y la de la playlist que es:

http://www.imagenesid.com/pid/xmls/avatar.xml

como ven no es tan dificil y si quisieramos usar ese reproductor en nu8estro blog o pagina solo tendriamos que copiar el bloque y pegarlo en modo html y configurar la playlist a gusto jeje, se supone que la playlist hay que descargarla y subirla en algun host para que el reproductor la pueda leer, en fin como esto no va al caso sigo con lo que queria explicar, tomamos la direccion de la playlist y la pegamos en la barra de direcciones y le damos enter, nos va a aparecer una pagina con un codigo asi:

el codigo comp0leto son cuatro partes, yo solo pegue dos, pero alli encontrarán la direccion real de cada fragmento de la pelicula, el primer fragmento como ven es:
http://d4.ac-videos.myspacecdn.com/videos02/123/vid_da4093a987624bbd83e07bbfee7ac16b.flv

basta con copiar esa direccion y pegarla en la barra de direcciones y dar enter para que empieze la descarga.
En el caso de que la peli sea solo un archivo en donde esta el codigo que da la direccion de la playlist:
file=http://www.imagenesid.com/pid/xmls/avatar.xml
en vez de ver el nombre de archivo con extension .xml veran el link al video directamente o sea algo asi:

file=http://d4.ac-videos.myspacecdn.com/videos02/123/vid_da4093a987624bbd83e07bbfee7ac16b.flv

solo copiar el link y descargarlo ja.
Este metodo lo eh usado con infinidad de paginas, inclusive de paginas que cobran para descargar su musica o videos, ya que la mayoria te reproduce una muestra del origin al y en un 80% esa muestra son una fraccion de el tema o video, lo cual extrae del original solo que no lo reproduce completo, pero si descargas la mayoria de las veces sera el tema o el video completo. bueno espero les sirva.
Suerteeeee, y Feliz Año Nuevo.

Don't Question the authority

2009-09-08T10:56:00.000-07:00

Despedida de Fravia, traducida por google y un poquito por mi. (Un poco trade pero en fin...). - Adios a un grande

2009-06-06T04:05:00.000-07:00

Bueno, por lo que todas las curas que tuve que sufrir durante casi dos años: dos añoscompletos y los ciclos de quimioterapia muy debilitantes, 4 operaciones, muchas biopsias, incontables exploraciones de PET y MRIS, meses pasados dentro de una clínica de ... no funcionó.
La metástasis se escapó de la garganta: mi profesor neerlandés lograron detener todo pero no el tumor del hígado, y mi hígado está implosionando. Por lo tanto,es una cuestión de semanas, no meses.
Mis opciones restantes son para morir en una clínica, a morir en casa, o solicitar la eutanasia (el último, por supuesto, voy a hacer si surgen necesidades ... afortunadamente este es un país civilizado y no posee pensamientos religiosos secos -al menos por ahora- suficientes para anular mis derechos sólo para apaciguar y aplacar los supuestos deseos dudosos de "Godzilla").

Voy a ir para casa: al parecer (de nuevo: esta "parece" ubicua ) voy a morir durante el sueño. Voy "sólo" a tenerlos más débiles (amarillentos, caramba: nada como un tumor terminal para ser realmente feo) hasta que un día no voy a despertar más. Si es así, bastante justo: usted va con un suave soplo en su último viaje, una experiencia que suele ser, por cierto, como único e irrepetible :-)

De todos modos, si el universo y el tiempo son realmente infinito (me queda alguna duda), entonces la combinación casi "idéntica metempsicoticamente" de las neuronas se volverá a aparecer de nuevo en alguna parte, por ejemplo, en otra galaxia y otro planeta ... esperemos que con menos imbéciles.

Más realista, lamento no tener el tiempo para acompañar a mis hijos cuando entran a la universidad pronto. Una parte de mí que vivo a través de ellos, sin embargo, y creo que no consiguen darles algun potente arma y paracaídas (véase más abajo) para preparar el feo momento que cualquier persona con un cerebro por encima de la berenjena puede ahora ver fácilmente en contra del horizonte: Las facultades que de nuestra sociedad "tan buena" han logrado provocar la pirámide más grande en la historia económica (FMI, 21/04/2009: pérdidas bancarias en EE.UU. casi 3 billones; total mundial de 4 billones las pérdidas bancarias .. . cacahuetes que no pequeña!) con todo el dinero que -ça va sans dire- pobres y esclavos se han de reparar y devolver!
Como una ventaja adicional en la media de tiempo que también logró destruir irremediablemente-probablemente-la totalidad del ecosistema del planeta :-|

Ahora, con el coral ensordecedor de sus corruptos políticos y medios de comunicación estática coribantes, la única solución que proponen todos los felices (perdiendo aún más por su propio bien cientos de miles de millones que en realidad le pertenece a usted), es poner en marcha nuevamente el mismo ciclo de moronic forzoso de crédito | forzado consum ... en lugar de cuestionar un modelo de desarrollo totalmente fracasado y que ya está ahora (y con razón) mordiendo todos en el culo.
Pero por desgracia esto no es nada: me temo que las masacres, las guerras y los campos de concentración de las próximas décadas tendrá a nosotros recordar los horrores de la primera mitad del siglo XX con leve nostalgia. Nuestra "tan bonita y tan democrática" sociedad (donde hoy en día sólo soubrettes, el cuerpo de constructores, propietarios de medios de comunicación y "los más ricos en el estanque Bozo" tienden a ser elegidos por una población de esclavos felices y zombificados para correr como conejillos dentro de ruedas) están dirigidos a toda velocidad sobre una empinada pendiente resbaladiza hacia el abismo, donde se llevará a cabo-como de costumbre-a final como un salto mortal de tres y media vueltas invertido, entre los vivas! y viva! de sus medios de comunicación pagados, lacayos ... en voz alta ante las salpicaduras sobre el pavimento debajo de la realidad concreta.

Dulce ~ ~

Suficiente mensaje de castigo: para estar enojado, porque su muerte sólo sería infantil. Y, de hecho, ni siquiera estoy enfadado, simplemente analizo y canalizo en voz alta.
De todos modos (aunque débiles) las armas para defenderse a sí mismo, están a la vista de los que, esparcidos en la web profunda, son nuestra insondable cornucopia de conocimientos.
Lo más poderoso, en mi humilde opinión, es un buen conocimiento de la retórica (Nota 2)
Especialmente eufemismos, que en la actualidad puede traicionar hasta una sarcastica historieta ... y la exégesis, y quizás también algunos escucharon (si es áspero y de fabricación casera) el "Reality Cracking".
La poesía-y, más generalmente, una buena cultura general, son también muy útiles armaduras.
Aprenda a encontrar buenos libros (ver más abajo para algunas sugerencias), usted necesita-al igual que en el medievo, los monjes hicieron una vez un tiempo-mientras que los bárbaros queman todo y todos a la vista fuera de los muros.
Más en general, todas las ciencias nunca subestiman "en decadencia", que a menudo son muy poderosos re, consumir consumir y consumir ... perdiendo toda tu vida con el fin de poder comprar un coche un poco antes, de un color diferente.

Otros dos son posibles paracaídas, saber utilizar técnicas de ingeniería inversa de software (cuyo papel en nuestras sociedades, y de sus pequeños, está obligado a aumentar de manera espectacular los intentos de censuras), y un sonido de más, de aprendizaje "de sólo una" lengua extranjera. Estos "paracaídas" podría permitir a muchos lectores (quizás) estar en los pies.
Buena suerte de todos modos. Yo deseo todo lo mejor a cualquier persona con un cerebro.

Sin embargo, mis más queridos asesoramiento a todos los amigos es la siguiente: aprender a disfrutar de su contingente actual, no se obsesione por el futuro. Carpe diem, disfrutar de lo actual y las emociones: un cielo estrellado, un nuevo viento, los depósitos a la orilla del mar, su amor a su lado en la noche, una larga charla en la noche de penumbra con un amigo, la sonrisa de sus hijos. * * Que sustituir con un TV o una pantalla de computadora-es una muy mala negociación ... que es una de las pocas cosas que ahora estoy bastante seguro .

Adiós a todos mis lectores, un fuerte abrazo a los muchos amigos que hice en todo el mundo. Una gran experiencia para mí! Voy a continuar como lo que yo manejo, voy a intentar incluso celebrar una última charla en Colonia a finales de mayo, pero dudo que voy a manejar, de todos modos y pronto mis sitios no se actualizará más, a menos que mis amigos cuidará y elaboraran algún tipo de wiki / blog (y la vigilancia y las instalaciones correccionales) para permitir esto. Vamos a ver.
Pero no se preocupe en lo más mínimo: si no aprenden a búsqueda encontrará otros buenos recursos de todos modos. Hay abundancia de todo, después de todo.
Sí! Hay buena información en la web, aunque oculto y enterrado detrás o debajo de viscosa morasses de adornos inútiles, se desplazan las dunas de basura comercial y una increíble cantidad de contenido vacío y totalmente inútil "cebo" sitios de publicidad.
Sin embargo, la estructura misma web se hizo para compartir, no para la acumulación y seguramente no para "vender", que nunca olvidará! Por lo tanto, los usuarios pueden tomar ventaja de este ... Un buen conocimiento de los principales protocolos de la Web, un buen navegador y nuestra confianza Wireshark y nadie va a detener de un poderoso buscador para encontrar lo que fantaseas :-)

Concedido hay de hecho un montón de cosas sobre searchlores obsoletos, y-como ya se ha dicho-la-bizantino laberíntica estructura del sitio que se han racionalizado desde hace mucho tiempo.
Sin embargo, aunque en parte obsoleto (pero rara vez es verdadero conocimiento obsoleto, ¿no?) He decidido dejar en línea todos los que se reunieron y ofrecieron a lo largo de muchos años como es, y en la medida en que permanecerá en la web, porque creo que aún hay una gran riqueza de conocimiento libre de la búsqueda aquí, a la espera de esos entre mis visitantes que estén interesados en aprender y dominar el difícil arte de dos búsquedas en la web y la inversión de todo lo que encuentran.

Si-como dicen algunos-la gente de todo nuestro planeta hizo uso de aprender lo que ofrece, mi vida no se desperdicia: =)

http://penelope.uchicago.edu/Thayer/E/Roman/Texts/Rhetorica_ad_Herennium/home.html

De nuevo aqui con el brute

2009-04-09T09:38:00.000-07:00

Hola gente aqui dejo el brute force que habia posteado hace un tiempo, si bien no lo he mejorado mucho, algo le he cambiado... debido a mi falta de tiempo y un poco de vagancia ja... le he mejorado un poco al brute en si y le he agregado un port scanner.
Bueno el port scanner esta mas o menos comentado, creo que ya sabran que es un escaneador de puertos... en fin andar anda ja, eh hecho las siguientes pruebas y me han dado resultados. Probe con mi router la velocidad de respuesta, aunque parezca ilogico fue mas lenta que la velocidad de respuesta del server de mi isp :S... eso no lo entiendo todavia... Probe con el server de mi isp.. o sea para probar con 1 salto (o sea mi router), y luego con un server de cti para probar con mas de un salto. En todos logre respuesta en algunos puertos dandome los siguientes resultados:

Victima: Mi router
Puertos abiertos: 23,21,80
Respuesta:
21 : login

23 : Welcom to Vulcan ....

80: sin respuesta (esta bloqueado por configuración)
--------------------------------------------------------------
Victima: ns1.riotel.com.ar

Puertos abiertos:

22 Respuesta: SSH-2.0-OpenSSH_3.6.1p2

25 Respuesta: 220 smtp.riotel.com.ar ESMTP Postfix (Debian/GNU)

53 Sin Respuesta

80 no revise bien pero me dio sin respuesta a simple vista

110 Respuesta: +OK Hello there.

------------------------------------------------------------
Victima: claro.com.ar

Puertos abiertos:
21 y 80
Respuesta:

21: sin respuesta

80: pagina web

------------------------------------------------------------

En fin aca les dejo la descarga:

Algunos articulos y manuales de algoritmica, programacion, compiladores y programación orientada a objetos

2009-02-17T07:58:00.000-08:00

Bueno aqui dejo algunos artículos y tutoriales que vi en un espacio:

Bueno esto son la introducción para aprender a programar, luego ire posteando lenguajes y un poco mas avanzados.

Mi colección de E-Zines

2009-02-16T10:49:00.000-08:00

Bueno aca dejo mi colección de e-zines que he ido recolectando con el paso de los años:

aqui dejo los links:

Parte 1

Parte 2

Bueno aqui posteo la lista de e-zines que contiene mi colección:

0ri0n Team Venezuela ---> 1 a 4
7a69 ---> 1 a 15
ACID KLAN ---> 1 a 4
CDLR - Proyecto R ---> 1 a 11
CDT - Cultura Digital Team ---> 0 a 3
CIA ---> 1 a 7
DisidentS! Hack Journal ---> 1 a 8
EKO - EZKRACHO SECURITY TEAM ---> 1 a 4
Electron security team ---> 1 a 4
FIH - FOROS INFORMATICOS HISPANOS ---> 1 a 3
Gedzac ---> 1 a 3
HACKERSS ---> 1 a 3
HACKMEX ---> 1
HH - Hack Hispano ---> 1 a 3
Hispabyte ---> 1 a 4
HVEN - Hackers Venezuela ---> 1 a 3
IH - INSANE HACKERS ---> 1 a 3
MHM - MEXICAN HACKERS MAFIA ---> 1 a 7
NetSearch ---> 1 a 8
Phrack ---> 65 en español
RAREGAZZ ---> 1 a 19
Raza Mexicana ---> 1 a 20
RTM - Essentials ---> 1 a 5
SAQUEADORES ---> 1 a 35 + bonus
Sinmoney ---> 1
SWP - Security Wari Project ---> 1 a 6
WEET_DEVILS HACK TEAM ---> 1

Bueno esta es mi coleccion que esta creciando desde 1999, si bien no estan todas las que existen y existieron desde esa epoca pues de a poquito seguire buscando y agregando. Si alguien quiere aportar Bienvenido sea ;)
Saludos

Códigos anti debug para VB6

2009-01-18T10:55:00.000-08:00

Pues eso aca dejo algunos codigos antidebugging que se usar para mis aplicaciones:

Para VB6:

Debug.Print 1 / 0

Esta sentencia genera una exepción de división por cero cuando la aplicación es debugueda.

____________________________________________________________________________

Public Declare Function IsDebuggerPresent Lib "kernel32" () As Long
Private Sub Form_Load()
If IsDebuggerPresent Then
........
End Sub

Ejemplo de como detectar un debugger con la rutina de kernel32, IssDebuggerPresent

____________________________________________________________________________

Public Declare Function OutputDebugStringA Lib "kernel32" (ByVal lpString As String) As Long

Private Sub Form_Load()
Dim AA As String
Dim i As Integer

For i = 1 To 200
AA = AA & "%s"
Next i

MsgBox OutputDebugStringA(AA)
End Sub

Este code genera una exepción de desbordamiento de pila en algunos debuggers, mas específicamente el olly 1.10.Lo hace entrar en Deadlock
____________________________________________________________________________

'---------------------------------------------------------------------------------------
' Module : mGetProcAddress
' DateTime : 06/10/2008 20:06
' Author : Cobein
' Mail : cobein27@hotmail.com
' WebPage : http://www.advancevb.com.ar
' Member of : http://hackhound.org/
' Purpose : GetProcAddress alternative function
' Usage : At your own risk
' Requirements: None
' Distribution: You can freely use this code in your own
' applications, but you may not reproduce
' or publish this code on any web site,
' online service, or distribute as source
' on any media without express permission.
'
' Reference : Based on ExtremeCoder sample [http://www.rohitab.com/discuss/lofiversion/index.php/t30773.html]
'
' History : 06/10/2008 First Cut....................................................
' 06/10/2008 Minor change in buffer size to increase speed................
'---------------------------------------------------------------------------------------
Option Explicit

Private Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long
Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Long)
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Function SysAllocString Lib "oleaut32.dll" (ByVal pOlechar As Long) As String

Public Function GetProcAddressAlt(ByVal sLib As String, ByVal sMod As String) As Long
Dim lLib As Long
Dim i As Long

lLib = LoadLibraryA(sLib)

If Not lLib = 0 Then
Dim dwNumberOfNames As Long
Dim dwNamesOffset As Long
Dim dwNameRVAs As Long
Dim dwFuncOffset As Long
Dim dwFuncRVAs As Long

GetMem4 (lLib + &H3C), i
GetMem4 (lLib + i + &H78), i

GetMem4 (lLib + i + &H18), dwNumberOfNames
GetMem4 (lLib + i + &H20), dwNamesOffset
GetMem4 (lLib + i + &H1C), dwFuncOffset

Dim sBuff As String * 128
Dim sName As String

For i = 0 To dwNumberOfNames - 1
GetMem4 (lLib + dwNamesOffset + i * &H4), dwNameRVAs
GetMem4 (lLib + dwFuncOffset + i * &H4), dwFuncRVAs

sBuff = SysAllocString(lLib + dwNameRVAs)
sName = Left$(sBuff, lstrlen(sBuff))

If sName = sMod Then
GetProcAddressAlt = lLib + dwFuncRVAs
Exit Function
End If
Next
End If

End Function

Este modulo sirve para buscar nombre de procesos tales como: ollydbg, snd, etc.
Con el pueden saber si se ha cargado X programa, se puede mejorar el modulo para que detecte si la cadena ingresada se encuentra en una porción del modulo con el cual esta siendo comprobada, en ese caso detectaria algunas variantes de olly, ya que la mayoria agregan por ejemplo: Yoda's - olldbg. Entonces si comparamos con olly nos daría que son distintas pero si lo hacemos como si fuera un Like, o sea q sea igual o este contenida nos devolvería ese proceso sospechoso tbn.

____________________________________________________________________________
Private Declare Function OutputDebugStringA Lib "kernel32" (ByVal lpString As String) As Long

Private Sub Form_Load()
If IsDebuggerActive Then
MsgBox "Debugger Present"
End If
End Sub

Private Function IsDebuggerActive() As Boolean
IsDebuggerActive = Not (OutputDebugStringA("=)") = 1)
End Function

Otro ejemplo con OutputDebugStringA pero en este caso genera una exepción.

____________________________________________________________________________

Option Explicit

Private Declare Function CheckRemoteDebuggerPresent Lib "kernel32.dll" (ByVal hProcess As Long, fResult As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

Private Sub Form_Load()

Dim fResult As Long
Dim hProcess As Long

hProcess = OpenProcess(ByVal PROCESS_ALL_ACCESS, ByVal 0&, ByVal GetCurrentProcessId)
Call CheckRemoteDebuggerPresent(hProcess, fResult)
CloseHandle hProcess
.........

End Sub

En este caso testeamos remotamente q nuestro programa no sea debuggeado, si es debuggeado fResult nos dara 1 como valor.
____________________________________________________________________________

'IsDbgCrss
Private Declare Function CsrGetProcessId Lib "ntdll.dll" () As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

'---------------------------------------------------------------------------------------
' Procedure : IsDbgCsrss
' Author : Karcrack
' Date : 30/12/2008
' Purpose : Check if our app is being debugged
' Usage : If IsDbgCrss = True Then MsgBox "I'm Debugged"
' Tested On : OllyDbg v2.0 ß
' Reference : http://www.piotrbania.com/all/articles/antid.txt
'---------------------------------------------------------------------------------------
'
Public Function IsDbgCsrss() As Boolean
IsDbgCsrss = CBool(OpenProcess(&H1F0FFF, 0, CsrGetProcessId)) '&H1F0FFF = PROCESS_ALL_ACCESS
End Function

Este codigo detecta si se esta debugueando nuestra aplicación.
____________________________________________________________________________

Option Explicit

Private Const ANYSIZE_ARRAY = 1
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2

Private Type LUID
LowPart As Long
HighPart As Long
End Type
Private Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type
Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type

Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLUID As LUID) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long

Public Const SE_DEBUG_NAME As String = "SeDebugPrivilege"

Public Declare Function RtlSetProcessIsCritical Lib "ntdll.dll" (ByVal NewValue As Boolean, ByVal OldValue As Boolean, ByVal WinLogon As Boolean)

Public Function ObtenerPrivilegios(ByVal privilegio As String) As Long

Dim lpLUID As LUID
Dim lpToken As TOKEN_PRIVILEGES
Dim lpAntToken As TOKEN_PRIVILEGES
Dim hToken As Long
Dim hProcess As Long
Dim res As Long

hProcess = GetCurrentProcess()
res = OpenProcessToken(hProcess, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken)
If res = 0 Then
Exit Function
End If
res = LookupPrivilegeValue(vbNullString, privilegio, lpLUID)
If res = 0 Then
Exit Function
End If
With lpToken
.PrivilegeCount = 1
.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
.Privileges(0).pLuid = lpLUID
End With

res = AdjustTokenPrivileges(hToken, False, lpToken, Len(lpToken), lpAntToken, Len(lpAntToken))
If res = 0 Then
Exit Function
End If
ObtenerPrivilegios = res
End Function

'*************************************************************************
'*************************************************************************
' Uso de RtlSetProcessIsCritical para setear nuestro proceso, como proceso
' critico del sistema: del mismo modo que csrss.exe o winlogon
' XcryptOR - Made In Colombia
'**************************************************************************
'*************************************************************************
Private Sub Form_Load()
On Error Resume Next
ObtenerPrivilegios SE_DEBUG_NAME ' obtiene privilegios de Debugeo
Call RtlSetProcessIsCritical(0, 0, 1) ' setea nuestro proceso como Proceso Critico
End Sub

Bueno como dice el comentario para setear a nuestra aplicación privilegios.

____________________________________________________________________________

Y por ultimo algunos trucos para dificultar un poco mas:

App.TaskVisible = False

App.Title = ""

Saludos

Modulos utiles a la hora de programar en vb6

2008-11-25T16:08:00.000-08:00

Hola aca dejo algunos módulos que son bastantes útiles a la hora de programar, modificar registro de windows, detectar version de windows, capturas de pantalla y escalar privilegios en win XP, NT, etc:

====================================================================================
Detectar versión, devolver revisión y compilación:

====================================================================================
Option Explicit
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
wSPMajor As Integer
End Type

Public Enum EnumWinVer
Win95 = 0
Win95OSR2 = 1
Win98 = 2
Win98SE = 3
WinME = 4
WinNT3_0 = 5
WinNT3_1 = 6
WinNT3_5 = 7
WinNT4 = 8
WinNT5 = 9
Win2k = 10
WinXP = 11
WinVista = 12
End Enum

Public Function Winversion(param As Integer) As EnumWinVer
Dim myVer As OSVERSIONINFO
Dim dl&
myVer.dwOSVersionInfoSize = 148
dl& = GetVersionEx&(myVer)
If param = 1 Then 'param=1 devuelve la versiòn de Windows (95, 98,ME, 2000, XP, Vista)
If myVer.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
If myVer.dwMajorVersion = 4 And myVer.dwMinorVersion = 0 Then
If myVer.dwBuildNumber = 950 Then
GetVersion = Win95
Else
GetVersion = Win95OSR2
End If
ElseIf myVer.dwMajorVersion = 4 And myVer.dwMinorVersion = 10 Then
If myVer.dwBuildNumber = 1998 Then
GetVersion = Win98
Else
GetVersion = Win98SE
End If
ElseIf myVer.dwMajorVersion >= 4 And myVer.dwMinorVersion > 10 Then
GetVersion = WinME
End If
ElseIf myVer.dwPlatformId = VER_PLATFORM_WIN32_NT Then
If myVer.dwMajorVersion = 3 And myVer.dwMinorVersion = 0 Then
GetVersion = WinNT3_0
ElseIf myVer.dwMajorVersion = 3 And myVer.dwMinorVersion = 1 Then
GetVersion = WinNT3_1
ElseIf myVer.dwMajorVersion = 3 And myVer.dwMinorVersion = 5 Then
GetVersion = WinNT3_5
ElseIf myVer.dwMajorVersion = 4 Then
GetVersion = WinNT4
ElseIf myVer.dwMajorVersion = 5 And myVer.dwMinorVersion = 0 Then
GetVersion = Win2k
ElseIf myVer.dwMajorVersion = 5 And myVer.dwMinorVersion = 1 Then
GetVersion = WinXP
ElseIf myVer.dwMajorVersion = 6 And myVer.dwMinorVersion = 1 Then
GetVersion = WinVista
End If
End If
Else
If param = 2 Then 'param=2 devuelve la Compilación
Winversion = osvi.dwBuildNumber
Else
If param = 3 Then 'Param=3 devuelve la revisión
Winversion = osvi.szCSDVersion
Else
If param = 4 Then
Winversion = Str(osvi.dwMajorVersion) + "." + Trim(Str(osvi.dwMinorVersion))
Else
Winversion = MsgBox("El identificador seleccionado no es válido.", vbCritical, "Error #1Ver")
End If
End If
End If
End If
End Function

====================================================================================

Funciones para el Registro de Windows:
====================================================================================
Option Explicit

Global Const REG_SZ As Long = 1
Global Const REG_DWORD As Long = 4
Global Const REG_BINARY As Long = 3

Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const HKEY_CURRENT_USER = &H80000001
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_USERS = &H80000003

Global Const ERROR_NONE = 0
Global Const ERROR_BADDB = 1
Global Const ERROR_BADKEY = 2
Global Const ERROR_CANTOPEN = 3
Global Const ERROR_CANTREAD = 4
Global Const ERROR_CANTWRITE = 5
Global Const ERROR_OUTOFMEMORY = 6
Global Const ERROR_INVALID_PARAMETER = 7
Global Const ERROR_ACCESS_DENIED = 8
Global Const ERROR_INVALID_PARAMETERS = 87
Global Const ERROR_NO_MORE_ITEMS = 259

Global Const KEY_ALL_ACCESS = &H3F

Global Const REG_OPTION_NON_VOLATILE = 0

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Declare Function RegSetValueExBinary Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)

Public Function DeleteKey(lPredefinedKey As Long, sKeyName As String)

Dim lRetVal As Long
Dim hKey As Long

lRetVal = RegDeleteKey(lPredefinedKey, sKeyName)

End Function

Public Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)

Dim lRetVal As Long
Dim hKey As Long

lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegDeleteValue(hKey, sValueName)
RegCloseKey (hKey)
End Function

Public Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As Long
Dim lValue As Long
Dim sValue As String
Dim bValue As String

Select Case lType
Case REG_SZ
sValue = vValue
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue))
Case REG_DWORD
lValue = vValue
SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)
Case REG_BINARY
bValue = vValue
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, bValue, Len(bValue))
End Select

End Function

Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long
Dim cch As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String
Dim bValue As String

On Error GoTo QueryValueExError

lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
If lrc <> ERROR_NONE Then Error 5

Select Case lType
' Cadenas
Case REG_SZ:
sValue = String(cch, 0)
lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch)
If lrc = ERROR_NONE Then
vValue = Left$(sValue, cch)
Else
vValue = Empty
End If

' Binario
Case REG_BINARY:
sValue = String(cch, 0)
lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, bValue, cch)
If lrc = ERROR_NONE Then
vValue = Left$(bValue, cch)
Else
vValue = Empty
End If

' DWORDS
Case REG_DWORD:
lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, cch)
If lrc = ERROR_NONE Then vValue = lValue
Case Else
'Otros tipos
lrc = -1
End Select

QueryValueExExit:

QueryValueEx = lrc
Exit Function

QueryValueExError:

Resume QueryValueExExit

End Function
Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)

Dim hNewKey As Long
Dim lRetVal As Long

lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
RegCloseKey (hNewKey)
End Function

Sub Main()
'Ejemplos para llamar a cada función:
'CreateNewKey HKEY_CURRENT_USER, "Prueba\Rama1\Rama2"
'SetKeyValue HKEY_CURRENT_USER, "Prueba\Rama1", "Prueba", "Probando, Probando", REG_SZ
'MsgBox QueryValue(HKEY_CURRENT_USER, "Prueba\Rama1", "Prueba")
'DeleteKey HKEY_CURRENT_USER, "Prueba\Rama1|Rama2"
'DeleteValue HKEY_CURRENT_USER, "Prueba\Rama1", "Prueba"
End Sub

Public Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)

Dim lRetVal As Long
Dim hKey As Long

lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
RegCloseKey (hKey)

End Function

Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
Dim lRetVal As Long
Dim hKey As Long
Dim vValue As Variant

lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = QueryValueEx(hKey, sValueName, vValue)
QueryValue = vValue
RegCloseKey (hKey)
End Function

====================================================================================

Funciones para hacer una captura de pantalla y guardarla:
====================================================================================

Option Explicit

Public Enum GpStatus
Ok = 0
GenericError = 1
InvalidParameter = 2
OutOfMemory = 3
ObjectBusy = 4
InsufficientBuffer = 5
NotImplemented = 6
Win32Error = 7
WrongState = 8
Aborted = 9
FileNotFound = 10
ValueOverflow = 11
AccessDenied = 12
UnknownImageFormat = 13
FontFamilyNotFound = 14
FontStyleNotFound = 15
NotTrueTypeFont = 16
UnsupportedGdiplusVersion = 17
GdiplusNotInitialized = 18
PropertyNotFound = 19
PropertyNotSupported = 20
End Enum

Public Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long

SuppressExternalCodecs As Long

End Type

Public Type CLSID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type

Public Enum ImageCodecFlags
ImageCodecFlagsEncoder = &H1
ImageCodecFlagsDecoder = &H2
ImageCodecFlagsSupportBitmap = &H4
ImageCodecFlagsSupportVector = &H8
ImageCodecFlagsSeekableEncode = &H10
ImageCodecFlagsBlockingDecode = &H20

ImageCodecFlagsBuiltin = &H10000
ImageCodecFlagsSystem = &H20000
ImageCodecFlagsUser = &H40000
End Enum

Public Type ImageCodecInfo
ClassID As CLSID
FormatID As CLSID
CodecName As Long
DllName As Long
FormatDescription As Long
FilenameExtension As Long
MimeType As Long
flags As ImageCodecFlags
Version As Long
SigCount As Long
SigSize As Long
SigPattern As Long
SigMask As Long
End Type

Public Enum EncoderParameterValueType
EncoderParameterValueTypeByte = 1
EncoderParameterValueTypeASCII = 2

EncoderParameterValueTypeShort = 3
EncoderParameterValueTypeLong = 4
EncoderParameterValueTypeRational = 5

EncoderParameterValueTypeLongRange = 6

EncoderParameterValueTypeUndefined = 7
EncoderParameterValueTypeRationalRange = 8

End Enum

Public Type EncoderParameter
GUID As CLSID
NumberOfValues As Long
type As EncoderParameterValueType
value As Long
End Type

Public Type EncoderParameters
count As Long
Parameter As EncoderParameter
End Type

Public Const EncoderQuality As String = "{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"
Public Declare Function GdiplusStartup Lib "gdiplus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As GpStatus
Public Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal token As Long)
Public Declare Function GdipCreateBitmapFromHBITMAP Lib "gdiplus" (ByVal hbm As Long, ByVal hpal As Long, bitmap As Long) As GpStatus
Public Declare Function GdipSaveImageToFile Lib "gdiplus" (ByVal image As Long, ByVal filename As String, clsidEncoder As CLSID, encoderParams As Any) As GpStatus
Public Declare Function GdipDisposeImage Lib "gdiplus" (ByVal image As Long) As GpStatus
Public Declare Function GdipGetImageEncodersSize Lib "gdiplus" (numEncoders As Long, size As Long) As GpStatus
Public Declare Function GdipGetImageEncoders Lib "gdiplus" (ByVal numEncoders As Long, ByVal size As Long, encoders As Any) As GpStatus
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrlenW Lib "kernel32" (ByVal psString As Any) As Long
Private Declare Function lstrlenA Lib "kernel32" (ByVal psString As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpszProgID As Long, pCLSID As CLSID) As Long
Private token As Long

Public Function SaveAsJPEG(pb As PictureBox, ByVal filename As String, Optional ByVal Quality As Long = 80) As Long
Dim stat As GpStatus
Dim bm As Long
Dim encoderCLSID As CLSID
Dim encoderParams As EncoderParameters
Dim lQuality As Long

stat = GdipCreateBitmapFromHBITMAP(pb.Picture.Handle, pb.Picture.hpal, bm)

Call GetEncoderClsid("image/jpeg", encoderCLSID)

If (stat = Ok) Then
lQuality = Quality
encoderParams.count = 1
With encoderParams.Parameter
.NumberOfValues = 1
.type = EncoderParameterValueTypeLong

.GUID = DEFINE_GUID(EncoderQuality)
.value = VarPtr(lQuality)
End With

stat = GdipSaveImageToFile(bm, StrConv(filename, vbUnicode), encoderCLSID, encoderParams)

End If

SaveAsJPEG = stat

Call GdipDisposeImage(bm)
End Function

Public Function gdipLoad() As Boolean

Dim GpInput As GdiplusStartupInput

gdipLoad = False
GpInput.GdiplusVersion = 1
If GdiplusStartup(token, GpInput) = Ok Then
gdipLoad = True
End If

End Function

Public Sub gdipUnLoad()
Call GdiplusShutdown(token)
End Sub

Public Function GetEncoderClsid(strMimeType As String, ClassID As CLSID)
Dim num As Long, size As Long, i As Long
Dim ICI() As ImageCodecInfo
Dim buffer() As Byte

GetEncoderClsid = -1

Call GdipGetImageEncodersSize(num, size)
If size = 0 Then Exit Function

ReDim ICI(1 To num) As ImageCodecInfo
ReDim buffer(1 To size) As Byte

Call GdipGetImageEncoders(num, size, buffer(1))

Call CopyMemory(ICI(1), buffer(1), (Len(ICI(1)) * num))

For i = 1 To num

If StrComp(PtrToStrW(ICI(i).MimeType), strMimeType, vbTextCompare) = 0 Then
ClassID = ICI(i).ClassID
GetEncoderClsid = i
Exit For
End If
Next

Erase ICI
Erase buffer
End Function

Public Function DEFINE_GUID(ByVal sGuid As String) As CLSID
Call CLSIDFromString(StrPtr(sGuid), DEFINE_GUID)
End Function

Public Function PtrToStrW(ByVal lpsz As Long) As String
Dim sOut As String
Dim lLen As Long

lLen = lstrlenW(lpsz)

If (lLen > 0) Then
sOut = StrConv(String$(lLen, vbNullChar), vbUnicode)
Call CopyMemory(ByVal sOut, ByVal lpsz, lLen * 2)
PtrToStrW = StrConv(sOut, vbFromUnicode)
End If
End Function

====================================================================================

Algo muy importante a la hora de hacer programas q requieran reiniciar windows, escribir un ejecutable cargado ya en memoria y otras cosas que necesiten que el programa escale privilegios:
====================================================================================

Option explicit

Private Type LUID
UsedPart As Long
IgnoredForNowHigh32BitPart As Long
End Type

Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long

Public Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

hdlProcessHandle = GetCurrentProcess()
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle

LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid

tkp.PrivilegeCount = 1
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED

AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded

End Sub

====================================================================================
okas por ahora publico eso nomas.

Brute force Codigo fuente en vb6

2008-11-04T15:51:00.000-08:00

Cita un post viejo que vi por alli:
Bueno aqui os dejo un proyecto que se me ocurrio debido a mi proveedor de internet... Pes comenzemos por la historia... me remota a un par de semanas atras...
Pess bueno en aquellos dias me dedique a hacerme una pagina web para subirla... (antigüamente tenia subida a un host) pero queria que mi maquina se convirtiera en servidor web y bueno configure mysql y un server apache para dicho fin luego en mi cuenta de no ip cree un host y deje todo listo para subir mi pagina, probe en mi red interna ... en mi casa je, y funcaba todo de diez pero a la hora deconfigurar la redireccion de puertos en el modem router que me da la empresa (riotel) pesss me veo en que le han sacado el sistema de configuración web... (interno del modem) asi que decidi preguntar a mi isp que puertos tenia habilitados y bue me dijeron que tenia el 4889,5800 y 5900 para el uso de VNC o simil, 4662 y 4672UDP para emule, ares etc...

en fin como no me senti conforme entre a una web y me hice un port scan y me encuentro con el puerto 23 abierto chan?¿?¿?¿? O sea todos los modem routers poseen la cualidad de que se puede acceder a la configuración por web (http://192.168.1.1 por lo general), y por medio de TELNET jeje (en la consola de comandos se escribe telnet 192.168.1.1) pes bueno ... jejeje no tengo nada contra eso, cuando hice un trace con una pagina me listó todas las ips (públicas)de maquinas que tienen este servicio.. mmm que bueno probe entonces con una ip de la lista que me salio que no era la mia y bue... chachannnn entre en la pantalla de login de un modem de algun vecino de mi ciudad que posee la misma conexion que yo... psss como mi isp se tomo la modestia de comprarse unos modems y borrarle de la carcasa la marca y modelo, etc.. pss me puse a snifear con cain y que me tirara la lista de adaptadores en mi red y bue me dio que era de marca xavi... pss tonces en base a eso me guie por las fotos hasta que encontre un par que eran iguales ... mmm lei sus características y bue llegue a que el sistema de config a travez de telnet es similar.. usan chipsets de conexant corp... en esos chipsets contienen dos tipos de sistema uno es el viking y el que esta en mi modem es el vulcan... asi que estudie un poco el sistema y bue hice un par de pruebas con winsock y funco... pesss no he probado por ftp ... es un poco mas complicado segun estuve viendo jejeje. En fin aqui explico un poco lo que he programado y luego pondre el link del proyecto que hice y que voy a ir mejorando.

Pues bueno utilize un winsock una msflegrid las wordlist que trae el brutus ae y bue tambien utiliza el mscomctl.ocx y otros ocx... psss con tiempo los ire agregando.. aqui va el link y mas explicaciones

Link:

Definición de Ingeniería Inversa

2008-10-23T16:59:00.001-07:00

La ingeniería inversa se ha definido como el proceso de construir especificaciones de un mayor nivel de abstracción partiendo del código fuente de un sistema software o cualquier otro producto (se puede utilizar como punto de partida cualquier otro elemento de diseño, etc)...

Estas especificaciones pueden volver ser utilizadas para construir una nueva implementación del sistema utilizando, por ejemplo, técnicas de ingeniería directa.

La aplicación de ingeniería inversa nunca cambia la funcionalidad del software sino que permite obtener productos que indican cómo se ha construido el mismo. Se realiza permite obtener los siguientes beneficios:

Reducir la complejidad del sistema.

Generar diferentes alternativas.

Recuperar y/o actualizar la información perdida (cambios que no se documentaron en su momento).

Detectar efectos laterales.

Facilitar la reutilización.

La ingeniería inversa puede ser de varios tipos:

Ingeniería inversa de datos: Se aplica sobre algún código de bases datos (aplicación, código SQL, etc) para obtener los modelos relacionales o sobre el modelo relacional para obtener el diagrama entidad-relación

Ingeniería inversa de lógica o de proceso: Cuando la ingeniería inversa se aplica sobre código de un programa para averiguar su lógica o sobre cualquier documento de diseño para obtener documentos de análisis o de requisitos.

Ingeniería inversa de interfaces de usuario: Se aplica con objeto de mantener la lógica interna del programa para obtener los modelos y especificaciones que sirvieron de base para la construcción de la misma, con objeto de tomarlas como punto de partida en procesos de ingeniería directa que permitan modificar dicha interfaz.

Bios, passwords y otras hierbas

2008-10-17T10:28:00.000-07:00

Bueno aqui publico como se resetean los bios , no exactamente es todo código sino mas bien metodos, si bien tambien posteare algunos codigos implementados en c, Pascal, Delphi, Ensamblador y otros lenguajes.

Bueno aqui va:
Cómo desactivar la contraseña de una BIOS

Hay tres formas de desactivar una contraseña. Dos de estas formas son relativamente sencillas de llevar a cabo:

La primera consiste en abrir la CPU y quitar la pila de la placa base, esperar de 3 a 5 segundos y volverla a colocar. Al quitar la pila los datos de la CMOS se pierden, incluida la contraseña. La mayoría de las placas base incluyen unos jumpers que permiten resetear la CMOS sin necesidad de extraer la pila.

La segunda forma consiste en eliminar la contraseña provocando un error en la BIOS del sistema. Cuando se guarda la configuración de una BIOS, esta (casi todas las versiones lo hacen) genera un CRC en la que intervienen los parámetros de dicha configuración. Cuando se accede a la BIOS, dicho programa realiza de nuevo la operación del CRC y lo compara con el resultado que tenía previamente almacenado. De esta forma verifica que no se ha cambiado ningún dato de manera intencionada o por error. Si así sucediera, la BIOS reinicia los datos de la CMOS y con ellos el password, el cual deja de estar activo y permite el acceso a la BIOS.

El problema de estas dos formas de desactivación de un password reside en que en los dos casos se pierde la configuración del sistema.

La tercera forma es específica, mediante programación.

Codificación de un password de la BIOS Award

El algoritmo en cuestión es bastante deficiente y el resultado de dicho algoritmo es un dato de tipo word sin signo (2 bytes) que se guarda en una posición de la CMOS que puede variar con respecto a la versión de esta. Algunas versiones de esta BIOS guardan dos passwords pero usan el mismo método de codificación.

La codificación es bien simple. Consiste en sumar el código ASCII de cada una de las letras que forman el password, pero antes de pasar a sumar la siguiente letra, multiplica el resultado por 4. Es decir, coge una letra, lo multiplica por 4, le suma la segunda, multiplica este resultado por 4 y así hasta sumar la última letra del password (máximo 8 caracteres). Como he dicho, el resultado se almacena en 2 bytes, el número entero sin signo más alto que se puede representar en 2 bytes es 65535. Si el resultado del algoritmo es mayor a 65535, se divide ese resultado entre 65536. Toma el resultado entero obtenido de esa división y lo suma al resto de dicha división. Ese dato obtenido será el entero sin signo (2 bytes) que se almacenará en la CMOS.

La verdad es que a nivel de código de máquina es más sencillo. Trabaja sobre un registro de tipo word, tamaño de dos bytes. Realiza la suma del ASCII de cada letra y hace un desplazamiento de bits dos posiciones hacia la izquierda. Al final, si el flag de acarreo está activado, es decir, si en cualquiera de los desplazamientos a la izquierda, se escapa algún bit, le suma al resultado un 1.

Por ejemplo... Si el password en cuestión es Dragon
El código ASCII de estas letras es: D = 68 r =114 a = 97 g =103 o = 111 n =110
Teniendo el cuenta que inicialmente el resultado = 0, sumamos y multiplicamos por 4 cada resultado:
(4 * 68) + 114 = 386
(4 * 386) + 97 = 1641
(4 * 1641) + 103 = 6667
(4 * 6667) + 111 = 26779
(4 * 26779) + 110 = 107226

Lo que hay que hacer en este caso es dividir 107226 entre 65536, quedarnos con el resto, y al resto sumarle el nº de múltiplos de 65536 obtenido:
107226 / 65536 = 1 , resto = 41690 >> 41690 + 1 = 41691.

Para no complicarse la existencia, como las operaciones de suma y multiplicación no van a dar un resultado cuyo tamaño en memoria sea superior a 3 bytes, no sería necesario hacer divisiones. Bastaría con restar al nº obtenido 65535, va a dar lo mismo 107226 - 65535 = 41691. En definitiva, es truncar el resultado si es mayor de 65535.

El resultado es 41691 que separado en 2 bytes es 162 y 219 ((162 * 256) + 219).

Este algoritmo es deficiente porque este resultado se puede obtener con mas de una (mas de 200000) combinaciones de caracteres diferentes.

Sabiendo esto, es fácil implementar un programa que codifique o descodifique dicho password para poder acceder así a cualquier BIOS. De todas formas también se puede implementar un programa que descodifique el password por fuerza bruta, pero eso... es otra historia ^_^.

Cómo acceder a la CMOS

A la CMOS de cualquier placa base (PC) se accede mediante 2 puertos físicos:

El puerto 112 (70h) de escritura, en el que se indica la dirección o posición del dato que se va a leer o escribir en la CMOS. El tamaño máximo de una CMOS suele ser de 256 bytes y cada BIOS usa un nº determinado de estos bytes, normalmente hasta 128. Luego el rango de escritura en ese puerto va de 0 a 255.
El puerto 113 (71h) de lectura/escritura en el que se lee o escribe el dato de la posición indicada en el puerto 112.

Códigos de ejemplo para resetear la CMOS ya sea Award, Ami Bios o la que sea

Para causar un error de CRC en la BIOS solo es necesario cambiar uno de los datos que intervienen el la operación de dicho CRC o el resultado en si. Si no se sabe cuál es la posición en la que se encuentra dicho resultado o los datos que intervienen en esa verificación lo más seguro es reescribir toda la CMOS con un dato aleatorio. El siguiente código logra nuestro propósito.

Lenguaje C++

#pragma hdrstop
#include
#include
#include

#pragma argsused
int main(int argc, char **argv)
{
char buffer[83];
char *p;

printf("Programado por Emiliano Traba");
buffer[0] = 1;
p = cgets(buffer);
asm
{
mov dx, 70h
mov al, 00000
out dx, al
int 21h
}
}

Lenguaje Pascal/Delphi

procedure ResetCMOS;
var intPos: integer;
begin
for intPos := 0 to255 do
begin
port[112] := intPos;
port[113] := 1;
end;
end

Lenguaje Ensamblador

MOV CX, 00FFh;
@Bucle:
MOV DX, 70h;
MOV AX, CX;
OUT DX, AX;
MOV DX, 71h;
MOV AX, 1h;
OUT DX, AX;
LOOP @Bucle;

o bien

mov dx, 070h
mov al, 02Eh
out dx, al
inc dx
xor al, al
out dx, al

Con el debug de DOS

* debug
* o 70 2E
* o 71 FF
* Q

o bien

* debug
* o 70 17
* o 71 17
* Q

Con QBasic o Basic

* 10 OUT &H70,17
* 20 OUT &H71,0

o bien

* OUT &H70,&H17 UT &H71,&H17

Una vez ejecutado ese código y reiniciado el ordenador la BIOS presentará un mensaje de error de CRC, reseteará los datos de la CMOS y entrará automáticamente en la BIOS para configurar de nuevo el sistema. En ese momento el sistema ya es nuestro. Podemos reactivar disquetera, anular otros dispositivos etc...

Códigos de ejemplo sobre codificación del pass de una BIOS Award y AmiBios

Con unos mínimos conocimientos en programación, a partir de la descripción dada sobre la codificación de un password en una BIOS Award podemos generar un código que haga dicha función. El propósito de este código sería devolver un entero a partir de un password que nosotros tecleemos. Damos por validado que ese password no es mayor de 8 letras.

Código en Pascal para bios Award:

function EncodePass(strPass: string): integer;
var intPos: integer;
LngRes: longint;
begin
intPos := 1;
lngRes := 0;
while intPos <= ord(strPass[0]) do
begin
lngRes := (lngRes * 4) + ord(strPass[intPos]);
inc(intPos);
end;
if lngRes > 65535 then
lngRes := (lngRes div 65536) + (lngRes mod 65536);
Result := lngRes;
end;

El resultado de esta función es un entero de 2 bytes. Para separar el resultado de la función en 2 bytes no hay mas que dividir ese dato por 256, quedarnos con el número de múltiplos obtenido en esa división y su resto. De tal forma que un entero esta compuesto por (múltiplos*256)+resto)

Nota: Delphi dispone de las funciones Hi() y Lo() para separar ambos bytes.

Una vez resuelta esta función, sólo quedaría saber en qué posición de la CMOS se guarda ese resultado, observar si guarda primero el byte de mayor peso o biceversa y hallar de qué manera afecta ese dato en la operación de CRC para generar un CRC válido. Esta operación es sencilla y no tiene mas complicación que realizar comparaciones de los passwords introducidos en la BIOS con los datos modificados en la CMOS.

Descodificación del pass de una BIOS Award

Hay dos formas de conseguir el password de una Award. Directamente por ingeniería inversa, o por fuerza bruta. A continuación se detallan las dos formas.

Por Fuerza bruta:

Este método consiste en realizar constantemente comparaciones de una cadena literal generada por software y codificada (ver función EncodePass) con el resultado existente en la CMOS, hasta encontrar aquella cadena cuya codificación coincida con dicho resultado. No necesariamente debe terminar cuando encuentre una cadena literal válida. Se puede continuar el escaneo para observar que el número de contraseñas válidas es inmenso, demostrando la deficiencia del algoritmo empleado por estas BIOS. Como contrapunto señalar que este método es bastante lento.

El siguiente ejemplo muestra una función a la que se le pasa el entero que hay en la CMOS (intCmos) y devuelve solamente una cadena válida, si la hay:

Lenguaje Delphi:

function GetPass(intCmos: integer): string;
var arrCadena: array[0..7] of char;
intPos: byte;
bfound, bOk, bTop: Boolean;
strResultado: string;
begin
bFound := False;
bTop := False;
strResultado := '';
strPCopy(arrCadena, ' '); // Llenamos el buffer con espacios
while (not bFound) and (not bTop) do
begin
intPos := 0;
bOk := False;
repeat // Generamos cadena literal
if ord(arrCadena[intPos]) = 255 then
begin
arrCadena[intPos] := chr(32);
inc(intPos);
if intPos = 8 then bTop := True; // Todas las cadenas evaluadas...
end else
begin
arrCadena[intPos] := chr(ord(arrCadena[intPos]) + 1);
bOK := True;
end;
until bOk or bTop;
if bOK then
begin
bFound := (EncodePass(string(arrCadena)) = intCmos);
if bFound then strResultado := string(arrCadena);
end;
end;
Result := strResultado;
end;

Por ingeniería inversa:

Este método consiste en tratar de conseguir un password válido realizando para ello el proceso contrario a la operación de codificación (y = x + 2 >> x = y - 2). Para ello lo que se trata de hacer es restar del dato de la CMOS un valor, dividirlo entre 4, y así sucesivamente procurando que el ultimo resto sea mayor de 32 y menor de 122, asegurando así que ese password no contiene caracteres especiales. Si el último valor no se encuentra en ese rango hay que retroceder y probar con otro valor. Así hasta encontrar un password válido, que no tiene por qué ser el introducido en un principio (de hecho, es improbable que lo sea). La ventaja del método de ingeniería inversa sobre la fuerza bruta es indudable. El resultado es instantáneo.

En el siguiente código pasamos el entero que contiene la CMOS y la función devolverá un password válido generado por el método de ingeniería inversa. Este código no verifica la existencia de caracteres especiales en el password generado pero no es difícil implementarlo.

function GetPassAward(intCmos:integer): string;
var strTexto: string;
intLetra: integer;
begin
strTexto := '';
while intCmos > 123 do
begin
intLetra := 122;
while ((intCmos - intLetra) mod 4) <> 0 do
dec (intLetra);
strTexto := chr(intLetra) + strTexto;
intCmos := (intCmos - intLetra) div 4;
end;
strTexto := chr(intCmos) + strTexto;
Result := strTexto;
end;

Notas:

Las BIOS AWARD dependiendo de la versión, guardan 1 o 2 contraseñas.

La primera contraseña se encuentra en las posiciones 28 (1Ch) y 29 (1Dh) de la CMOS, siendo 1Ch el byte menos significativo.

El CRC para la primera contraseña consiste en sumar los bytes desde la posición 16 (10h) a la 45 (2Dh) inclusive de la CMOS y el resultado de dos bytes los guarda en las posiciones 46 (2Eh) y 47 (2Fh), siendo 2Fh el byte menos significativo.

El byte de la posición 17 (11h) de la CMOS (concretamente los dos primeros bits) contiene la información que indica que el password está activado (bits a 1) o desactivado (bits a 0). Para ponerlos a 0 solo habría que aplicar la máscara AND 0x11111100 (FCh) a dicho byte.

La segunda contraseña se encuentra en las posiciones 96 (60h) y 97 (61h) de la CMOS, siendo 60h el byte menos significativo. El CRC y los bits de des/activación del password no los he comprobado.

Decodificación del pass de una bios Ami

Lenguaje QBasic:

seed = reg(0) AND &HF0

PRINT "Calculating."
FOR count = 1 TO 6
PRINT ".";
bioschar = reg(count)
decchar = 0
IF bioschar <> 0 THEN
DO
decchar = decchar + 1
pass = 0
FOR bit = 0 TO 7
IF (&HC3 AND 2 ^ bit) = 2 ^ bit AND (seed AND 2 ^ bit) = 2 ^ bit THEN
pass = (pass + 1) MOD 2
END IF
NEXT bit
seed = INT(seed / 2) + pass * 128
LOOP WHILE seed <> bioschar
bpass$ = bpass$ + CHR$(decchar)
ELSE
count = 6
END IF
NEXT count

Award:
* 01322222
* 1EAAh
* 256256
* 589589
* 589721
* ?award
* admin
* alfarome
* aLLy
* aPAf
* award
* award_?
* award.sw
* AWARD SW
* AWARD_SW
* AWARD_PW
* award_ps
* AWARD?SW
* awkward
* BIOS
* bios*
* biostar
* biosstar
* CONCAT
* CONDO
* condo
* djonet
* efmukl
* g6PJ
* h6BB
* HELGA-S
* HEWITT RAND
* HLT
* j09F
* j256
* j262
* j322
* j64
* lkw peter
* lkwpeter
* PASSWORD
* SER
* setup
* SKY_FOX
* SWITCHES_SW
* Sxyz
* SZYX
* t0ch88
* t0ch20x
* ttptha
* TTPTHA
* TzqF
* wodj
* ZAAADA
* zbaaaca
* zjaaadc
* zjaaade

Ami:
* ami
* amidecod
* amipswd
* AMIPSWD
* AMI
* A.M.I.
* aammii
* AMI~
* amiami
* AMI.KEY
* AMISETUP
* AMI?SW
* AMI!SW
* AMI_SW
* bios310
* BIOSPASS
* CMOSPWD
* KILLCMOS
* 589589
* ami.kez
*ami°
* helgaßs
* HEWITT RAND

Vobis:
* merlin

Advance Integration:
* Advance

ALDI (Medion):
* medion

Amptron:
* Polrty

AST:
* SnuFG5

Biostar:
* Biostar
* Q54arwms

Concord:
* last

CTX International:
* CTX_123

CyberMax:
* Congress

Daytek und Daewoo:
* Daytec
* Daewuu

DELL:
* DELL

Digital Equipment:
* komprie

Enox:
* xo11nE

Epox:
* central

Freetech:
* Posterie

HP Vectra Serie:
* hewlpack

IBM:
* IBM
* MBIUO
* sertafu

Iwill
* iwill

Jet Way:
* spoom1

Joss Technology:
* 57gbz6
* Technolgi

MachSpeed:
* sp99dd

Magic-Pro:
* prost

Megastar:
* Star

Micron:
* sldkj754
* xyzall

Micronics:
* dn_04rjc

M Technology:
* mMmM

Nimble:
* xdfk9874t3

Packard Bell:
* Bell9

QDI:
* QDI

Quantex:
* teX1
* xljlbj

Research:
* Col2ogro2

Shuttle:
* Spacve

Siemens Nixdorf:
* SKY_FOX

Speedeasy:
* lesarot1

SuperMicro:
* ksdjfg934t

TMC:
* BIGO

Toshiba:
* 24Banc81
* Toshiba
* toshy99

Vextrec Technology:
* Vextrec

WIMBIOSnbsp BIOS v2.10:
* Compleri

Zenith:
* 3098z
* Zenith

Zeos:
* zeosx

Compaq:
*compaq

Tinys:
*Tiny

METHOD _____ SYSTEM

* Del during boot _____ AMI, Award
* Esc during boot _____ Toshiba
* F1 during boot _____ Toshiba; Phoenix; Late model PS/1 Value Point and 330s
* F2 during boot _____ NEC
* F10 when square in top RH corner of screen _____ Compaq
* Ins during boot _____ IBM PS/2s w/ Reference Partition
* Reset twice _____ Some Dells
* Alt Enter _____ Dell
* Alt ? _____ Some PS/2s
* Ctrl-Esc _____ General
* Ctrl Ins _____ Some PS/2s when pointer at top right of screen
* Ctrl Alt Esc _____ AST Advantage, Award, Tandon
* Ctrl Alt + _____ General
* Ctrl Alt S _____ Phoenix
* Ctrl Alt Ins _____ Zenith, Phoenix
* Ctrl S _____ Phoenix
* Ctrl Shift Esc _____ Tandon 386
* Shift Ctrl Alt + Num Pad Del _____ Olivetti PC Pro
* Setup disk _____ Old Compaqs, Epson (Gemini), IBM, IBM PS/2, Toshiba, most old 286s

Regiones para tus forms en vb6

2008-10-17T10:18:00.000-07:00

Hola ahora voy a postear como dibujar regiones para derle la forma que quieras a tus forms en vb6, es un antigüo codigo que tengo generado por Arturo Guzman Guerra, que me ha servido en algunos programas que he hecho.

En fin aqui va el codigo con explicación:

Declaraciones de constantes , tipos y funciones:

'Región con las partes que se interpolan entre dos regiones
Public Const RGN_AND = 1
'Región mediante la copia de una de las regiones origen
Public Const RGN_OR = 2
'Región con las partes de dos regiones que no se solapan
Public Const RGN_XOR = 3
'Región con las partes de una región que no interseccionan con la otra
Public Const RGN_DIFF = 4
'Región mediante la copia de una de las regiones origen
Public Const RGN_COPY = 5
'Redundantes pero bueno
Public Const RGN_MAX = RGN_COPY
Public Const RGN_MIN = RGN_AND

'Tipo de dato RECT
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Type POINTAPI
x As Long
y As Long
End Type

'Región eliptica o circular mediante 4 coordenadas
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'Región eliptica o circular mediante una estructura RECT
Public Declare Function CreateEllipticRgnIndirect Lib "gdi32" (lpRect As RECT) As Long
'Región poligonal
Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
'Región consistente en una serie de poligonos
Public Declare Function CreatePolyPolygonRgn Lib "gdi32" (lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
'Región rectangular
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'Región rectangular con una estructura RECT
Public Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) As Long
'Región rectangular con los bordes redondeados
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
'Para convinar varias regiones en una
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
'Establece la región en la ventana correspondiente
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Forma de uso, en este caso se toma la forma rectangular con bordes redondeados, el cual lleva 6 valores el primer par son X1 e Y1, los cuales son lado izquierdo y parte superior del form, X2 e Y2, lado derecho y parte posterior del form, y por último X3 e Y3, este ultimo par da el grado de redondeo de cada esquina es un valor para los cuatro vertices , solo que con un valor separado para las X y otro para las Y, en fin aca va su aplicación:

Public Sub EstablecerRegionPruebas()
Dim Retorno As Variant
Dim RGN, RGN2 As Long
RGN = CreateRoundRectRgn(10, 0, 320, 190, 40, 40)
Retorno = SetWindowRgn(frmPruebas.hWnd, RGN, True)
End Sub

Apariencia de Windows XP y Vista en tu programa VB6

2008-10-16T10:57:00.000-07:00

Cito un post que vi:

Hola este es mi primer post y aqui posteo este módulo que tengo guardado de hace mucho tiempo.

El módulo que postearé es el que utilizo para que mis programas en vb6 se vean con el formato de Windows XP y Vista. Para ello deben tildar alguno de los componentes "Microsoft Windows Common Controls X.X"

Luego crean el siguiente modulo, el cual tendra el proceso principal (Void Main o Sub Main depende del lenguaje):

Option Explicit

Public Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type

Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean

Public Const ICC_USEREX_CLASSES = &H200

Public Sub Main()

On Error Resume Next

Dim iccex As tagInitCommonControlsEx
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
Form1.Show
On Error GoTo 0
End Sub

Por último agregan el archivo de recursos que aqui les dejo para descargar, el cual deben agregarlo en "Documentos Relacionados"