Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - jmetin2

#1
Hola amigos, un dia estaba programando en ASM (aun estoy empezando), y se me ocurrio la idea de programar un downloader y dejarlo FUD, pero ahi surgio la pregunta ¿como lo ago?

Entonces pense: "¡Puedo llamar a las API's de forma dinamica!". Como saben las unicas API's que se necesitan son 2: LoadLibrary y GetProcAddress asi que escribi esto:


.386                 ; create 32 bit code
.model flat, stdcall

;;;;; Importar Kernel32 y sus funciones

include     \masm32\include\kernel32.inc
includelib  \masm32\lib\kernel32.lib

.data

USER32  db  "User32",0
Message db  "MessageBoxA",0

.code
  start:
    PUSH offset USER32
    CALL LoadLibrary
    PUSH offset Message
    PUSH EAX
    CALL GetProcAddress

    PUSH 0
    PUSH offset USER32    ;Titulo del mensaje
    PUSH offset USER32    ;Texto del mensaje
    PUSH 0
    CALL EAX
  end start


pero me di cuenta que cuando un AV analize el archivo, se dara cuenta de las cadenas ASCII y si encuentra un patrón de funciones sospechosas pues es mas que seguro que lo detectara como una amenaza.
Fue ahi donde pense que si dejo la variable llena de caracteres al azar y compilo el programa, al abrirlo con un editor hexadecimal puedo ver la cadena que yo escribi, asi que puedo modificarla a placer y al ser ejecutada la variable tomara el valor que yo le asigne con el editor hexadecimal.

bueno a esto me refiero:


.386                 ; create 32 bit code
.model flat, stdcall

;;;;; Importar Kernel32 y sus funciones

include     \masm32\include\kernel32.inc
includelib  \masm32\lib\kernel32.lib

.data

USER32  db  "666666",0
Message db  "11111111111",0

.code
  start:
    PUSH offset USER32
    CALL LoadLibrary
    PUSH offset Message
    PUSH EAX
    CALL GetProcAddress

    PUSH 0
    PUSH offset USER32    ;Titulo del mensaje
    PUSH offset USER32    ;Texto del mensaje
    PUSH 0
    CALL EAX
  end start


Supuestamente el exe no debe de hacer nada, ya que no hay nada que importar, pero al compilar y editar el archivo con un editor hexadecimal se muestra como el exe funciona.







Funciono!



Ahora, si esto lo modificamos un poco y le agregamos unos XOR podriamos modificar y agregar cadenas encriptadas. bueno eso es solo mi punto de vista.

Tambien cabe la posibilidad de insertar codigo (cifrado) en una variable, desencriptarlo y ejecutarlo.

si a alguien le parece y quiere implementar algo, cuanta con toda mi ayuda.

PD: Muy pronto lanzare un [MASM][SRC] Downloader
#2
Scripting / Crackme en batch
10 Junio 2011, 02:58 AM
Espero que lo puedan resolver y no usen las "Batch Injection". Suerte

Código (dos) [Seleccionar]
@echo off
setlocal ENABLEDELAYEDEXPANSION
Title Ofuscacion 1KETI
:menu
echo.
set/p "str=Ingresa la clave correcta: "
set "pim=%str:~0,1%"
set "ele=9"
cls
set "e=%str:0=37%"
set "e=%e:a=10%"
set "e=%e:b=11%"
set "e=%e:c=12%"
set "e=%e:d=13%"
set "e=%e:e=14%"
set "e=%e:f=15%"
set "e=%e:g=16%"
set "e=%e:h=17%"
set "e=%e:i=18%"
set "e=%e:j=19%"
set "e=%e:k=20%"
set "e=%e:l=21%"
set "e=%e:m=22%"
set "e=%e:n=23%"
set "e=%e:ñ=24%"
set "e=%e:o=25%"
set "e=%e:p=26%"
set "e=%e:q=27%"
set "e=%e:r=28%"
set "e=%e:s=29%"
set "e=%e:t=30%"
set "e=%e:u=31%"
set "e=%e:v=32%"
set "e=%e:w=33%"
set "e=%e:x=34%"
set "e=%e:y=35%"
set "e=%e:z=36%"
set "e=%e: =40%"
set "e=%e:.=41%"
call:cont %e%
call:scd %e%
set "f=%pim:0=37%"
set "f=%f:a=10%"
set "f=%f:b=11%"
set "f=%f:c=12%"
set "f=%f:d=13%"
set "f=%f:e=14%"
set "f=%f:f=15%"
set "f=%f:g=16%"
set "f=%f:h=17%"
set "f=%f:i=18%"
set "f=%f:j=19%"
set "f=%f:k=20%"
set "f=%f:l=21%"
set "f=%f:m=22%"
set "f=%f:n=23%"
set "f=%f:ñ=24%"
set "f=%f:o=25%"
set "f=%f:p=26%"
set "f=%f:q=27%"
set "f=%f:r=28%"
set "f=%f:s=29%"
set "f=%f:t=30%"
set "f=%f:u=31%"
set "f=%f:v=32%"
set "f=%f:w=33%"
set "f=%f:x=34%"
set "f=%f:y=35%"
set "f=%f:z=36%"
set "f=%f: =40%"
set "f=%f:.=41%"
set/a e=%e% * (%f% + %e:~-1%)
call:reverse %e%
call:mot %e%
set "e=%e:a=10%"
set "e=%e:b=11%"
set "e=%e:c=12%"
set "e=%e:d=13%"
set "e=%e:e=14%"
set "e=%e:f=15%"
set "e=%e:g=16%"
set "e=%e:h=17%"
set "e=%e:i=18%"
set "e=%e:j=19%"
set "e=%e:k=20%"
set "e=%e:l=21%"
set "e=%e:m=22%"
set "e=%e:n=23%"
set "e=%e:o=24%"
set "e=%e:p=25%"
set "e=%e:q=26%"
set "e=%e:r=27%"
set "e=%e:s=28%"
set "e=%e:t=29%"
set "e=%e:u=30%"
set "e=%e:v=31%"
set "e=%e:w=32%"
set "e=%e:x=33%"
set "e=%e:y=34%"
set "e=%e:z=35%"
set "e=%e:0=01%"
set "e=%e:1=10%"
set "e=%e:2=100%"
set "e=%e:3=101%"
set "e=%e:4=110%"
set "e=%e:5=111%"
set "e=%e:6=1000%"
set "e=%e:7=1001%"
set "e=%e:8=1010%"
set "e=%e:9=1011%"
set "e=%e:01=a%"
set "e=%e:10=b%"
set "e=%e:11=c%"
set "e=%e:00=d%"
set "e=%e:1=u%"
set "e=%e:0=v%"
set "e=%e:aa=e%"
set "e=%e:ab=f%"
set "e=%e:ac=g%"
set "e=%e:ad=h%"
set "e=%e:ba=i%"
set "e=%e:bb=j%"
set "e=%e:bc=k%"
set "e=%e:bd=l%"
set "e=%e:ca=m%"
set "e=%e:cb=n%"
set "e=%e:cc=o%"
set "e=%e:cd=p%"
set "e=%e:da=q%"
set "e=%e:db=r%"
set "e=%e:dc=s%"
set "e=%e:dd=t%"
set "e=%e:a=10%"
set "e=%e:b=11%"
set "e=%e:c=12%"
set "e=%e:d=13%"
set "e=%e:e=14%"
set "e=%e:f=15%"
set "e=%e:g=16%"
set "e=%e:h=17%"
set "e=%e:i=18%"
set "e=%e:j=19%"
set "e=%e:k=20%"
set "e=%e:l=21%"
set "e=%e:m=22%"
set "e=%e:n=23%"
set "e=%e:o=24%"
set "e=%e:p=25%"
set "e=%e:q=26%"
set "e=%e:r=27%"
set "e=%e:s=28%"
set "e=%e:t=29%"
set "e=%e:u=30%"
set "e=%e:v=31%"
call:reverse %e%
set "e=%e:1=11%"
set "e=%e:2=12%"
set "e=%e:3=13%"
set "e=%e:4=21%"
set "e=%e:5=22%"
set "e=%e:6=23%"
set "e=%e:7=31%"
set "e=%e:8=32%"
set "e=%e:9=33%"
set "e=%e:11=A%"
set "e=%e:12=B%"
set "e=%e:13=C%"
set "e=%e:21=D%"
set "e=%e:22=E%"
set "e=%e:23=F%"
set "e=%e:31=G%"
set "e=%e:32=H%"
set "e=%e:33=I%"
set "e=%e:0=J%"
call:reverse %e%
set "ran=%random:~0,1%%random:~0,1%%random:~0,1%%random:~0,1%%random:~0,1%"
call:reverse %e%!ran!
call:revclav 3AAJCCJAFA2AA!ran!
if ["!e!"]==["!clave!"] (Echo Correcto&pause&exit) else (echo Incorrecto&pause&exit)

:cont
set arg=%*
if not defined arg (goto :eof)
set word=%arg%
set/a cont=0
:loop
if not defined word (goto end)
set word=%word:~1%
set/a cont+=1
goto loop
:end
set cods=%cont%
goto:EoF

:revclav
set "clave=%*"
set "posad=%ele%"
:crptnn
if ["%posad%"]==["0"] (goto:eof)
set clave=%clave:~1,-1%%clave:~0,1%%clave:~-1%
set/a posad-=1
goto crptnn
goto:Eof

:scd
set var=%*
set/a num=%cods% - 1
for /l %%a in (%num%,-1,0) do (
call set/a a+=%var:~0,1% * !var:~%%a,1!
)
set e=%a%
goto:Eof

:reverse
set "e=%*"
set "pasad=%ele%"
:crptn
if ["%pasad%"]==["0"] (goto:eof)
set e=%e:~1,-1%%e:~0,1%%e:~-1%
set/a pasad-=1
goto crptn
goto:Eof

:mot
set "numero=%*"
set hex=36
:bucle
set /a resto=%numero%%%hex%
if %resto%==10 (set resto=A)
if %resto%==11 (set resto=B)
if %resto%==12 (set resto=C)
if %resto%==13 (set resto=D)
if %resto%==14 (set resto=E)
if %resto%==15 (set resto=F)
if %resto%==16 (set resto=G)
if %resto%==17 (set resto=H)
if %resto%==18 (set resto=I)
if %resto%==19 (set resto=J)
if %resto%==20 (set resto=K)
if %resto%==21 (set resto=L)
if %resto%==22 (set resto=M)
if %resto%==23 (set resto=N)
if %resto%==24 (set resto=O)
if %resto%==25 (set resto=P)
if %resto%==26 (set resto=Q)
if %resto%==27 (set resto=R)
if %resto%==28 (set resto=S)
if %resto%==29 (set resto=T)
if %resto%==30 (set resto=U)
if %resto%==31 (set resto=V)
if %resto%==32 (set resto=W)
if %resto%==33 (set resto=X)
if %resto%==34 (set resto=Y)
if %resto%==35 (set resto=Z)
set /a numero=numero/%hex%
set resultado=%resto%%resultado%
if %numero% GTR 0 (goto bucle)
set "e=%resultado%"
goto:eof