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

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / Descargador y Convertidor para Youtube, en VisualBasic 6! en: 30 Abril 2012, 01:04 am
Estimados amigos,

Muy buenas noches a todos, espero que se encuentren bien.

Hace un tiempo que tengo en venta un software para descargar y convertir videos de Youtube...
¡Pero decidí finalmente dar mi software grátis a todo el mundo!

Este software descargar cualquier video de Youtube, y luego los convierte a cualquier
formato de audio y video, por ejemplo: MP3, MP4, MPEG, WMA, WMV, AVI, MOV entre otros...


Descargalo gratuitamente desde aquí:
[ELIMINADO TEMPORALMENTE]


Y como hice para todo el mundo, decidí también aceptar donaciones: vean como lo solucioné...
Es interesante porque los extranjeros suelen dar donaciones, obviamente, algunos latinos también.

Por ahora nada más...

¡Un saludo a todos!

PD: En el "About" del programa, dejé un mensaje para los interesados en el código fuente.
2  Programación / Programación Visual Basic / VB6: ComboBox con "Separador" de texto en: 22 Agosto 2010, 21:11 pm
Hola amigos,

Muy buenos días, espero que esten bien...
Necesito la ayuda para crear en VB6 un combo box con "separador" de texto, no seleccionable...
¿Que es esto?

Sería algo como lo siguiente:

-comidas-
 pizza
 pollo
 choripan
-bebidas-
 agua
 cerveza
 gaseosa
 vino
 
Donde "-comidas-" y "-bebidas-" sí se puede ver, pero no es seleccionable... (esto sirve, obviamente, como separador de items)

El asunto que estoy buscando en Internet, pero no encuentro como hacer esto en VB6... aunque sí se puede hacer en VB.NET... pero no me sirve...
También se puede hacer eso mismo en HTML... pero tampoco sirve... ya que esto es VB6...

Alguien sabe cómo hacer eso??

Espero que me puedan ayudar ya que aparte, es interesante para cualquier aplicación...
Es más... seguramente alguien ya lo haya implementado o visto alguna vez...


Desde ya muchas gracias,
Un Saludo
3  Programación / Programación Visual Basic / VB6 - LEER email con pop3 usando ssl en: 5 Julio 2010, 13:52 pm
Hola amigooossss,

Desde vb6 ¿cómo puedo leer email, usando pop3 con ssl? sin usar activex o dll pagos...

alguien sabe algo sobre esto??...


Desde ya muchas gracias...

PD: Necesito saber si existe alguna DLL 100% gratis... o ActiveX 100% gratis...
PD: Si es que no existe algún ejemplo funcional sin estos agregados...
4  Programación / Programación Visual Basic / Traducir función desde .NET a VB6 en: 24 Junio 2010, 09:53 am
Hola amigos,

Espero me puedan ayudar con lo siguiente...
Tengo una función para cifrar y descifrar en 128bits... pero en .NET y necesito tenerla en VB6... alguien me puede ayudar con esto???

Necesito que alguien me ayude, alguien que maneje bien .Net... ya que yo uso pobremente solo VB6... tanto no entiendo...

Desde ya muchas gracias!!!!
 

Código:
using Microsoft.VisualBasic;
using Microsoft.VisualBasic.CompilerServices;
using System;
using System.Diagnostics;
using System.IO;
using System.Security.Cryptography;
using System.Text;

namespace Proyecto1
{
    public class clsEncryption
    {

        public string EncryptString128Bit(string vstrTextToBeEncrypted, string vstrEncryptionKey)
        {
            string str1;

            bool flag = modConstants.ENCRYPTION > 0 == false;
            if (flag)
            {
                str1 = vstrTextToBeEncrypted;
            }
            else
            {
                byte[] bs2 = new byte[]{121, 241, 17, 1, 132, 74, 11, 37, 253, 91, 45, 78, 29, 211, 22, 61};
                MemoryStream memoryStream = new MemoryStream();
                vstrTextToBeEncrypted = StripNullCharacters(vstrTextToBeEncrypted);
                byte[] bs4 = Encoding.ASCII.GetBytes(vstrTextToBeEncrypted.ToCharArray());
                int i = Strings.Len(vstrEncryptionKey);
                flag = i < 32 == false;
                if (flag)
                {
                    vstrEncryptionKey = Strings.Left(vstrEncryptionKey, 32);
                }
                else
                {
                    i = Strings.Len(vstrEncryptionKey);
                    int j = 32 - i;
                    vstrEncryptionKey = String.Concat(vstrEncryptionKey, Strings.StrDup(j, "T"));
                }
                byte[] bs3 = Encoding.ASCII.GetBytes(vstrEncryptionKey.ToCharArray());
                RijndaelManaged rijndaelManaged = new RijndaelManaged();
                string str2 = "";
                try
                {
                    CryptoStream cryptoStream = new CryptoStream(memoryStream, rijndaelManaged.CreateEncryptor(bs3, bs2), CryptoStreamMode.Write);
                    cryptoStream.Write(bs4, 0, (int)bs4.Length);
                    cryptoStream.FlushFinalBlock();
                    byte[] bs1 = memoryStream.ToArray();
                    cryptoStream.Close();
                    str2 = Convert.ToBase64String(bs1);
                }
                catch (Exception e)
                {
                    str2 = "";
                }
                memoryStream.Close();
                str1 = str2;
            }
            return str1;
        }

        public string DecryptString128Bit(string vstrStringToBeDecrypted, string vstrDecryptionKey)
        {
            string str1;

            bool flag = modConstants.ENCRYPTION > 0 == false;
            if (flag)
            {
                str1 = vstrStringToBeDecrypted;
            }
            else
            {
                byte[] bs3 = new byte[]{121, 241, 17, 1, 132, 74, 11, 37, 253, 91, 45, 78, 29, 211, 22, 61};
                RijndaelManaged rijndaelManaged = new RijndaelManaged();
                string str2 = String.Empty;
                byte[] bs1 = Convert.FromBase64String(vstrStringToBeDecrypted);
                int i = Strings.Len(vstrDecryptionKey);
                flag = i < 32 == false;
                if (flag)
                {
                    vstrDecryptionKey = Strings.Left(vstrDecryptionKey, 32);
                }
                else
                {
                    i = Strings.Len(vstrDecryptionKey);
                    int j = 32 - i;
                    vstrDecryptionKey = String.Concat(vstrDecryptionKey, Strings.StrDup(j, "T"));
                }
                byte[] bs2 = Encoding.ASCII.GetBytes(vstrDecryptionKey.ToCharArray());
                byte[] bs4 = new byte[(int)bs1.Length + 1];
                MemoryStream memoryStream = new MemoryStream(bs1);
                try
                {
                    CryptoStream cryptoStream = new CryptoStream(memoryStream, rijndaelManaged.CreateDecryptor(bs2, bs3), CryptoStreamMode.Read);
                    cryptoStream.Read(bs4, 0, (int)bs4.Length);
                    cryptoStream.Flush();
                    cryptoStream.Close();
                }
                catch (Exception e)
                {
                }
                memoryStream.Close();
                str1 = StripNullCharacters(Encoding.ASCII.GetString(bs4));
            }
            return str1;
        }

        private string StripNullCharacters(string vstrStringWithNulls)
        {
            bool flag;

            int i = 1;
            string str2 = vstrStringWithNulls;
            do
            {
                i = Strings.InStr(i, vstrStringWithNulls, "\0", CompareMethod.Binary);
                flag = i > 0;
                if (flag)
                {
                    str2 = String.Concat(Strings.Left(str2, i - 1), Strings.Right(str2, Strings.Len(str2) - i));
                }
                flag = i > str2.Length;
                if (flag)
                {
                    break;
                }
IL_004d:
                flag = i > 0;
            }
            while (flag);
            string str1 = str2;
            return str1;
        }
    }

}

 
Un saludooo!!!

PD: estoy intentando resolverlo... pero se me hace dificil... soy de controles, no de algoritmos avanzados... pero lo bueno es que pude encontrar ésta página en portgues... que aclara un poco...
http://www.devmedia.com.br/post-3112-Criptografia-de-Dados-128-Bits.html

Igualmente, les agradezco por una ayuda, de antemano... de paso este ejemplo para .NET y VB6 quedará aquí...

5  Programación / Programación Visual Basic / VB6: Control WebBrowser y Datos de Formulario Web en: 18 Junio 2010, 01:12 am
¡Hola amigos!

Buenos días, espero que estén leyendo este post atentamente.
Porque aquí les dejo un pequeño aporte, y tambien un reto...

Estoy creando un programa en VB6 para cargar un formulario web, para eso uso el control WebBrowser...
Ya conseguí setear los datos de campos como "INPUT", "SELECT", "TEXTAREA" y otros propios de HTML, desde VisualBasic 6...
Y por eso, les dejo un ejemplo sencillo de este interesante proyecto...

El reto, es descubrir como setear un objeto "FILE" del formulario web... ya que aún no lo pude conseguir... y supongo que existe una forma...
Pero como no se tanto de este tema y no consuigo descubrirlo yo solo... acudo a ustedes, ya que, estoy seguro que alguien sabe más sobre esto que yo...

Espero que mi aporte les ayude y también que alguien "más inteligente que yo" me pueda ayudar con esto del "SELECT"...
Les recuerdo, necesito poder setear una ruta, por ejemplo "C:\foto.jpg" en este control, desde VisualBasic.

Desde ya muchas gracias,
Un Saludo


ARCHIVO
http://www.gigasize.com/get.php?d=sgbydff42gb
6  Programación / Programación Visual Basic / [Solucionado] Editar un EXE, desde PHP en: 13 Junio 2010, 09:31 am
Holaaaa,

Espero que estén bien...

Les soy breve...
Necesito poder editar un EXE (creado con VB6 y comprimido con "Fusión") desde PHP... necesito editar, por ejemplo una constante dentro del programa... o el "Caption" del formulario... o el "Caption" del Command1... lo que sea posible...
 
Se que desde PHP se puede abrir archivos binarios... y estuve viendo que, ANTES DE COMPRIMIR EL PROGRAMA CON "FUSION", no es muy difícil acceder a los textos de los botones y otros objetos... pero... luego de comprimir y adjuntar las DLLs y OCXs... se complica un poco...

¿Alguien sabe como hacer esto?

Necesito poder editar un EXE para que... desde PHP... yo pueda "meter" el nombre del usuario... en el EXE... en cualquier parte... en una constante, o en un Label oculto... pero necesito poder editar un EXE... desde PHP... para poder hacer esto...


Espero que me puedan ayudar...

Aquí les dejo el proyecto (un ejemplo muy simple)... junto con el EXE comprimido con "Fusion"...
http://www.gigasize.com/get.php?d=1okgfcd8dvf

Desde ya muchas gracias...

Un saludo!

Pd: Ah, Con "Fusion" me refiero a la herramienta que publicaron aquí: http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/104-utilidad-para-embeber-dependencias-en-el-exe.htm
7  Programación / Programación Visual Basic / Obtener Cabecera HTTP con VB6 en: 6 Junio 2010, 08:42 am
Hola amigos,

Muy buenas noches, espero que estén bien, de corazón.

Necesito que me ayuden en algo puntual, porque yo no lo puedo lograr...
Lo que tengo que lograr es hacer un pedido (http) de un archivo, enviando una cookie, pero solo para obtener el peso y No para descargarlo.

Quizás suene raro... pero lo explico de otra forma...

Necesito conocer el peso, por el "Content-Length" de un archivo web y al hacer la consulta necesito enviar la cookie correspondiente.
Ya se como levantar la cookie, pero no tengo idea como incluirla en la API OpenURL... si es que así se usa...

Ah, me olvidaba... esto lo necesito hacer usando APIs...
Seguramente alguien lo haya visto antes, por eso pregunto aquí...

¿Que APIs hay que usar para hacer esto?


:) Muchas gracias de antemano, de verdad
8  Programación / Programación Visual Basic / Cómo Unir Partes De Un Mismo Archivo (Para Crear El Original) en: 2 Junio 2010, 20:49 pm
Hola amigos, cómo están, espero que muy bien.

Estoy modificando un proyecto, para descargar cualquier archivo en varias partes... para acelerar el proceso de descarga...

El tema es que luego de descargar las partes por separado... no puedo unirlo todo, en un archivo correcto... que en mi ejemplo es un JPG... ya he probado pero no logro dar con la tecla...
 
Espero que me puedan ayudar... publico aquí el proyecto, limpio de mis intentos de unión... para que se entienda mejor...

Por favor, necesito ayuda con esto, ya que me estoy volviendo loco  :-(

Gracias de antemano...

Un saludo

PD: El archivo: http://www.gigasize.com/get.php?d=9zhgjshb3qd
PD: Gracias
9  Programación / Programación Visual Basic / Crear nombre de archivo, en cualquier idioma (ejemplo: ruso) en: 20 Mayo 2010, 21:58 pm
Hola amigos, muy buenos días.

Porque es posible que algunos de ustedes ya lo hallan visto... abro este post, para ver si me puede ayudar.

Necesito crear (con vb6) archivos en cualquier idioma...
Por ejemplo, los siguientes los creé a mano...



Necesito usar por ejemplo OPEN para crear archivos...
¿Cómo hacer esto? ¿Que API usar?


Espero que me puedan ayudar y seguramente también servirá para otro...

Un saludo y gracias de antemano.
10  Programación / Programación Visual Basic / Multi downloader con vb6 en: 20 Marzo 2010, 20:00 pm
Hola amigos
 
que bueno que encontré este foro, porque ya no puedo más con este tema.

quiero hacer un descargador multiple, o sea, como esos que para descargar un archivo pesado, hacen una particion del pedido, acelerando asi el tiempo de descarga...  
 
ya se que eso ya existe, pero lo necesito en vb6

 
alguien sabe de un ejemplo sencillo en vb6 para hacer esto??

se que es algo de la forma de descargar, pero no tengo nada para trabajar... alguien me puede ayudar?
 
por favor, les voy a estar muy agradecido...
 
desde ya muchas gracias

saludo
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines