Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Temas - oPen syLar

#1
Redes / VPN pagadas en Bitcoins
3 Noviembre 2016, 17:23 PM
Han utilizado una VPN de pago en Bitcoins que sea confiable?

Necesito que tengan IP en EEUU y que sea de pago.
#2
Hola tengo un fichero .img que el file (herramienta CLI de *NIX) me arroja que es un fichero "DOS/MBR Boot Sector" e intentado "montarlo" desde distros Linux (Kali, ArchLinux) con autospy, mount + kpartx + losetup y N cantidad de herramientas sobre Windows, la única que me a funcionado es IsoBuster pero necesito pagar para recuperar los ficheros que están dentro de Boot.img

Le e pasado strings.exe para ver que strings me arroja y pues veo las strings, pero aun no logro montar la .img correctamente, por lo cual descarto que este cifrado


Alguna herramienta en particular para montar este fichero .img ?
#3
Buenas,

La pregunta es sencilla tengo una EVGA  600B y 3 tarjetas de video AMD (dos Sapphire Radeon HD 5970 y una HD 6950 ) y la fuente EVGA no me provee de alimentación PCIe para las 3 tarjetas AMD por lo que e comprado unos adaptadores SATA a PCIe según mis cálculos esta fuente EVGA me alimentara 2 tarjetas (con 3 ira forzado) la pregunta es, ni la fuente ni las tarjetas sufrirán con estos adaptadores? mis equipos esta en riesgo por utilizar adaptadores de esta clase? alguna recomendación (aparte de cambiar la fuente) para esta instalación?


EDIT: Decidi cambiar de fuente, no me fio de los adaptadores
#4
GNU/Linux / BIOS Fake a travez de LKM?
2 Julio 2016, 20:58 PM
Buenas,

Por extrañas circunstancias necesito modificar los strings de mi BIOS de mi equipo físico (virtualizar no es una opción, ni modificar la ROM de mi BIOS tampoco) esto puede hacerse a travez de un LKM (Linux Kernel Module) si se puede por donde puedo empezar?

Saludos cordiales.
#5
Buenas,

Recientemente e comprado un programador USB Genius G540 para programar un Winbond W25Q64 pero este programador solo soporta el BORRADO del chip mas no su PROGRAMACIÓN - VERIFICACIÓN, ahora la pregunta es la siguiente hay un chip ATMEL u otra marca que sea similar los chips de la serie W25Q64? tengo entendido que es de 64M y 3,3v e intentado reprogramarlo con otro modelo de los WinBond que si están soportados por el programador pero sin éxito, tengo varios chips de la serie W25Q64.

En caso de haber un chip similar a los de la serie W25Q64 que valores del datasheet tengo que leer/comparar para saber que son similares, hay una pagina para comparar 2 datasheet de 2 flash memora?

Básicamente lo quiero es para restaurar la BIOS de mi tarjeta madre ASUS PRO/GEN3 que fue mal actualizada.
#6
Mensaje de error en la BIOS "Please enter setup to recover BIOS setting The data in the EC or EC flash might be corrupted. Please contact ASUS Technical support for help. Fatal Error... system halted"

Buenas acabo de tirarme mi BIOS chip, ahora no se que hacer tengo 2 BIOS chip inservibles y ya compre un 3er chip, les cuento mi tarjeta es una ASUS P8Z68-V GEN3 la compre a un vendedor que según sus palabras "daño la BIOS en una actualización de la misma" intente entrar a la BIOS desde un principio (presionando DEL cuando aparece el ASUS logo) pero nada no entra para intentar restaurarla, le e colocado el CD que trae de fabrica pero tampoco funciona, incluso una USB con la ROM de la BIOS y nada, no hace nada (reconoce que tiene dispositivos conectados)

E leído sobre CrashFree (esta tarjeta lo soporta) pero creo que tengo que entrar a la BIOS para poder utilizarlo (cosa que no me deja) todo esto lo e intentado con el BIOS chip de fabrica y el BIOS chip que dañe.

Con el segundo BIOS chip me inicio y cargo la BIOS/UEFI y sin tocar nada reinicie y le pegue un disco SATA para ver si booteaba desde el y mi sorpresa fue que ya marcaba la BIOS como corrupta y procedí a hacer los pasos que inicialmente hice con el primer BIOS chip (arrancar desde el CD, USB y demás) ¿este procedimiento con la segunda BIOS chip fue erróneo? ¿hice algo mal en la instalación de la segunda BIOS chip?


Por otro lado e visto que se puede reprogramar la BIOS a través de dispositivos USB que cuestan 3USD otros 40USD en eBay, si esto es posible (estoy seguro de que si) cual dispositivo me puede servir para reprogramar mi BIOS chip y otras clases de BIOS chip ¿alguno de ustedes tiene un dispositivo de estos?


Aca les dejo una imagen de mi BIOS chip




Saludo cordiales,
#7
Buenas, la pregunta es bastante simple.. Se pueden cambiar las placa lógica de un  Western Digital WD1600AAJS a un Western Digital WD800BD (esta quemada) son muy similares.. Salvo que la del WD1600AAJS tiene "cortes" diferentes ... Ambos son SATA pero el Western Digital WD800BD (Al que le quiero cambiar la placa lógica) tiene 2 sockets para alimentación uno IDE y otro SATA y la del otro tiene un solo socket de alimentación SATA.

Gracias por leer.. Saludos
#8
Hey.. Alguien a probado la vulnerabilidad hecha publica en el Ekoparty.?

http://adf.ly/D9ba8

Que tan cierta es.? Se que Ravi la probo.. Pero.. Alguien de acá la a probado contra su Android.?
#9
Pues eso.. Trato de compilar un proyecto basado en OpenCL pero al pasarle el la libreria libOpenCL.a al MinGW este hace caso omiso del mismo

en mi Makefile tengo

OPENCL_FLAGS = -static -l /usr/lib/libOpenCL.a

También e intentado con...


OPENCL_FLAGS = -static /usr/lib/libOpenCL.a

Ya verifique que la librería /usr/lib/libOpenCL.a exista.. el MinGW simplemente no me da error alguno

Imagine que debo pasarle algún flag adicional al compilador.. Pero en los .h de OpenCL no mencionan nada acerca de ello tampoco en la documentación

Ya no se ni que hacer =(
#10
Hacking Mobile / Sockets Bluetooth
27 Mayo 2012, 04:19 AM
Hace un par de semanas trabajo sobre un pequeño proyecto basado en OpenOBEX..Y bueno me ha recordado viejos tiempos cuando echaba mis primeras lineas con las BlueZ y empezaba a jugar con algunas distro GNU/Linux... Eso ya hace bastante tiempo.. Y ahora los retomo =)

El tema de los Bluetooth es algo poco visto.. Poco se habla.. Es raro.. Muchas implementaciones de sus protocolos se ven muy inestables.. Bueh ya vendrán una que otra tool que nos quite el sueño.. O quien quita.. Actualicen la suite Bludiving para ponernos a jugar un rato.. Que no tiene actividad desde el 2006 =S ...

Aca les traigo un pequeño código de como se manejan los sockets bajo Bluetooth.. Si han manejado sockets en alguna vez de su vida verán que no es nada complejo.. y varían en ciertas lineas y ciertos flags.. Pero del resto es la misma wea..Un socket() por aqui un connect() por alla.. Blablabla..

Necesitaran..


las librerias de desarrollo bluez
(En Debian creo que se llaman bluez-devel) o algo así..

En Arch simplemente se llama bluez



#include <bluetooth/bluetooth.h>
#include <bluetooth/rfcomm.h>
#include <errno.h>
#include <stdio.h>

int main(int argc, char *argv[])
{

if(argc!=2)
{
printf("\nSolo acepta 1 parametros...\n%s 00:11:22:33:44:55:66\n\n", argv[0]);

return 1213;
}

/*
- Para socket Bluetooth se cambia el tipico AF_INET por
AF_BLUETOOTH (AF_ = Address Family)
 
- SOCK_STREAM = Especificamos que queremos un flujo confiable (estilo TCP)

- SOCK_DGRAM u otro flag no esta permitido en sockets RFCOMM
*/
int sck=socket(AF_BLUETOOTH, SOCK_STREAM, BTPROTO_RFCOMM);

//Podemos establecer sockets a nivel Bluetooth
if(sck!=-1)
{
/*
Seteamos los parametros para la conexion
sockaddr_rc es una variante de sockaddr_in.. Esta variante
esta definida en rfcomm.h
*/
struct sockaddr_rc remote;


bdaddr_t addrs;

/*
str2ba convierte una MAC Address en tipo char a tipo bdaddr
Necesario para pasarselo a connect()
*/
str2ba(argv[1], &addrs);

//Seteamos el Address Family
remote.rc_family = AF_BLUETOOTH;

//seteamos el canal SDP
remote.rc_channel = 1;

//Mac Address en formato bdaddr_t
remote.rc_bdaddr = addrs;

//Conectamos si connect() devuelve 0 entonces la conexion habra fallado

if(connect(sck, (struct sockaddr *)&remote, sizeof(remote))<0)
{
////Sino connect()a pintar una paloma.. =D
printf("[!] connect() FAIL.! [%s]\n", strerror(errno));
}

close(sck);
}

//Sino.. Pintar otra una paloma.. =D
else
puts("[!] Who.? socket() FAIL.. o.0");
}


Complilan con


gcc `pkg-config --libs --cflags openobex` -g `pkg-config --cflags --libs bluez` main.c


O bien...


gcc -g -lbluetooth  main.c -o oPen; ./oPen


Claro no piensen que una llamada a send() ya podrán enviar ficheros.. Así sin mas.. El tema de los protocolos Bluetooth es bastante amplio este es un pequeño post de como hacer conexiones simples a través de sockets Si lo que quieren es enviar un fichero por OBEX pues.. Podrán utilizar OpenOBEX que ya esta bastante difundido entre los SO incluyendo MS Windows x) Espero armar otra pequeña entrada para los transportadores sobre OpenOBEX pronto.. Saludos
#11
Bien tengo rato dando vueltas en esto.. Tengo un Nokia 5000 que me pide código de seguridad (BB5) cuando introduzco cualquier SIM diferente a la que ya tiene... Se que no se puede liberar por IMEI.. Según leo se puede liberar por cable USB.. Con Nemesis y otras apps.. Pero según me cuenta un técnico que no puede hacerse por cable USB.. Tengo que comprar la caja.. O pagarle a el para que me lo desbloquee =)

Mi pregunta es.. Puedo liberarlo vía cable USB + Nemesis.? No poseo cable ni box.. Por eso pregunto =)

Otra consulta.. Necesito un cable especial.? distinto al cable USB de datos normal para Nokia.? e leido que necesito el cable DK2

EOF;
#12
GNU/Linux / Pidgin Password Recovery (GPL)
11 Abril 2012, 08:55 AM
Hola nenecos.. Esta es una app basada en libxml bastante simple =) solo fue testeada sobre plataformas GNU/Linux aunque no dudo que trabaje en otro SO Unix-Like

Ya todos sabemos que es Pidgin es maravilloso.. Hace de todo y que es bien feo.. No digo que haga mal su trabajo de hecho lo hace muy bien.. Es eficiente.. Pero tiene un pequeño defecto (Si.. Defecto no bug) es que guarda los passwords y los logins en plaintext .__. yeah en texto plano... FAIL

Dicho defecto... por defecto se guarda en.. $HOME/.purple/accounts.xml

Obviamente es un fichero XML con arboles/nodos con configuracion referente a la configuracion a las cuentas creadas (incluyendo su user/pass) ...


Y como automatizamos esto.? Pues simple con Pidgin Password Recovery Tiene soporte para enumerar todas las cuentas... Busca la ruta por defecto... Aunque también puede especificarse por parámetros





El código esta (como todos o casi todos mis proyectos) en Github así que con un clone bastara


#Instalamos las depencencias.. Aunque seguro ya las tengas instaladas
yaour -S libxml


#Cloning
git clone git://github.com/oPensyLar/Pidgin-Password-Dumper.git

cd Pidgin-Password-Dumper

#Compila y ejecuta
gcc -o ppd main.c `xml2-config --libs`; ./ppd accounts.xml




A pesar de esto... Existe un parche basado en el Keyring de Gnome http://code.google.com/p/pidgin-gnome-keyri .. Aunque la gran mayoría de las distribuciones no lo utiliza..

Esto es una pequeña prueba del hecho de que las app sean creadas bajo un entorno Unix o un Unix-Like pueden ser tan inseguras como las app hechas para MS Windows... Y créanme.. No es la única app que e visto con este problema... Saludos y que les rinda =)
#13
A ver tengo 2 proyectos.. Uno en C y otro en C++ Ambos por separado no me dan ningún tipo de problemas..Compilan y se ejecuta a la perfección.. El problema esta en cuando incluyo código C++ sobre un .c ..


Tengo getdata.cpp y lo quiero incluir sobre main.c lo compilo con g++ a través de un Makefile

Mi Makefile...
http://pastebin.com/uUBFFCrm


El Error..
http://pastebin.com/yTbCaiTW


Si tienen sugerencias o pueden ayudarme.. Se lo agradecería...

Saludos..
#14
Conocian esto.?


http://cppcms.com/wikipp/en/page/rationale


CitarWhat is CppCMS? CppCMS is a Free High Performance Web Development Framework (not a CMS) aimed for Rapid Web Application Development. It differs from most of other web development frameworks like: Python Django


A pesar de ser "nuevo" pinta bien.. Curioso proyecto


Saludos.. =)
#15
PHP / PHP Accelerator vs Ruby/Python
2 Febrero 2012, 17:08 PM
Pues básicamente esa es la pregunta.. Una aplicación con un PHP Accelerator es mas rápida que una hecha en rails o Python.?


Alguien tiene un benchmark comparativo con algún PHP Acceleator.?


Offtopic: Tienen que poner unas smilies de carnaval..   ::)
#16
Bugs y Exploits / 0day DBisam (A2 Softway)
6 Diciembre 2011, 23:06 PM
Pues he decidido liberar este PoC a razón de que la empresa Elevate Software No haya respondido a mi e-mail de notificación de la vulnerabilidad.. (a mi modo de ver) creo que no le interesa sus clientes.. O le importa poco el impacto de la vulnerabilidad.


Elevate Software es la empresa que el da soporte a las db (o tablas.?) DBisam que utilizan las aplicaciones diseñadas por a2 Software.. (a2 Administrativo... a2 Nomina .. etc etc etc) Quizás el grandisimo y majestuoso perfecto Dioses de todos los Dioses Victor Acosta amo y señor de la red.. Se haga eco de esta noticia =)

Para replicar esta vulnerabilidad un atacante tendría que modificar el fichero de configuración inicial del servidor.. Aparentemente el database server de DBisam no controla correctamente el nombre del localhost permitiendo así un Stack Overflow sobre el sistema..


Para parchear este fallo de seguridad los chicos ultra guays de DBisam podrían limitar el hostame a 256 que es el nombre máximo para un host sobre Windows XP


Afecta a...

Nombre: DBISAM Database Server
Version: 4.28
Idioma: Ingles
Tipo vulnerabilidad: Stack Overflow (local)


No libero ni exploit.. Ni nada.. (No se puede ser tan joeputa en esta vida) solo el PoC que pueden encontrarlo aca... http://bit.ly/t98zK7

Como extra.. Aca les dejo un video de como replicar la vulnerabilidad...


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

Link.. http://bit.ly/w2qhku

Saludos
#17
Hola actualmente trabajo o busco vulnerabilidades en un sistema.. Diseñado en Delphi7

Ya e modificado algunos ficheros del sistema.. Dando fallas... Pero sin llegar a sobreescribir el EIP.. Por ejm en el Olly me sale..

Access violation when reading [00000000]

Lo que quiere decir que a accedido a una posición de memoria no valida no.?

Pero hasta allí en diferentes segmentos del programa.. Siempre dice lo mismo.. Y el EIP siempre apunta a una instrucción.. No a una cadena de AAAAA (414141414) o una cadena de Ñs..


Tiene un packer llamado SKD (BETA) pero creo que ese no es el problema muestra el código en limpio...



Que estoy haciendo mal.?  Siempre  voy a necesitar del "Access violation when reading [4141414]" Para explotar un BoF.?
#18
Hola.. Tengo un pequeño problema a la hora de definir un puntero como dato miembro en C++ Para resumir lo que hago es lo siguiente...

class oPen
{
  FILE *canal;

 oPen()
 canal=fopen("unTxt.txt", "w");


static int fnMiembro();
}


int oPen::fnMiembro
{
 oPen c;

 fprintf(c.canal, "hola");
}



Al parecer c.canal apunta a otro sector de la memoria que no es precisamente el reservado por fopen... fopen devuelve un handle valido... El problema esta en que no sabe la dirección correcta.. Y termina la ejecución.

Lo que e hecho hasta ahora es sacar FILE * canal de la clase y declararlo como variable global pero esto me parece que no es lo correcto.. Quiero hacerlo completamente POO.


Saludos


Edito: El código estaba mal escrito... Ahora se parece mas a lo que tengo escrito
#20
Foro Libre / Mito o realidad.? [venehack]
22 Septiembre 2011, 21:16 PM
Programa transmitido por VIVE TV...

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

http://www.youtube.com/watch?v=HRBeDXlUR5Y

Segunda Parte

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

http://www.youtube.com/watch?v=yM2U60et_44


En lo personal.. Cosas como estas.. Me inspiran a seguir programando y auditando..

Saludos
#21
Hey.! Buscando por inter.. Encontré ciertos sitios... Donde el desarrollo se hace vía Freelance.. Con buena paga.. Pero la pregunta seria.. Son fiables.? Alguno de ustedes han trabajado en proyectos freelance.? Que probabilidad tengo de que me cancelen lo que programo.?


Saludos ;)
#22
Programación C/C++ / OpenSSL + Cliente Proxy
31 Agosto 2011, 22:56 PM
Buenas alguien sabra decirme si OpenSSL tiene soporte para un cliente proxy..?

Actualmente implemento una llamada a la funcion BIO_set_proxies() Que segun el header bio.h es la funcion implementada para el soporte de proxys...

/* BIO_s_proxy_client() */
#define BIO_set_url(b,url) BIO_ctrl(b,BIO_C_SET_PROXY_PARAM,0,(char *)(url))
#define BIO_set_proxies(b,p) BIO_ctrl(b,BIO_C_SET_PROXY_PARAM,1,(char *)(p))


En mi codigo....

BIO_set_proxies(bio, localhost:4321)

Pero nada.. Le da igual.. Se conecta directamente al servidor POP3 sin pasar por el proxy SOCK4

Para conectarme al servidor lo hago de la siguiente forma
   BIO_set_conn_hostname(bio, host);


En la referencia que hacen en su web acerca de su API.. No sale nada acerca de proxys..


Citarhttp://www.opensslbook.com/api/index.html


Alguien podria ayudarme acerca de que funcion debo llamar para que pase por mi proxy antes de que se conecte al servidor POP3.?

Mi SO es Arch y mi version del openssl es la  1.0.0
#23
Programación C/C++ / QTcreator + libgdata
28 Agosto 2011, 04:10 AM
Buenas.. Estaba tratando de compilar un prj que tengo sobre QT y libgdata pero... No encuentro la forma... Se que debe ser un parametro que se le pasa a g++ .. Pero no doy con cual...


Actualmente tengo Qt Creator 2.2.1 (Qt 4.7.3 (64 bit)) y mi version libgdata es la 0.8.0-1

Normalmente en aplicaciones sin GUI QT compilo normal con...

g++ `pkg-config --libs --cflags libgdata` -l curl -l xml2 -l mysqlclient main.cpp;

Y esto es suficiente pero.. Con QTcreator parece que necesito de algo mas

Mi Makefile

#############################################################################
# Makefile for building: untitled3
# Generated by qmake (2.01a) (Qt 4.7.3) on: sáb ago 27 21:02:21 2011
# Project:  ../untitled3/untitled3.pro
# Template: app
# Command: /usr/bin/qmake -spec /usr/share/qt/mkspecs/linux-g++-64 -o Makefile ../untitled3/untitled3.pro
#############################################################################

####### Compiler, tools and options

CC            = gcc
CXX           = g++
DEFINES       = -DQT_NO_DEBUG -DQT_GUI_LIB -DQT_CORE_LIB -DQT_SHARED
CFLAGS        = -m64 -pipe -march=x86-64 -mtune=generic -O2 -pipe -fno-strict-aliasing -Wall -W -D_REENTRANT $(DEFINES)
CXXFLAGS      = -m64 -pipe -march=x86-64 -mtune=generic -O2 -pipe -fno-strict-aliasing -Wall -W -D_REENTRANT $(DEFINES)
INCPATH       = -I/usr/share/qt/mkspecs/linux-g++-64 -I../untitled3 -I/usr/include/QtCore -I/usr/include/QtGui -I/usr/include -I. -I. -I../untitled3 -I. -I/usr/include/libgdata -I/usr/include/libsoup-2.4 -I/usr/include/libxml2 -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include
LINK          = g++
LFLAGS        = -m64 -Wl,--hash-style=gnu -Wl,--as-needed -Wl,-O1
LIBS          = $(SUBLIBS)  -L/usr/lib -lQtGui -lQtCore -lpthread -lgdata -lsoup-2.4 -lxml2 -lgio-2.0 -lgobject-2.0 -lgmodule-2.0 -lgthread-2.0 -lrt -lglib-2.0
AR            = ar cqs
RANLIB        =
QMAKE         = /usr/bin/qmake
TAR           = tar -cf
COMPRESS      = gzip -9f
COPY          = cp -f
SED           = sed
COPY_FILE     = $(COPY)
COPY_DIR      = $(COPY) -r
STRIP         = strip
INSTALL_FILE  = install -m 644 -p
INSTALL_DIR   = $(COPY_DIR)
INSTALL_PROGRAM = install -m 755 -p
DEL_FILE      = rm -f
SYMLINK       = ln -f -s
DEL_DIR       = rmdir
MOVE          = mv -f
CHK_DIR_EXISTS= test -d
MKDIR         = mkdir -p

####### Output directory

OBJECTS_DIR   = ./

####### Files

SOURCES       = ../untitled3/main.cpp \
../untitled3/mainwindow.cpp \
../untitled3/dialog.cpp moc_mainwindow.cpp \
moc_dialog.cpp
OBJECTS       = main.o \
mainwindow.o \
dialog.o \
moc_mainwindow.o \
moc_dialog.o
DIST          = /usr/share/qt/mkspecs/common/g++.conf \
/usr/share/qt/mkspecs/common/unix.conf \
/usr/share/qt/mkspecs/common/linux.conf \
/usr/share/qt/mkspecs/qconfig.pri \
/usr/share/qt/mkspecs/modules/qt_phonon.pri \
/usr/share/qt/mkspecs/modules/qt_webkit_version.pri \
/usr/share/qt/mkspecs/features/qt_functions.prf \
/usr/share/qt/mkspecs/features/qt_config.prf \
/usr/share/qt/mkspecs/features/exclusive_builds.prf \
/usr/share/qt/mkspecs/features/default_pre.prf \
/usr/share/qt/mkspecs/features/release.prf \
/usr/share/qt/mkspecs/features/default_post.prf \
/usr/share/qt/mkspecs/features/warn_on.prf \
/usr/share/qt/mkspecs/features/qt.prf \
/usr/share/qt/mkspecs/features/unix/thread.prf \
/usr/share/qt/mkspecs/features/moc.prf \
/usr/share/qt/mkspecs/features/resources.prf \
/usr/share/qt/mkspecs/features/uic.prf \
/usr/share/qt/mkspecs/features/yacc.prf \
/usr/share/qt/mkspecs/features/lex.prf \
/usr/share/qt/mkspecs/features/include_source_dir.prf \
../untitled3/untitled3.pro
QMAKE_TARGET  = untitled3
DESTDIR       =
TARGET        = untitled3

first: all
####### Implicit rules

.SUFFIXES: .o .c .cpp .cc .cxx .C

.cpp.o:
$(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<"

.cc.o:
$(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<"

.cxx.o:
$(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<"

.C.o:
$(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<"

.c.o:
$(CC) -c $(CFLAGS) $(INCPATH) -o "$@" "$<"

####### Build rules

all: Makefile $(TARGET)

$(TARGET): ui_mainwindow.h ui_dialog.h $(OBJECTS)  
$(LINK) $(LFLAGS) -o $(TARGET) $(OBJECTS) $(OBJCOMP) $(LIBS)

Makefile: ../untitled3/untitled3.pro  /usr/share/qt/mkspecs/linux-g++-64/qmake.conf /usr/share/qt/mkspecs/common/g++.conf \
/usr/share/qt/mkspecs/common/unix.conf \
/usr/share/qt/mkspecs/common/linux.conf \
/usr/share/qt/mkspecs/qconfig.pri \
/usr/share/qt/mkspecs/modules/qt_phonon.pri \
/usr/share/qt/mkspecs/modules/qt_webkit_version.pri \
/usr/share/qt/mkspecs/features/qt_functions.prf \
/usr/share/qt/mkspecs/features/qt_config.prf \
/usr/share/qt/mkspecs/features/exclusive_builds.prf \
/usr/share/qt/mkspecs/features/default_pre.prf \
/usr/share/qt/mkspecs/features/release.prf \
/usr/share/qt/mkspecs/features/default_post.prf \
/usr/share/qt/mkspecs/features/warn_on.prf \
/usr/share/qt/mkspecs/features/qt.prf \
/usr/share/qt/mkspecs/features/unix/thread.prf \
/usr/share/qt/mkspecs/features/moc.prf \
/usr/share/qt/mkspecs/features/resources.prf \
/usr/share/qt/mkspecs/features/uic.prf \
/usr/share/qt/mkspecs/features/yacc.prf \
/usr/share/qt/mkspecs/features/lex.prf \
/usr/share/qt/mkspecs/features/include_source_dir.prf \
/usr/lib/libQtGui.prl \
/usr/lib/libQtCore.prl
$(QMAKE) -spec /usr/share/qt/mkspecs/linux-g++-64 -o Makefile ../untitled3/untitled3.pro
/usr/share/qt/mkspecs/common/g++.conf:
/usr/share/qt/mkspecs/common/unix.conf:
/usr/share/qt/mkspecs/common/linux.conf:
/usr/share/qt/mkspecs/qconfig.pri:
/usr/share/qt/mkspecs/modules/qt_phonon.pri:
/usr/share/qt/mkspecs/modules/qt_webkit_version.pri:
/usr/share/qt/mkspecs/features/qt_functions.prf:
/usr/share/qt/mkspecs/features/qt_config.prf:
/usr/share/qt/mkspecs/features/exclusive_builds.prf:
/usr/share/qt/mkspecs/features/default_pre.prf:
/usr/share/qt/mkspecs/features/release.prf:
/usr/share/qt/mkspecs/features/default_post.prf:
/usr/share/qt/mkspecs/features/warn_on.prf:
/usr/share/qt/mkspecs/features/qt.prf:
/usr/share/qt/mkspecs/features/unix/thread.prf:
/usr/share/qt/mkspecs/features/moc.prf:
/usr/share/qt/mkspecs/features/resources.prf:
/usr/share/qt/mkspecs/features/uic.prf:
/usr/share/qt/mkspecs/features/yacc.prf:
/usr/share/qt/mkspecs/features/lex.prf:
/usr/share/qt/mkspecs/features/include_source_dir.prf:
/usr/lib/libQtGui.prl:
/usr/lib/libQtCore.prl:
qmake:  FORCE
@$(QMAKE) -spec /usr/share/qt/mkspecs/linux-g++-64 -o Makefile ../untitled3/untitled3.pro

dist:
@$(CHK_DIR_EXISTS) ../untitled3/.tmp/untitled31.0.0 || $(MKDIR) ../untitled3/.tmp/untitled31.0.0
$(COPY_FILE) --parents $(SOURCES) $(DIST) ../untitled3/.tmp/untitled31.0.0/ && $(COPY_FILE) --parents ../untitled3/mainwindow.h ../untitled3/dialog.h ../untitled3/.tmp/untitled31.0.0/ && $(COPY_FILE) --parents ../untitled3/main.cpp ../untitled3/mainwindow.cpp ../untitled3/dialog.cpp ../untitled3/.tmp/untitled31.0.0/ && $(COPY_FILE) --parents ../untitled3/mainwindow.ui ../untitled3/dialog.ui ../untitled3/.tmp/untitled31.0.0/ && (cd `dirname ../untitled3/.tmp/untitled31.0.0` && $(TAR) untitled31.0.0.tar untitled31.0.0 && $(COMPRESS) untitled31.0.0.tar) && $(MOVE) `dirname ../untitled3/.tmp/untitled31.0.0`/untitled31.0.0.tar.gz . && $(DEL_FILE) -r ../untitled3/.tmp/untitled31.0.0


clean:compiler_clean
-$(DEL_FILE) $(OBJECTS)
-$(DEL_FILE) *~ core *.core


####### Sub-libraries

distclean: clean
-$(DEL_FILE) $(TARGET)
-$(DEL_FILE) Makefile


check: first

mocclean: compiler_moc_header_clean compiler_moc_source_clean

mocables: compiler_moc_header_make_all compiler_moc_source_make_all

compiler_moc_header_make_all: moc_mainwindow.cpp moc_dialog.cpp
compiler_moc_header_clean:
-$(DEL_FILE) moc_mainwindow.cpp moc_dialog.cpp
moc_mainwindow.cpp: ../untitled3/mainwindow.h
/usr/bin/moc $(DEFINES) $(INCPATH) ../untitled3/mainwindow.h -o moc_mainwindow.cpp

moc_dialog.cpp: ../untitled3/dialog.h
/usr/bin/moc $(DEFINES) $(INCPATH) ../untitled3/dialog.h -o moc_dialog.cpp

compiler_rcc_make_all:
compiler_rcc_clean:
compiler_image_collection_make_all: qmake_image_collection.cpp
compiler_image_collection_clean:
-$(DEL_FILE) qmake_image_collection.cpp
compiler_moc_source_make_all:
compiler_moc_source_clean:
compiler_uic_make_all: ui_mainwindow.h ui_dialog.h
compiler_uic_clean:
-$(DEL_FILE) ui_mainwindow.h ui_dialog.h
ui_mainwindow.h: ../untitled3/mainwindow.ui
/usr/bin/uic ../untitled3/mainwindow.ui -o ui_mainwindow.h

ui_dialog.h: ../untitled3/dialog.ui
/usr/bin/uic ../untitled3/dialog.ui -o ui_dialog.h

compiler_yacc_decl_make_all:
compiler_yacc_decl_clean:
compiler_yacc_impl_make_all:
compiler_yacc_impl_clean:
compiler_lex_make_all:
compiler_lex_clean:
compiler_clean: compiler_moc_header_clean compiler_uic_clean

####### Compile

main.o: ../untitled3/main.cpp ../untitled3/mainwindow.h
$(CXX) -c $(CXXFLAGS) $(INCPATH) -o main.o ../untitled3/main.cpp

mainwindow.o: ../untitled3/mainwindow.cpp ../untitled3/mainwindow.h \
ui_mainwindow.h \
../untitled3/dialog.h \
ui_dialog.h
$(CXX) -c $(CXXFLAGS) $(INCPATH) -o mainwindow.o ../untitled3/mainwindow.cpp

dialog.o: ../untitled3/dialog.cpp ../untitled3/dialog.h \
ui_dialog.h
$(CXX) -c $(CXXFLAGS) $(INCPATH) -o dialog.o ../untitled3/dialog.cpp

moc_mainwindow.o: moc_mainwindow.cpp
$(CXX) -c $(CXXFLAGS) $(INCPATH) -o moc_mainwindow.o moc_mainwindow.cpp

moc_dialog.o: moc_dialog.cpp
$(CXX) -c $(CXXFLAGS) $(INCPATH) -o moc_dialog.o moc_dialog.cpp

####### Install

install:   FORCE

uninstall:   FORCE

FORCE:



La salida despues del make

Running build steps for project untitled3...
Starting: "/usr/bin/make" clean -w
make: se ingresa al directorio `/home/open/prj/qt/untitled3-build-desktop'
rm -f moc_mainwindow.cpp moc_dialog.cpp
rm -f ui_mainwindow.h ui_dialog.h
rm -f main.o mainwindow.o dialog.o moc_mainwindow.o moc_dialog.o
rm -f *~ core *.core
make: se sale del directorio `/home/open/prj/qt/untitled3-build-desktop'
The process "/usr/bin/make" exited normally.
Configuration unchanged, skipping qmake step.
Starting: "/usr/bin/make" -w
make: se ingresa al directorio `/home/open/prj/qt/untitled3-build-desktop'
/usr/bin/uic ../untitled3/mainwindow.ui -o ui_mainwindow.h
/usr/bin/uic ../untitled3/dialog.ui -o ui_dialog.h
g++ -c -m64 -pipe -march=x86-64 -mtune=generic -O2 -pipe -fno-strict-aliasing -Wall -W -D_REENTRANT -DQT_NO_DEBUG -DQT_GUI_LIB -DQT_CORE_LIB -DQT_SHARED -I/usr/share/qt/mkspecs/linux-g++-64 -I../untitled3 -I/usr/include/QtCore -I/usr/include/QtGui -I/usr/include -I. -I. -I../untitled3 -I. -I/usr/include/libgdata -I/usr/include/libsoup-2.4 -I/usr/include/libxml2 -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include -o main.o ../untitled3/main.cpp
g++ -c -m64 -pipe -march=x86-64 -mtune=generic -O2 -pipe -fno-strict-aliasing -Wall -W -D_REENTRANT -DQT_NO_DEBUG -DQT_GUI_LIB -DQT_CORE_LIB -DQT_SHARED -I/usr/share/qt/mkspecs/linux-g++-64 -I../untitled3 -I/usr/include/QtCore -I/usr/include/QtGui -I/usr/include -I. -I. -I../untitled3 -I. -I/usr/include/libgdata -I/usr/include/libsoup-2.4 -I/usr/include/libxml2 -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include -o mainwindow.o ../untitled3/mainwindow.cpp
In file included from /usr/include/glib-2.0/gio/gio.h:54:0,
                from /usr/include/libsoup-2.4/libsoup/soup-types.h:9,
                from /usr/include/libsoup-2.4/libsoup/soup-portability.h:9,
                from /usr/include/libsoup-2.4/libsoup/soup-address.h:11,
                from /usr/include/libsoup-2.4/libsoup/soup.h:13,
                from /usr/include/libgdata/gdata/gdata-service.h:25,
                from /usr/include/libgdata/gdata/gdata.h:26,
                from /usr/include/oPen.h:1324,
                from ../untitled3/include/sms.h:1,
                from ../untitled3/mainwindow.cpp:7:
/usr/include/glib-2.0/gio/gdbusintrospection.h:151:25: error: expected unqualified-id before 'protected'
/usr/include/glib-2.0/gio/gdbusintrospection.h:151:24: error: se esperaba ';' al final de la declaración miembro
/usr/include/glib-2.0/gio/gdbusintrospection.h:151:32: error: expected ':' before ';' token
In file included from ../untitled3/mainwindow.cpp:7:0:
../untitled3/include/sms.h: En la función 'int smsOperador(char*, char*, char*)':
../untitled3/include/sms.h:60:32: aviso: la operación sobre 'prms.oPen::sCURL::maxCOOK' puede estar indefinida [-Wsequence-point]
../untitled3/include/sms.h:65:101: aviso: conversión obsoleta de una constante de cadena a 'char*' [-Wwrite-strings]
../untitled3/include/sms.h:85:102: aviso: conversión obsoleta de una constante de cadena a 'char*' [-Wwrite-strings]
../untitled3/include/sms.h:87:1: aviso: el control alcanza el final de una función que no es void [-Wreturn-type]
make: *** [mainwindow.o] Error 1
make: se sale del directorio `/home/open/prj/qt/untitled3-build-desktop'
The process "/usr/bin/make" exited with code 2.
Error while building project untitled3 (target: Desktop)
When executing build step 'Make'



Alguien tiene alguna idea de que pueda estar pasando.?
#24
Buenas actualmente desarrollo una aplicación en C++ sobre curl/MySQL con el IDE wxDev-C++ (Bloodshed Dev-C++) y tengo el inconveniente en la compilación estática no la consigo.. Lo que hago es lo siguiente


Agrego los directorios de los .a (lib estáticas) al linker
agrego el parámetro -static al linker
(Sin errores de ningun tipo... Compilo - Ejecuto

Al ejecutar en otra PC sigue pidiendome las dependencias de las libcurl.dll y zlib.dll y las dll del MYSQL... =S

Otra opcion seria un binder/joiner/packer pero para mi no es una alternativa meterle codigo que no se que hace al mi proyecto... No lo veo como algo muy razonable..

Busque dentro del foro.. Y solo encontre un hilo donde hablaban para la compilacion de una "libreria estatica" es deciur... Como compilar un lib.a


Ya revise todo el IDE active las opciones que dicen "Librerary Static" en vez "DLL Dinamic" pero nada... De nada.. De paso que doc del IDE esta bastante escasa.. =S


Alguien sabe como eliminar las dependecias del exe a las dlls.? Y hacer un solo ejecutable.?


#25
http://www.isc.org/software/bind/advisories/cve-2011-2465

CVE: CVE-2011-2464

Document Version: 2.1

Posting date: 05 Jul 2011

Program Impacted: BIND

Versions affected: 9.6.3, 9.6-ESV-R4, 9.6-ESV-R4-P1, 9.6-ESV-R5b1 9.7.0, 9.7.0-P1, 9.7.0-P2, 9.7.1, 9.7.1-P1, 9.7.1-P2, 9.7.2, 9.7.2-P1, 9.7.2-P2, 9.7.2-P3, 9.7.3, 9.7.3-P1, 9.7.3-P2, 9.7.4b1 9.8.0, 9.8.0-P1, 9.8.0-P2, 9.8.0-P3, 9.8.1b1

Severity:  High

Exploitable: Remotely :silbar:
#26
Buenas... Siempre me e preguntado el porque tengo que hacer ARP Spoof para captar las contraseñas que pasan por mi tarj.. Si tengo una red wireless en el cual mi equipo hace de router y da acceso a internet a los equipos wireless mediante NAT.?

Es obligatorio.? Si es asi.. Porque.? no se supone que en teoria TODO el trafico pasa por mi tarjeta Wireless.? y sin spoof no puedo ni captar las http ni las https osea nada..   :-\
#27
A ver si alguien sabe... Ehms... Con Backtrack habia un sniffer pasivo.. Que se utilizaba para detectar rangos de IPs que pasaban por la tarjeta de red... Tenia un nombre como nfpscan o algo asi.. Quisiera poder saber el nombre para bajarlo y usarlo


Por si algo sirve.. Quiero saber la IP de mi router que debe ser una IP muy rara x) tipo 3.3.3.3 o 2.2.2.2 o algo asi.. =S

No tienen boton de reinicio  :silbar:

Gracias por su tiempo
#28
Buenas... Mi pregunta es sencilla.. Parece de logica.. Pero no me aclaro mucho con los segmentos...

Deberia de POPear los segmentos de registro al inicio de un programa cuando no los vaya a utilizar.? O eso lo hace automaticamente el programa.?

es decir.. Si no utilizo el DS.. ES.. SS.. Deberia..

pop ds
pop es
pop ss
push cs

mov ebx, 123
....
......
........
#29
puess.. haber... como le explico... tengo que logearme todo el tiempo para ver o leer los post del subforo de GNU Linux..??


sera lo que me pasa a mi..?? ayer cambie de mi browser de toda la vida a otro y hoy resulta que no puedo entrar a mi subforo sino estoy logeado... porque..?? que hiceron..?? ya el foro no va hacer mas de dominio publico y solo para los usuarios registrados..??


pues si es asi... estoy bastante incorforme... la info que se publica aca debe ser de libre acceso y eso siempre fue lo que me llamo la atencion y me gusto de este foro.... no veo la razon porque cambiar ahora


ojala  sea problema de mi browser o de mi conexion... porque no me gustaria de verdad.. que este foro se vuelva de "elites"


el foro esta muy bien como estaba y no necesita de cambios... buee.. esa fue mi opinion..


Bye..!
#30
alguien mas se le va la conexion al foro..?? el subforo de gnu linux se cae a cada momento...



y no es mi conexion y porque puedo hacer ping a otras paginas...
#31
AUTHOR:: sYlar
SHORT-DESCRIPTOR:: tutorial del historial bluetooth sobre sistemas linux



Chequeando mi /var encontre al muy interesante (la ruta completa es /var/lib/bluetooth)

alli puedes encontrar toda la informacion de todos absolutamente todos los dispositivos bluetooth que se hallan conectado al sistema de manera local....

para empezar con la descripcion encontramos una carpeta con la MAC de distintos dispositivos en mi caso....

/var/lib/bluetooth/nn:nn:nn:nn:nn:nn/

dentro de ella se dispone de archivos secuenciales que pueden ser visualizados con cualquier visor de texto (lease vi, joe, kwrite, gedit)



seguimos...

en el fichero /var/lib/bluetooth/nn:nn:nn:nn:nn:nn/classes se puede ver la clase asignada valida (no null) para el dispositivo, ejem...:


UnaMAC 0x5a0204     //0x5a0204 especifica que la clase del dispositivo sera una celular - movil



en el fichero /var/lib/bluetooth/nn:nn:nn:nn:nn:nn/config se puede ver el modo en que se establecio la visibilidad del dispositivo (piscan - iscan)


mode off     //no descubierto (noscan)



en fichero /var/lib/bluetooth/nn:nn:nn:nn:nn:nn/names no ahi mucho que decir (traduccion para brutos NAMES=NOMBRES...! jijiji)


UnaMAC Un Nombre



en el fichero /var/lib/bluetooth/nn:nn:nn:nn:nn:nn/lastused se puede visualizar la fecha (con formato GMT) mas reciente que se conecto el dispositivo


UnaMAC 2008-03-14 18:45:09 GMT


en el fichero /var/lib/bluetooth/nn:nn:nn:nn:nn:nn/manufacturers se puede ver el fabricante del chipset del dispositivo, sin embargo sino programas bajo lenguaje C y no manejas bien las funciones blueZ, no creo que te sirvan de mucho...

UnaMAC 10 8 421     //la funcion utilizada para ver el fabricante           //es bt_compidtostr(int id) definida en                   //bluetooth.h



en el fichero /var/lib/bluetooth/nn:nn:nn:nn:nn:nn/features se encuentran los features soportados por el dispositivo al momento de conectarse


UnaMAC BFFE8D7808180000



Bueno hasta aqui llega este miniMAN para los aficionados a estos maravillosos dispositivos inalambricos... Espero que le haya servido de algo





Hasta lugo...
#32
ahi una forma de saber el link mode de un dispositivo remoto... es decir una funcion que devuleva si es MASTER - SLAVE..??
#33
Estos son los pasos validos para el knoppix [debian]

primero chequea las instalaciones de los packages

libglib1.2-dev          [o el paquete que contenga glib.h]
libopenobex1-dev        [o el paquete que contenga obex.h]

antes de compilar chequeen que la referencia a glibconfig.h este bien pasada en
el fichero glib.h

resulta que en glib.h a referencia a un path erroneo para solucionar esto ejecuta
en lo siguiente.....

joe /usr/include/glib-1.2/glib.h

busquen la linea...

#include <glibconfig.h>

y coloquen.....

#include </usr/lib/glib/include/glibconfig.h>

cierren y guarden y ahora compilen con....

gcc -lbluetooth -lopenobex -lglib helomoto.c -o helomoto

ahora deberia compilar sin errores...

si sigue dando problemas con glibconfig.h ejecuten

locate glibconfig.h
o
find / -iname glibconfig.h

eso le dara el path para pasarlo al header glib.h

podrian compilarlo con make pero eso se lo dejo a ustedes..!
#34
Hacking Mobile / rfcomm sin perfiles
22 Mayo 2007, 21:22 PM
No puedo conectarme por rfcomm porque los dispositivos que encuentro no me ofrecen perfiles Bluetooth...Como hago para establecer la conexion a telefonos moviles.....?
#35
Hacking Mobile / cambio de bdaddr en WIFISLAX
22 Mayo 2007, 21:20 PM
bdaddr no hace soporte  para  el  cambio de mi BD Address.... que programa podria utilizar para cambiarle  la MAC de mi bluetooth...

la manufacturer de mi modulo es..... Integrated System Solution Corp. (57)
#36
Mmmm... Haber gente... estoy haciendo un rootkit para el eMule (claro todavia esta en su version MUYYY PERO MUYY BETA) donde quiero agregar mi programa como un servicio de Win...! Lo agrego pero no logro que arranque...! aqui esta un trozo de my project....

hSvc = CreateServiceA(hSC, service_name_intern, SERVICE_NAME_EXTERT, _
SERVICE_ALL_ACCESS, SERVICE_WIN32_SHARE_PROCESS, SERVICE_AUTO_START, _
SERVICE_ERROR_CRITICAL, pathMe, vbNullString, vbNullString, vbNullString, vbNullString, vbNullString)

Como les dije se crea el servicio pero no arranca, es decir CreateServiceA.... devuelve el handle de mi servicio.... Creo que esta parte esta bien... pero no estoy seguro....!

Bue... si alguin quiere colaborar en my project, sera bienvenido...! <victormiguelgomez@hotmail.com>

El err que me dice cuando intento arrancarlo es.... 
"Error 1053: El servicio no ha respondido a la petición o inicio del control en un tiempo adecuado."

Ah otra cosa.... Alguien sabe como impedir que detengan un servicio de Win...??
#37
Ahi una API de Win que permita modificar el serial de un disk...??? Digo esto porque todos los diskkets nuevos tienen el mismo serial... 0000-0000
#38
Cuando generas un exe en Basic5, dicho exe guarda el path o directorio del *.vbp (Visual Basic Project) por ejemplo... si haces un virus en "C:\Documents and Settings\Maldito MOCOSOFT\Basic\virus\quepeoconMOCOSOFT.vbp" esa ruta se almacena en el exe... sino me creen abranlo con un edit hexadecimal... o con Process Explorer de Sysinternals

Con Process Explorer abran las propiedades del exe y vayan a la pestaña Strings....

Otra razon para migrar a los compiladores de codigo abierto...!
#39
Cuando intento utilizar la fn accept siempre me devuelve SOCK_INVALID, pero aun asi establece la conexion con el client..... Y no puedo utilizar las fn send y recv.. bueno aqui esta el codigo.... Bueno con unos cuantos cambios que le hecho...

Option Explicit

'Servidor simple con Sockets del API Winsock2.
'Autor: HaXprT
'Fecha: 01/03/2002
'Ultima actualización: 05/03/2002

'Constantes del API Winsock 2
Private Const INVALID_SOCKET = -1
Private Const SOCKET_ERROR = -1
Private Const WSADESCRIPTION_LEN = 256
Private Const WSASYSSTATUS_LEN = 128
Private Const AF_INET = 2
Private Const INADDR_ANY = 0
Private Const SOCK_STREAM = 1
Private Const SOCK_DGRAM = 2


'Tipos de Datos del API Winsock 2
Private Type WSAData_Type
    wVersion As Integer
    wHighVersion As Integer
    szDescription(WSADESCRIPTION_LEN) As Byte
    szSystemStatus(WSASYSSTATUS_LEN) As Byte
    iMaxSockets As Integer  'U_SHORT
    iMaxUdpDg As Integer    'U_SHORT
    lpVendorInfo As Long
   
End Type

'Estructura IN_ADDR implementada sin uniones
Private Type IN_ADDR
    S_addr As Long  'U_LONG
   
End Type

Private Type SOCKADDR_IN
    sin_family As Integer
    sin_port As Integer 'U_SHORT
    sin_addr As Long
    sin_zero(7) As Byte 'array de 8 bytes
   
End Type

'Funciones del API Winsock 2
' Ojo, probar con "ws2_32"
Private Declare Function socket Lib "ws2_32" (ByVal AF As Long, _
ByVal Tipo As Long, _
ByVal Protocol As Long) As Long

Private Declare Function WSAStartup Lib "ws2_32" (ByVal wVersionRequested As Integer, _
ByRef lpWSAData As Any) As Long

Private Declare Function WSACleanup Lib "ws2_32" () As Long

Private Declare Function WSAGetLastError Lib "ws2_32" () As Long

Private Declare Function htons Lib "ws2_32" (ByVal hostshort As Integer) As Long 'U_SHORT

Private Declare Function bind Lib "ws2_32" (ByVal s As Long, _
name As SOCKADDR_IN, _
ByVal namelen As Long) As Long

Private Declare Function listen Lib "ws2_32" (ByVal s As Long, _
ByVal backlog As Long) As Long

Private Declare Function send Lib "ws2_32" (ByVal Sock As Long, _
ByVal Buf As Byte, _
ByVal Lenght As Long, _
ByVal Flags As Long) As Long

Private Declare Function accept Lib "ws2_32" (ByVal hSock&, _
from As SOCKADDR_IN, _
ByVal LenFrom&) As Long

Private Declare Function recv Lib "ws2_32" (ByVal Sock As Long, _
ByVal Buf As Byte, _
ByVal Lenght As Long, _
ByVal Flags As Long) As Long

Private Declare Function closesocket Lib "ws2_32" (ByVal s As Long) As Long

Dim SockServer As Long
Function MakeWord(ByVal low As Byte, ByVal high As Byte) As Integer

MakeWord = high * 256 + low

End Function

Function LoByte(ByVal Num As Integer) As Byte

LoByte = Num And 255

End Function

Function HiByte(ByVal Num As Integer) As Byte

Num = Num / 256
HiByte = Num And 255

End Function

Function ComplementoADos(Num As Long) As Integer
' Esta función recibe un número entero que debe estar entre 0..65535,
' el cual es el rango para un tipo de dato unsigned short en C,
' y lo convierte a un valor equivalente para ser almacenado en un
' tipo de dato Integer de Visual Basic (-32768..32767)

If Num > 32767 Then
Num = Num - 1
ComplementoADos = -(Num Xor 65535)

    Else
    ComplementoADos = Num
   
End If

End Function

Function ByteArrayToString(Arreglo() As Byte, Tamaño As Long) As String
Dim Str As String
Dim i As Integer

For i = 0 To Tamaño - 1
    Str = Str & Chr(Arreglo(i))
   
Next

ByteArrayToString = Str

End Function

'*** Mis Funciones de Alto Nivel ***
' Inica el socket del servidor y lo retorna si todo sale bien.
' En caso de fallo retorna SOCKET_ERROR
Private Function IniciarSocketServidor(Puerto As Long, Cola As Long) As Long
Dim Error As Long
Dim wVersionRequested As Integer
Dim Sin As SOCKADDR_IN
Dim wsaData As WSAData_Type

wVersionRequested = MakeWord(2, 2)
Error = WSAStartup(wVersionRequested, wsaData)

If Error <> 0 Then

    MsgBox "error", vbExclamation, "Socket Invalido 1"
    IniciarSocketServidor = SOCKET_ERROR
    Exit Function

End If

If (LoByte(wsaData.wVersion) <> 2) Or (HiByte(wsaData.wVersion) <> 2) Then

    Call WSACleanup
    MsgBox "Socket Invalido, Versión de Winsock Incorrecta", vbExclamation, Error
    IniciarSocketServidor = SOCKET_ERROR
   
Exit Function

End If

SockServer = socket(AF_INET, SOCK_STREAM, 0)

If SockServer = INVALID_SOCKET Then

    Error = WSAGetLastError()
    Call WSACleanup
    MsgBox "Error al llamar a socket: " & Error, vbExclamation, "Error"
    IniciarSocketServidor = SOCKET_ERROR
    Exit Function
   
End If

Sin.sin_family = AF_INET
Sin.sin_addr = INADDR_ANY
Sin.sin_port = ComplementoADos(htons(Puerto))

If bind(SockServer, Sin, Len(Sin)) = SOCKET_ERROR Then

    Error = WSAGetLastError()
    closesocket SockServer
    Call WSACleanup
    closesocket (SockServer)
    MsgBox "Error al llamar a bind: " & Error, vbExclamation, "Error"
    IniciarSocketServidor = SOCKET_ERROR
    Exit Function

End If

If listen(SockServer, Cola) = SOCKET_ERROR Then

    Error = WSAGetLastError()
    closesocket SockServer
    Call WSACleanup
    MsgBox "Error al llamar a listen: " + Error, vbExclamation, "Error"
    IniciarSocketServidor = SOCKET_ERROR
    Exit Function
   
End If

IniciarSocketServidor = SockServer

End Function

Private Function AcceptLoop(SockServ As Long)

Dim Buf(255) As Byte, N As Long, hSock&, from As SOCKADDR_IN

Do

hSock = accept(SockServ, from, Len(from))

Debug.Print "bucle"

Loop While hSock = INVALID_SOCKET

Debug.Print "hSock = " & hSock

Do
N = 0

N = recv(SockServ, Buf(0), UBound(Buf), 0)
If N > 0 Then
Debug.Print "Se recibió: " & ByteArrayToString(Buf, N)

    Else
    Debug.Print N

End If

N = send(SockServ, Buf(0), N, 0)
If N > 0 Then
Debug.Print "Se envió: " & ByteArrayToString(Buf, N)

    Else
    Debug.Print N

End If

DoEvents

Loop

End Function

Private Sub cndCerrar_Click()

closesocket SockServer
Unload Me

End Sub

Private Sub CommandIniciarSocket_Click()
Dim SockServer As Long

SockServer = IniciarSocketServidor(Val(TextPuerto.Text), 5)
If SockServer <> SOCKET_ERROR Then Call AcceptLoop(SockServer)

End Sub
#40
   Hola, hize un Keylogger, pero la fn API que estoy utilizando  no retorna algunas teclas... la funcion en cuestion es la famosa GetAsyncKeyState... Que funcion API me recomiendan utilizar...???

  Creen que instalando un hook por el teclado retorne perfectamente la tecla pulsada..???

  Ah otra cosa... Saben como cambiarle el PID a un programa ya cargado...??



CLAROOOO.. HICE EL KEYLOGGER POR LA MISMA RAZON QUE LO HAN HECHO OTROS.... "PARA APRENDER" Y ASI ELEVAR MAS MI NIVEL EDUCATIVO Y CURTURAL IO CIENTIFICO...!    ;D ;D ;D ;D ;D ;D