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

 

 


Tema destacado: Estamos en la red social de Mastodon


  Mostrar Temas
Páginas: 1 2 3 [4]
31  Programación / Programación Visual Basic / Cambiar iconos de ficheros ajenos al proyecto en: 26 Abril 2006, 12:58 pm
He buscado por todos los lados y no encuentro nada necesito canviar en icono de un fichero y no tengo ni idea de como hacerlo ,haber si alguien me puede ayudar.

;D Salu2, WarGhost
32  Programación / Programación Visual Basic / letras de un TextBos de diferentes colores cada una en: 18 Abril 2006, 16:16 pm
para una pregunta tonta pero se puede hacer en visual basic que en un textbox tenga colores diferentes tipo esto

Citar
Error el puerto esta siendo utlizado

eso en un solo textbox.


;D Salu2, WarGhost
33  Programación / Programación Visual Basic / Cliente con muchos Server Conectados?? en: 9 Abril 2006, 22:07 pm
Buenas estoy haciendo una aplicacion que lo que hace es poder conectarnos a varias victimas ala vez con conexion inversa.

pero claro para hacer esto utilizo, por ejemplo el puerto 3541 + index del winsock pero lo que pasa esque claro cuando tienes un router ,hay esta el problema que como no saves que puerto se abrira no se puden quitar el firewall del router.


aber si alguien me puede ayudar


;D Salu2, WarGhost
34  Programación / Programación Visual Basic / Crear una aplicaciones multilenguje con archivo ini?? en: 8 Abril 2006, 17:20 pm
aver si alguien me puede ayudar, comento:

Estoy haciendo un troyano y lo quiero hacerlo multilenguaje pero hacelo con archivos ini tipo prorat asi se pueden hacer mas idiomas con el archivo ya compilado pero lo que pasa esque yo utilizado esto ejemplo:

Modulo:

Código:
Option Explicit
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Function LeerIni(lpFileName As String, lpAppName As String, lpKeyName As String, Optional vDefault) As String
    Dim lpString As String
    Dim LTmp As Long
    Dim sRetVal As String

    If IsMissing(vDefault) Then
        lpString = ""
    Else
        lpString = vDefault
    End If

    sRetVal = String$(255, 0)

    LTmp = GetPrivateProfileString(lpAppName, lpKeyName, lpString, sRetVal, Len(sRetVal), lpFileName)
    If LTmp = 0 Then
        LeerIni = lpString
    Else
        LeerIni = Left(sRetVal, LTmp)
    End If
End Function

Sub GuardarIni(lpFileName As String, lpAppName As String, lpKeyName As String, lpString As String)
    Dim LTmp As Long

    LTmp = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
End Sub

Codigo sacado de elguille

y en el form:

Código:
dim variable
varible1 = LeerIni("C:\español.ini", "Español","Boton1" )

command1.caption = varible1



pero el proble esque si tengo por ejemplo 100 botones hay que definir 100 variable y para un programa grande es un coñazo.


¿Hay alguna forma de no tener que definir tantas variables?

;d salu2
35  Programación / Programación Visual Basic / ecriptador de archivos pesas en: 4 Abril 2006, 14:38 pm
Bueno alguien conoze algun codigo para escriptar archivos de grandes tamaños esque e provado un monton y ni uno todos me dan error.


;D Salu2, WarGhost
36  Programación / Programación Visual Basic / Bocadillos de dialogos en: 29 Marzo 2006, 21:10 pm
Bueno esta es mi pregunta:

¿En visual basic 6 se pueden hacer bocadillos de dialgoso, y si se pueden hacer como?

en delphi si que se puede hacer pero en vb6 ni idea.



;D Salu2, WarGhost
37  Programación / Programación Visual Basic / Como partir un archivo en: 9 Marzo 2006, 21:43 pm
hola me gustaria saver como puedo cojer un archivo de por ejemplo un Giga y partirlo en cachos de 10 megas y que se guarden un un directorio expezificado.


???

saludos, y gracias
38  Programación / Programación Visual Basic / Creando un FTP en Visual Basic by ghost en: 26 Febrero 2006, 17:35 pm
Bueno decidi ponerme a hacer un pequeño tuto de como crear un FTP, tratare de explicarlo lo mejor posible! ;D

Veamos:

Lo primero que nesecitamos es una API (libreria de windows) que nos permita hacer las conexiones,el paso de archivos, y demas comandos que en un cliente de ftp (protocolo de transferencia de archivos) estan presentes.

Ustedes diran ...... y ahora? bueno para eso estoy aqui  :P

usaremos la libreria de windows llamada WININET.dll..... pero porque esa libreria y no otra diran ustedes?

bueno para los que recien empiezan WININET es un módulo que contiene las funciones relacionadas con el internet  usadas por por las aplicaciones de windows.

ahora que ya sabemos que .dll usar, pasemos al desarrollo del programa!
lo primero que hago siempre que desarrollo un soft, es declarar las funciones de la libreria ( creo que todos hacen lo mismo no? jaja  ;D).

para eso creamos un archivo de tipo ".bas" dentro del proyecto!

veamos que funciones nos brinda WININET!

antes que nada le ponemos un nombre no?
Código:
Attribute VB_Name = "modWinInet"
fijense como lo declaran dentro del proyecto ;)

ahora, como debemos declarar las variables, tenemos que poner qu se declaren SI O SI!!
Código:
Option Explicit
ustedes diran y?? eso para que es? ?? jaja, bueno al igual que en el lenguaje ASP, se usa esto para que las variables se puedan usar correctamente

empezemos con las variables......

Código:
Declare Function GetProcessHeap Lib "kernel32" () As Long
Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long
Public Const HEAP_ZERO_MEMORY = &H8
Public Const HEAP_GENERATE_EXCEPTIONS = &H4

y ahora que haces ghost? vos estas loco? dijiste que usemos WININET y me mandas KERNEL32?? ???

naaa no estoy loco (puede qe un poco) , lo que hicimos ahi es inicializar la memoria a 0, dicha funcion se encuentra en esa libreria. tranquilos no me perdi!  :D

Código:
Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" ( _
         hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" ( _
         hpvDest As Long, hpvSource As Any, ByVal cbCopy As Long)

oootraaa veezz esa libreria??? y ahora que me vas a inventar ghost? hee? jajaa,
ahi declaramos la funcion "Copymemory", que sirve para mover un grupo de Lenght bytes desde Source hasta Destination.
si todo muy lindo y "ByVal" ??? q me decis de eso ???
ByVal se utiliza para pasar parámetros a funciones por valor en lugar de por variable. (sino te quedo claro lo lamento, no preguntes tanto  :P)

Código:
Public Const MAX_PATH = 260
Public Const NO_ERROR = 0
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_OFFLINE = &H1000
una simple igualdad si tienen dudas, preguntenme !  °|°


hora y fecha actual codificada en una estructura de 8 bytes!:
Código:
Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type

verificamos que exista el arhivo,su tamaño,fecha de creacion, etc  , en una palabra informacion acerca del archivo:
Código:
Type WIN32_FIND_DATA
        dwFileAttributes As Long
        ftCreationTime As FILETIME
        ftLastAccessTime As FILETIME
        ftLastWriteTime As FILETIME
        nFileSizeHigh As Long
        nFileSizeLow As Long
        dwReserved0 As Long
        dwReserved1 As Long
        cFileName As String * MAX_PATH
        cAlternate As String * 14
End Type
descubrimos si ha ocurrido un error verdadero o simplemente no hay mas archivos:
Código:
Public Const ERROR_NO_MORE_FILES = 18

ahora pasaremos a declarar las funciones de la tan esperada .dll WININET: :o

Código:
Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "encontrarsiguientearchivoA" _
    (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long
    
Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "encontrarprimerarchivoA" _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
      lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long

Public Declare Function FtpGetFile Lib "wininet.dll" Alias "recibirarchivoA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
      ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _
      ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Public Declare Function FtpPutFile Lib "wininet.dll" Alias "enviararchivoeA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
      ByVal lpszRemoteFile As String, _
      ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" _
    (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
inicializamos el uso de win32 en las funciones de internet:
Código:
Public Declare Function InternetOpen Lib "wininet.dll" Alias "abiertoA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Constante del usuario:
Código:
Public Const scUserAgent = "vb wininet"
Utilizar los ajustes del acceso del registro:
Código:
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const INTERNET_INVALID_PORT_NUMBER = 0

Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Const FTP_TRANSFER_TYPE_BINARY = &H1
Public Const INTERNET_FLAG_PASSIVE = &H8000000
Abre una sesión del HTTP para un sitio dado:
Código:
Public Declare Function InternetConnect Lib "wininet.dll" Alias "conectarA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _
ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
                
Public Const ERROR_INTERNET_EXTENDED_ERROR = 12003
Public Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" ( _
    lpdwError As Long, _
    ByVal lpszBuffer As String, _
    lpdwBufferLength As Long) As Boolean

Número del puerto de TCP/IP en el servidor al cual nos vamos a conectar:
Código:
Public Const INTERNET_DEFAULT_FTP_PORT = 21
Public Const INTERNET_DEFAULT_GOPHER_PORT = 70
Public Const INTERNET_DEFAULT_HTTP_PORT = 80
Public Const INTERNET_DEFAULT_HTTPS_PORT = 443
Public Const INTERNET_DEFAULT_SOCKS_PORT = 1080

Public Const INTERNET_OPTION_CONNECT_TIMEOUT = 2
Public Const INTERNET_OPTION_RECEIVE_TIMEOUT = 6
Public Const INTERNET_OPTION_SEND_TIMEOUT = 5

Public Const INTERNET_OPTION_USERNAME = 28
Public Const INTERNET_OPTION_PASSWORD = 29
Public Const INTERNET_OPTION_PROXY_USERNAME = 43
Public Const INTERNET_OPTION_PROXY_PASSWORD = 44
Tipo de servicio para acceder (http,ftp,etc):
Código:
Public Const INTERNET_SERVICE_FTP = 1
Public Const INTERNET_SERVICE_GOPHER = 2
Public Const INTERNET_SERVICE_HTTP = 3

Continua...........

by ghost
fuente:
http://foro.hackerselite.net/index.php?topic=371.0

;D Salu2, WarGhost
39  Programación / Programación Visual Basic / Enviar El sonido del micrófono a través de un Cliente/Servidor??? en: 25 Febrero 2006, 20:10 pm
Este es mi primer post en esta comunidad y me gustaría dar un saludo a todos los usuarios.

Vamos con el tema en concreto, estoy haciendo un Cliente/Servidor y me gustaría ponerle la Función de Espiar el sonido del micrófono, pero no tengo ni idea, Alguien me podría echar una mano por favor?


;D Salu2, WarGhost
Páginas: 1 2 3 [4]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines