Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Julio 24, 2008, 07:47:06
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Hack Novato  |  Troyanos y virus (Moderadores: -Erick-, Angelus_7722)  |  Tema: Troyano: Programadores 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: 1 [2] Ir Abajo Imprimir
Autor Tema: Troyano: Programadores  (Leído 1536 veces)
The Shadow
Moderación
Colaborador
*****
Desconectado Desconectado

Mensajes: 754


Fucking mnemonic c0d1n6!

shadow@el-hacker.org
Ver Perfil Email
« Respuesta #25 en: Febrero 01, 2008, 02:56:01 »
weno ... aki algunas cosas sobre manejo de achivos en asm:

Código:
  ; crear nuevo archivo con parametro leer/escribir
    fcreate MACRO filename
      invoke CreateFile,reparg(filename),GENERIC_READ or GENERIC_WRITE,
                        NULL,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL
      EXITM <eax>       ;; regresa el handle
    ENDM

  ;eliminar archivo
    fdelete MACRO filename
      invoke DeleteFile,reparg(filename)
      EXITM <eax>
    ENDM


  ;abrir un archivo con permisos rw
    fopen MACRO filename
      invoke CreateFile,reparg(filename),GENERIC_READ or GENERIC_WRITE,
                        NULL,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL
      EXITM <eax>       ;; regresa el handle
    ENDM

  ;cerrar archivo
    fclose MACRO arg:REQ
      invoke CloseHandle,arg
    ENDM

  ; leer datos de un archivo abierto en el buffer especifico
    fread MACRO hFile,buffer,bcnt
      LOCAL var
      .data?
        var dd ?
      .code
      invoke ReadFile,hFile,buffer,bcnt,ADDR var,NULL
      mov eax, var
      EXITM <eax>       ;; regresa los bytes leidos
    ENDM

  ; escribir datos en el buffer de memoria del archivo especifico
    fwrite MACRO hFile,buffer,bcnt
      LOCAL var
      .data?
        var dd ?
      .code
      invoke WriteFile,hFile,buffer,bcnt,ADDR var,NULL
      mov eax, var
      EXITM <eax>       ;; regresa los bytes escritos
    ENDM

  ; establece la posicion del puntero del archivo
    fseek MACRO hFile,distance,location
      IFIDN <location>,<BEGIN>
        var equ <FILE_BEGIN>
      ELSEIFIDN <location>,<CURRENT>
        var equ <FILE_CURRENT>
      ELSEIFIDN <location>,<END>
        var equ <FILE_END>
      ELSE
        var equ <location>
      ENDIF
      invoke SetFilePointer,hFile,distance,0,var
      EXITM <eax>               ;; regresa el offset del fichero
    ENDM

  ; establece el final de un archivo al q apunta el puntero
    fseteof MACRO hFile
      invoke SetEndOfFile,hFile
    ENDM

  ; regresa el tamaño de un fichero abierto
    fsize MACRO hFile
      invoke GetFileSize,hFile,NULL
      EXITM <eax>
    ENDM
En línea




Reglamento del Foro     Linux  Registered User #473016
skullmaster-Back-
Visitante
« Respuesta #26 en: Febrero 01, 2008, 02:59:41 »
voy a ver que tal el code, por cierto por hay habia visto un joiner creado en VB y el stub en asm la ventaja es que pesa menos, si te interesa busco el source porque lo postearon
si lo quieres claro! Wink para que lo analizes!...

Salu2's! Cool
En línea
The Shadow
Moderación
Colaborador
*****
Desconectado Desconectado

Mensajes: 754


Fucking mnemonic c0d1n6!

shadow@el-hacker.org
Ver Perfil Email
« Respuesta #27 en: Febrero 01, 2008, 03:01:53 »
pos claro man!..... postea a ver q tal?
En línea




Reglamento del Foro     Linux  Registered User #473016
skullmaster-Back-
Visitante
« Respuesta #28 en: Febrero 01, 2008, 03:14:37 »
ya te lo envie por IM, otra cosa creo que para darle un toque de experto al troyano hay que usar
unos codes que cuando peuda posteo para dar efecto XP a todo y quede chulo! Cool

Salu2's! Cool
En línea
-Adriano-
Miembro
*****
Desconectado Desconectado

Mensajes: 116

ZZZzzz...


Ver Perfil
« Respuesta #29 en: Marzo 08, 2008, 04:12:56 »
hola a todos solamente queria preguntar/comentarles

como andan con lo del proyecto por ahi lei q falta asignar lo de las unidades extraibles...
y lo de la cam todavia no estaba (no se si sea info actulizada) pero si quieren lo hago yo los unidades
y lo de la cam lo esta haciendo skulmaster123 pero si quiere le ayudo (yo ya habia hecho algo asi)
En línea
skullmaster-Back-
Visitante
« Respuesta #30 en: Marzo 08, 2008, 11:58:01 »
Citar
como andan con lo del proyecto por ahi lei q falta asignar lo de las unidades extraibles...
y lo de la cam todavia no estaba (no se si sea info actulizada) pero si quieren lo hago yo los unidades
y lo de la cam lo esta haciendo skulmaster123 pero si quiere le ayudo (yo ya habia hecho algo asi)

hola pues lo de las unidades extraibles no es tan dificl tedioso es meterlo! Wink lo de la cam lo estoy volviendo a hacer! por lo de mi pc vieja!
Pero cualquier cosa, te lo podemos asignar! Wink

EDITADO: Se me olvido decirte, enviale los codes que te tocaban de nuevo a ANYDOOM! Wink pasate por creemos un troyano!

Salu2's! Cool
« Última modificación: Marzo 09, 2008, 12:00:52 por skullmaster123 » En línea
The Shadow
Moderación
Colaborador
*****
Desconectado Desconectado

Mensajes: 754


Fucking mnemonic c0d1n6!

shadow@el-hacker.org
Ver Perfil Email
« Respuesta #31 en: Abril 03, 2008, 07:47:42 »
BUENAS!!!! ... en cuanto a mis asignaciones ... shell remota solo me falta entregar y el crypter ... bueno ese codigo a pasado por tantas cosas q .... para q les cuento! XD ... solo ay q decir q aun sta en proceso ..


Saludos!
En línea




Reglamento del Foro     Linux  Registered User #473016
franchescoly
Recien Llegado
*
Desconectado Desconectado

Mensajes: 1


Ver Perfil Email
« Respuesta #32 en: Mayo 20, 2008, 01:11:45 »
espero q les sirva este codigo



Private Sub Command1_Click()
'buscar
Data1.Recordset.FindFirst "codigo = " & "'" & Text1.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox ("Codigo no Registrado....")
Text1.Enabled = False
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
Text2.SetFocus
Else
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Text2.Text = Data1.Recordset!codigo
Text3.Text = Data1.Recordset!descripcion
Text4.Text = Data1.Recordset!modelo
Text5.Text = Data1.Recordset!marca
Text6.Text = Data1.Recordset!costo
Text7.Text = Data1.Recordset!venta
Text8.Text = Data1.Recordset!cantidad
Text9.Text = Data1.Recordset!proveedor
End If
End Sub

Private Sub Command2_Click()
'cancelar
h = MsgBox("Desea Cancelar la Operacion?", vbYesNo, "Confirme")
If h = vbYes Then
    Form_Load
End If
End Sub

Private Sub Command3_Click()
'guardar
If Text1.Text <> "" Then
Data1.Recordset.AddNew
Data1.Recordset! codigo= Text1.Text
Data1.Recordset!descripcion = Text2.Text
Data1.Recordset!modelo = Text3.Text
Data1.Recordset!marca = Text4.Text
Data1.Recordset!costo = Text5.Text
Data1.Recordset!venta = Text6.Text
Data1.Recordset!cantidad = Text7.Text
Data1.Recordset!proveedor = Text8.Text
Data1.Recordset!fechaing = Text9.Text
Data1.Recordset.Update
Data1.Refresh
Form_Load
End If
End Sub

Private Sub Command4_Click()
Form_Load
Form3.Hide
Form2.Show
End Sub

Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""

Text1.Enabled = True
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""

Text1.Enabled = True
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True

End Sub
En línea
Páginas: 1 [2] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Hack Novato  |  Troyanos y virus (Moderadores: -Erick-, Angelus_7722)  |  Tema: Troyano: Programadores « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC