/*

//////////////////////////////////////////////////

                  .:[CracksLatinoS]:.

Script para poner bp en las call magicas de delphi



script realizado by ---=<<RedH@wK>>=--- && Lisa && Alquimista

    con la ayuda de Ricardo Narvaja

   

//////////////////////////////////////////////////

*/



var cont_01

var cont_02

var poner_bp

var num_call

var code_base



mov code_base,00401000

mov cont_01,code_base

mov cont_02,code_base



bucle_01:

         find cont_01, #FF93????????5BC3#

         mov poner_bp,$RESULT

         cmp poner_bp,0

             je bucle_02

         bp poner_bp

         inc poner_bp

         inc num_call

         mov cont_01,poner_bp

jmp bucle_01



bucle_02:

         find cont_02, #FF93????????5E5BC3#

         mov poner_bp,$RESULT

         cmp poner_bp,0

             je final

         bp poner_bp

         inc poner_bp

         inc num_call

         mov cont_02,poner_bp

jmp bucle_02



final:

log " "

log " "

log "El numero de BP activado es:"

log num_call

ret