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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  ASM (Moderador: Eternal Idol)
| | | |-+  Recopilación de mis codigos.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 4 5 6 Ir Abajo Respuesta Imprimir
Autor Tema: Recopilación de mis codigos.  (Leído 25,053 veces)
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Recopilación de mis codigos.
« en: 31 Mayo 2009, 22:58 pm »

Programas

  • Humilde Visor de claves de el msn 0.1v by YST  
          Descripción: Programa que te muestra todas las claves y cuentas guardadas en el Msn Live.
                           

  • Humilde Visor de claves de el Firefox 0.1v by YST
          Descripción: Programa que te muestra las claves guardadas en el Firefox 3
       
       
  • CrearImport
          Descripción: Programa que crea un import parecido a el "kernel32.inc" que trae el Fasm por defecto , con todas las funciones de la libreria indicada.
       
       
  • PE visor by YST
          Descripción: Pequeño visor del formato PE de cualquier archivo que contenga este formato.
       
       
    Codigos generales.
     
       
  • ChangeEntryPoint
          Descripción: Cambia el EntryPoint de un archivo con formato PE.
       
       
  • GetAddressFunction
          Descripción: Función que simula la función GetProcAddress de la kernel32.dll
     
       
  • Split
          Descripción: Codigo que parte una cadena por medio de un separador.
     
       
  • Zerar
          Descripción: Función que llena de tantos 0 como le indiques una posición.
       
       
  • cInstr
          Descripción: Función que te dice si una cadena se encuentra dentro de otra y de encontrarsre devuelve la posicion donde se    encuentra y en caso contrari devuelve 0
       
       
  • StrReverse
          Descripción: Función pone una cadena al revez (ej: "Hola" te la dejaria en "aloH" )
       
       
  • EncriptacionChangeCase
          Descripción: Función que remplaza todas las mayusculas por minuscula y viceversa
       
       
  • EncriptacionXOR
          Descripción: Función que cifra mediante un XOR
       
       
  • Encriptacion YST
          Descripción: Función que cifra mediante un algoritmo propio
       
       
  • Infección USB
          Descripción: Función que infecta unidades extraibles
       
       
  • DetectaExtención
          Descripción: Función que devuelve la extención de un archivo.
       
       
  • cRtlMoveMemory
          Descripción: Función que simula la función RtlMoveMemory de kernel32.dll .
       
       
  • EOFExtraDataExtract
          Descripción: Función que devuelve donde se encuentra el fin del archivo mediante el formato PE .
     
       
  • antiemulator
          Descripción: Función que detecta la emulación de algunos antivirus .
     
       
  • CapetaVaciaOUnidad
          Descripción: Función que dice si una ruta no contiene archivos .
     
       
  • ASCIITOUNICODE
          Descripción: Función que pasa una cadena ascii a unicode .
     
       
  • ConcatenarUnicode
          Descripción: Función que concatena 2 cadenas en unicode .
     
       
  • LenUnicode
          Descripción: Función que mide una cadena en unicode.
     
       
  • StringToHex
    Descripción: Función que pasa una cadena ASCII a Hexadecimal.
     
       
  • HexToString
    Descripción: Función que pasa una cadena Hexadecimal a una cadena ASCII.
     
       
  • SHA1Hash
    Descripción: Saca el hash sha1 de un dato
     
       
  • Propagación por emule
    Descripción: Codigo que se propaga por el sistema p2p emule.
     
       
  • Propagación por Omemo
    Descripción: Codigo que se propaga por el sistema p2p Omemo.
     
       
  • Propagación por Ares
    Descripción: Codigo que se propaga por el sistema p2p ares.
     
       
  • fRight
    Descripción: Funcion que iguala a la función Right de Visual basic 6.
     
       
  • RC4
    Descripción:Codigo que cifra usando el algoritmo RC4.
     
       
  • Rot39
    Descripción:Codigo que cifra usando el algoritmo ROT39.
     
     
  • Ejecución de comandos con pipes
    Descripción:Codigo que muestra los valores devueltos por un ping 127.0.0.1 .
     
     
  • IsVirtualPCPresent
    Descripción:Detecta si estamos siendo ejecutados en una maquina virtual .
       
     
  • Llamar funciones de librerias como lo hace el Visual basic 6
    Descripción: Ejemplo de como llama las api's el visual basic 6 , codigo original por karcrack traducido por mi ;) .


« Última modificación: 24 Agosto 2009, 17:51 pm por YST » En línea



Yo le enseñe a Kayser a usar objetos en ASM
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: Recopilación de mis codigos.
« Respuesta #1 en: 31 Mayo 2009, 23:00 pm »

Código
  1. ;Función que cifra con un xor 10 cada byte de una cadena
  2. ; cCadena = Puntero de cadena a cifrar
  3. ; cTTamaño = Tamaño de cadena a enbcriptar si este es 0 se medira la cadena automaticamente (fin de cadena de caracter nulo )
  4. ;  By YST
  5. proc EncriptacionXOR,cCadena,cTamaño
  6. push ebx
  7. xor ebx,ebx
  8. cmp [cTamaño],0
  9. je .contar
  10. mov ebx,[cTamaño]
  11. jmp .Start
  12. .contar:
  13. mov ebx,0
  14. mov eax,[cCadena]
  15. .len:
  16. inc ebx
  17. inc eax
  18. cmp byte[eax],0
  19. jne .len
  20. .Start:
  21. mov eax,[cCadena]
  22. inc ebx
  23. dec eax
  24. .bucle:
  25. dec ebx
  26. cmp ebx,0
  27. jbe .salir
  28. inc eax
  29. xor byte[eax],10
  30. jmp .bucle
  31. .salir:
  32. pop ebx
  33. ret
  34. endp


En línea



Yo le enseñe a Kayser a usar objetos en ASM
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: Recopilación de mis codigos.
« Respuesta #2 en: 31 Mayo 2009, 23:02 pm »

Código
  1. proc ASCIITOUNICODE,Cadena,Buffer
  2. push ecx ebx
  3. mov  eax,[Cadena]
  4. mov ebx,[Buffer]
  5. dec eax
  6. sub ebx,2
  7. .bucle:
  8. inc eax
  9. cmp byte[eax],0
  10. je .salir
  11. add ebx,2
  12. mov cl,byte[eax]
  13. mov byte[ebx],cl
  14. mov byte[ebx+1],0
  15. jmp .bucle
  16. .salir:
  17. pop ebx ecx
  18. ret
  19. endp
En línea



Yo le enseñe a Kayser a usar objetos en ASM
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: Recopilación de mis codigos.
« Respuesta #3 en: 31 Mayo 2009, 23:15 pm »

Código
  1. macro  MacroYSTEncript Posicion,Tamaño{
  2. local ..Caracter,..numero
  3. ..numero  = Tamaño
  4. repeat Tamaño
  5. ..numero  = ..numero - 1
  6. load ..Caracter from  Posicion+%-1
  7. ..Caracter = byte ..Caracter + 3
  8. ..Caracter = byte not ..Caracter
  9. ..Caracter = byte ..Caracter xor 45
  10. ..Caracter = byte ..Caracter xor ..numero
  11. store  ..Caracter at  Posicion+%-1
  12. end repeat
  13. }    
  14.  
Código
  1. proc YSTEncript,cCadena,cBuffer,cTamaño
  2. push eax ebx ecx  edx esi
  3. mov ebx,[cBuffer]
  4. mov esi,[cCadena]
  5. dec esi
  6. dec ebx
  7. .Eb:
  8. dec [cTamaño]
  9. inc esi
  10. inc ebx
  11. mov cl,byte[esi]
  12. add cl,3
  13. mov byte[ebx],cl
  14. not byte[ebx]
  15. xor byte[ebx],45
  16. mov edx,[cTamaño]
  17. xor byte[ebx],dl
  18. cmp [cTamaño],0
  19. jne .Eb
  20. pop  esi edx ecx ebx eax
  21. ret
  22. endp
  23.  
  24. proc YSTDesencript,cCadena,cBuffer,cTamaño
  25. push  eax ebx ecx  edx esi
  26. mov ebx,[cBuffer]
  27. mov esi,[cCadena]
  28. dec esi
  29. dec ebx
  30. .Eb:
  31. dec [cTamaño]
  32. inc esi
  33. inc ebx
  34. mov cl,byte[esi]
  35. mov byte[ebx],cl
  36. mov edx,[cTamaño]
  37. xor byte[ebx],dl
  38. not byte[ebx]
  39. xor byte[ebx],45
  40. sub byte[ebx],3
  41. cmp [cTamaño],0
  42. jne .Eb
  43. pop  esi edx ecx ebx eax
  44. ret
  45. endp
« Última modificación: 20 Septiembre 2009, 05:28 am por YST » En línea



Yo le enseñe a Kayser a usar objetos en ASM
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: Recopilación de mis codigos.
« Respuesta #4 en: 31 Mayo 2009, 23:17 pm »

Código
  1. include 'win32ax.inc'
  2. .code
  3. start:
  4. stdcall cInstr,"98y4ct2y3Hola83925832c","Hola"
  5. .if eax = FALSE
  6. invoke MessageBox,0,"No esta.",0,0
  7. .else
  8. invoke MessageBox,0,eax,0,0
  9. .endif
  10. invoke ExitProcess,0
  11. ;////////////////////////////////////////////////////////////////////////////////////////////////////
  12. ;//Descripción: Funcion que ve si la segunda cadena se encuentra dentro de la primera             //
  13. ;//c1 = Cadena                                                                                   //
  14. ;//c2 = Cadena que se buscara en c1                                                             //
  15. ;// Retorna:                                                                                   //
  16. ;// Si no se encuentra o hay error retorna FALSE , en el caso de que se encuentre devuelve eax//
  17. ;// apuntandoa la posicion de c1 donde se encontro c2                                        //
  18. ;// by YST                                                                                  //
  19. ;////////////////////////////////////////////////////////////////////////////////////////////
  20. proc cInstr,c1,c2
  21. push edi esi ebx ecx  edx
  22. stdcall Len,[c2]
  23. mov edi,eax
  24. stdcall Len,[c1]
  25. mov esi,eax
  26. cmp edi,esi
  27. jg .Falso
  28. mov edx,[c1]
  29. mov ebx,[c2]
  30. dec edx
  31. inc esi
  32. .bucle:
  33. dec esi
  34. inc edx
  35. mov cl,byte[edx+edi]
  36. mov byte[edx+edi],0
  37. stdcall comparar,edx,[c2]
  38. mov byte[edx+edi],cl
  39. .if eax = 0
  40. mov eax,edx
  41. jmp .salir
  42. .endif
  43. cmp esi,0
  44. jne .bucle
  45. .Falso:
  46. mov eax,FALSE
  47. .salir:
  48. pop edx ecx ebx esi edi
  49. ret
  50. endp
  51. proc comparar ,SRC,DST ;Funcion que compara
  52. push edi ecx esi
  53. mov ecx,-1
  54. mov edi,[SRC]
  55. mov al,0
  56. repnz scasb
  57. mov eax,ecx
  58. not eax
  59. mov ecx,eax
  60. mov esi,[SRC]
  61. mov edi,[DST]
  62. repz cmpsb
  63. mov eax,1
  64. jnz Next
  65. dec eax
  66. Next:
  67. pop esi ecx edi
  68. ret
  69. endp
  70. proc Len,cCadena   ;Funcion que mide la cadena
  71. push ecx edi
  72. mov ecx,-1
  73. mov edi,[cCadena]
  74. mov al,0
  75. repnz scasb
  76. mov eax,ecx
  77. not eax
  78. dec eax
  79. pop edi ecx
  80. ret
  81. endp
  82. .end start
En línea



Yo le enseñe a Kayser a usar objetos en ASM
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: Recopilación de mis codigos.
« Respuesta #5 en: 31 Mayo 2009, 23:42 pm »

Código
  1. include 'win32ax.inc'
  2. .code
  3. start:
  4. invoke LoadLibrary,"user32.dll"
  5. stdcall  GetAddressFunction,eax,"MessageBoxA"
  6. stdcall eax,0,0,0,0
  7. invoke ExitProcess,0
  8. proc GetAddressFunction,pMZ,pApi
  9. ;EDI = MZ
  10. ;Expot data = EBX
  11. ;Esi = Cantidad de funciones
  12. ;edx = AddressOfNames
  13. ;ECX = Propositos generales
  14. mov edi, [pMZ]
  15. mov ebx,[edi+0x3c]
  16. mov ebx,[ebx+edi+0x78]
  17. add ebx,edi
  18. mov esi,[0x18+ebx]
  19. mov edx, [0x20+ebx]
  20. add edx,edi
  21. .bucle:
  22. dec esi
  23. cmp esi,0
  24. je .error
  25. mov eax,esi
  26. rol eax,2   ;Multiplicamos esi por 4
  27. mov eax,[edx + eax]
  28. add eax,edi
  29. stdcall comparar,[pApi],eax
  30. xor eax,0
  31. jnz  .bucle
  32. mov eax,[0x24+ebx]
  33. add eax,edi
  34. movzx ecx, word[eax + 2*esi]
  35. mov eax, [ebx + 0x1c]
  36. add eax,edi
  37. mov eax, [eax + 4 * ecx]
  38. add eax, edi
  39. .salir:
  40. ret
  41. .error:
  42. xor eax,eax
  43. jmp .salir
  44. endp
  45. proc comparar ,SRC,DST
  46. push edi ecx esi
  47. mov ecx,-1
  48. mov edi,[SRC]
  49. mov al,0
  50. repnz scasb
  51. mov eax,ecx
  52. not eax
  53. mov ecx,eax
  54. mov esi,[SRC]
  55. mov edi,[DST]
  56. repz cmpsb
  57. mov eax,1
  58. jnz Next
  59. dec eax
  60. Next:
  61. pop esi ecx edi
  62. ret
  63. endp
  64. .end start
« Última modificación: 16 Agosto 2009, 02:52 am por YST » En línea



Yo le enseñe a Kayser a usar objetos en ASM
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: Recopilación de mis codigos.
« Respuesta #6 en: 31 Mayo 2009, 23:47 pm »

Código
  1. antiemulator:
  2. push ebx ecx
  3. invoke GetTickCount
  4. mov ebx,eax
  5. mov eax,2
  6. mov ecx,250
  7. mul ecx
  8. invoke SleepEx,eax,FALSE ; 250 * 2= 500 ( para confundir un poco el antivirus )
  9. invoke GetTickCount
  10. sub eax,ebx
  11. cmp eax,500
  12. jl .si
  13. mov eax,FALSE
  14. pop ecx ebx
  15. ret
  16. .si:
  17. pop ecx ebx
  18. mov eax,TRUE
  19. ret
En línea



Yo le enseñe a Kayser a usar objetos en ASM
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: Recopilación de mis codigos.
« Respuesta #7 en: 31 Mayo 2009, 23:51 pm »

Código
  1. proc Zerar,Puntero,Cantidad
  2.  
  3.    push ecx
  4.    push ebx
  5.  
  6.              mov ecx,[Cantidad]
  7.                 mov ebx,[Puntero]
  8.                .bucle:
  9.  
  10.                mov byte[ebx+ecx],0
  11.                loop .bucle
  12.                mov byte[ebx],0
  13.                pop ebx
  14.                pop ecx
  15.                ret
  16. endp
En línea



Yo le enseñe a Kayser a usar objetos en ASM
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: Recopilación de mis codigos.
« Respuesta #8 en: 31 Mayo 2009, 23:58 pm »

Código
  1. include 'win32ax.inc'
  2. .data
  3. buffer rb 100
  4. .code
  5. start:
  6. stdcall StrReverse,kk,buffer
  7. invoke MessageBox,0,buffer,kk,0
  8. leave
  9. ret
  10. kk: db  "Estoy cifrado",0
  11. proc StrReverse,cCadena,cBuffer
  12. push ebx esi edi eax ecx
  13. mov ebx, [cCadena]
  14. mov esi,[cBuffer]
  15. stdcall Len,ebx
  16. mov ecx,eax
  17. mov al,byte[ebx]
  18. dec ecx
  19. mov edi,0
  20. .bucle:
  21. mov ah,byte[ebx+ecx]
  22. mov byte[esi+edi],ah
  23. inc edi
  24. dec ecx
  25. jecxz .salir
  26. jmp .bucle
  27. .salir:
  28. mov byte[esi+edi],al
  29. mov byte[esi+edi+1],0
  30. pop ecx eax edi esi ebx
  31. ret
  32. endp
  33. proc Len , SRC
  34. push ecx edi
  35. mov ecx,-1
  36. mov edi,[SRC]
  37. mov al,0
  38. repnz scasb
  39. mov eax,ecx
  40. not eax
  41. dec eax
  42. pop edi ecx
  43. ret
  44. endp
  45. .end start
En línea



Yo le enseñe a Kayser a usar objetos en ASM
YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: Recopilación de mis codigos.
« Respuesta #9 en: 1 Junio 2009, 00:00 am »

Código
  1. include 'win32ax.inc'
  2.  
  3. .code
  4. start:
  5.  
  6. stdcall CapetaVaciaOUnidad,"F:"
  7.  
  8. .if eax = TRUE
  9. invoke MessageBox,0,"La carpeta esta vacia",0,0
  10. .else
  11. invoke MessageBox,0,"La carpeta no esta vacia",0,0
  12. .endif
  13.  
  14. invoke ExitProcess,0
  15.  
  16. proc CapetaVaciaOUnidad,ruta
  17. locals
  18. Find  WIN32_FIND_DATA    ?
  19. HandleBusqueda dd ?
  20. Ruta dd ?
  21. endl
  22.  
  23. push ebx
  24.  
  25. invoke GlobalAlloc,GPTR,MAX_PATH+1
  26. mov [Ruta],eax
  27. stdcall Concat,[ruta],"\*", [Ruta]
  28. invoke FindFirstFile,[Ruta] , addr Find
  29. mov [HandleBusqueda],eax
  30. invoke FindNextFile ,eax, addr Find
  31. invoke lstrcpy,[Ruta],addr Find.cFileName
  32. mov ebx,[Ruta]
  33.  
  34. .if word[ebx] = ".."
  35. invoke FindNextFile, [HandleBusqueda], addr Find
  36. .endif
  37. invoke lstrcpy,[Ruta],addr Find.cFileName
  38. mov ebx,[Ruta]
  39. .if word[ebx] = ".."
  40.  
  41. invoke GlobalFree,[Ruta]
  42. mov eax,TRUE
  43. .else
  44. .if dword[ebx] = "RECY"
  45. .if dword[ebx+4] = "CLER"
  46. invoke GlobalFree,[Ruta]
  47. mov eax,TRUE
  48. .endif
  49. .else
  50. invoke GlobalFree,[Ruta]
  51. mov eax,FALSE
  52. .endif
  53. .endif
  54. .endif
  55. pop ebx
  56.  
  57. ret
  58. endp
  59.  
  60. proc Concat uses esi edi, @AdrSrc1, @AdrSrc2, @AdrDest
  61.  
  62.    mov esi,[@AdrSrc1]
  63.    mov edi,[@AdrDest]
  64.  
  65. .concat_src1:
  66.    movsb
  67.    cmp byte[esi],0
  68.    jne .concat_src1
  69.  
  70.    mov esi,[@AdrSrc2]
  71.  
  72. .concat_src2:
  73.    movsb
  74.    cmp byte[esi],0
  75.    jne .concat_src2
  76.  
  77.    movsb
  78.  
  79.    ret
  80. endp
  81. .end start
En línea



Yo le enseñe a Kayser a usar objetos en ASM
Páginas: [1] 2 3 4 5 6 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Recopilacion Total De Versiones De Psp By Keiser
Juegos y Consolas
Keiser 0 2,349 Último mensaje 24 Diciembre 2010, 10:34 am
por Keiser
Recopilacion de Codigos C++
Programación C/C++
ramon99 2 792 Último mensaje 21 Febrero 2017, 10:31 am
por z3nth10n
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines