clear

a           = 2F4D9506438DA1BEC547EF9F0815022D48D0A221231645678975612345613245132461234564131133008174A7961EBABEDEEAB108AFAA1A17E51CC7
b           = 4110DDF6A16E8ADD5F1725863178BBDD220244089323CBF67F

a           = 00 $a
lena        = datalen( $a )
lenb        = datalen( $b )

x           = sub( $lena, $lenb )

r           = 00
con         = ""
off         = 00
lenx        = add( $lenb, 01 )

real_sha    = big_div( $a, $b )
real_sha    = 00 $real_sha
real_r      = big_mod( $a, $b )

again:
    tmp     = hmid( $a, $off, $lenx )
    off     = add( $off, 01 )
    tmplen  = datalen( $tmp )
    if $tmplen < $lenb
        compare $con, $real_sha
        ? $a
        pause
    endif
    c       = big_div( $tmp, $b )
    if $c != 00
        r   = big_mod( $tmp, $b )
        r   = leftpack( $r, int( 0x$lenb ) )
        a   = memcpy( $a, hex( 0x$off - 1 ), 00 )
        a   = memcpy( $a, $off, $r )
    endif
    con     = $con $c

    goto again