elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  para que sirven estas funciones?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: para que sirven estas funciones?  (Leído 1,543 veces)
Sai-To

Desconectado Desconectado

Mensajes: 180


Ver Perfil
para que sirven estas funciones?
« en: 11 Marzo 2008, 05:31 »

hola, bueno lei ciertas cosas y no me quedo muy claro para que sirve estas funciones lo que esta en rojo es lo que no entiendo a ver si me podrian dar una maniot! :P

Open Label1.Caption For Binary As #1 '
        Dim Archivo As String
        Archivo = Space(LOF(1))
        Get #1, , Archivo
    Close #1

bueno no entiendo bien para que hace eso de Space(LOF(1))..

otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?

CD.FileName = ""
CD.Filter = "*.exe|*.exe"
CD.ShowSave
Ruta = CD.FileName
Firma = "[**-_-**]"
SubFirma = "^^_~~_^^"
FileCopy App.Path & "\stub.dll", Ruta

osea porque copia el stub.dll a la Ruta sabiendo que es la ruta de otro archivo?

 Open Ruta For Binary As #1
        Seek (1), LOF(1) + 1
        Put #1, , Firma
        Put #1, , bloq & SubFirma
        Put #1, , "archivo.bat" & SubFirma
        Put #1, , "Windows" & SubFirma
        Put #1, , vision & SubFirma
        Put #1, , Archivo & SubFirma
        Put #1, , bloq2 & SubFirma
        Put #1, , bloq3
    Close #1


para que usa el Sekk con el LOF (se que es el seek pero nose porque lo usa con el LOF)

Bueno espèro no ser un problema para ustedes! y espero que me disculpen!
   


En línea

UKWN

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Re: para que sirven estas funciones?
« Respuesta #1 en: 11 Marzo 2008, 05:33 »

Utiliza a tu nuevo mejor amigo :) MSDN!!

El Space():
http://msdn2.microsoft.com/es-es/library/k6ethaxs(VS.80).aspx

Cuando dice:

Código:
Archivo = Space(LOF(1))

Esta llenando la declaracion Archivo con espacios basado en la longitud del archivo.

Seek():
http://msdn2.microsoft.com/es-es/library/7af2feyt(VS.80).aspx

Código:
Seek (1), LOF(1) + 1

Es para ponerse al final del archivo.

el LOF() significa Length of File :].
http://msdn2.microsoft.com/en-us/library/dtz29k5z(VS.71).aspx

Nota: Hace mucho que no programo en visual basic.


« Última modificación: 11 Marzo 2008, 05:50 por UKWN » En línea

Sancho.Mazorka


Desconectado Desconectado

Mensajes: 480


Gamer & Programador


Ver Perfil WWW
Re: para que sirven estas funciones?
« Respuesta #2 en: 11 Marzo 2008, 13:45 »

Código
  1. Open Label1.Caption For Binary As #1 'Abrimos un archivo con ID 1 (#1)
  2.   Dim Archivo As String 'Creamos una variable para cargar el archivo
  3.   Archivo = Space(LOF(1)) 'Creamos un Buffer con Archivo del tamaño del archivo con ID 1, Space crea tantos espacios (chr(32)) como la longitud del archivo 1 (#1)
  4.   Get #1, , Archivo 'Obtenemos del archivo con ID 1 la cantidad de datos segun el tamaño del Buffer creado anteriormente en Archivo
  5. Close #1 'Cerramos el archivo para volver a poder acceder a el.


otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?
Esto no te lo entendi, si me explicas mejor te lo respondo.

Código
  1. Seek (1), LOF(1) + 1 'Seek busca en el ID que se le indique la posicion que se le indique, en este caso el ID es 1 (#1) y LOF(1) + 1 es porque la cantidad del archivo + 1, es para ir al final del archivo eso.

Espero haber sido claro, sino pregunta!

Sancho.Mazorka    :¬¬
En línea

Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html


~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: para que sirven estas funciones?
« Respuesta #3 en: 11 Marzo 2008, 14:04 »

(estaba deseando usar ese emoticono)

Usa google q viene todo explicado y mira algun tuto para saber manipular archivos ;)

PD - Ese codigo me suena....
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines