junk.idel

idel虚拟机源码

string: A "Gooey kablooey said Ratface Huey"
bss-data: A-digested 20

string: B "When in the course of human events"
bss-data: B-digested 20

def 0 1 main
  A-digested A.addr A.size digest
  B-digested B.addr B.size digest
  A-digested B-digested collision-count u.  '\n' emit
  0 ;



def 2 1 collision-count   0 finding-mismatch ;

def 3 1 finding-mismatch
  { a1 a2 i --
    i 20 = if
      i 3 <<
    else
      a1 i + c@  a2 i + c@  = if
        a1  a2  i 1 +  finding-mismatch
      else
        i 3 <<  a1 i + c@  a2 i + c@ xor  7  byte-collision-bitcount  
      then
    then } ;

def 3 1 byte-collision-bitcount
  { byte j --
    j 0 < if
      8 +
    else 
      byte j >>>  1 and if
        7 j -  +
      else
        byte  j 1 -  byte-collision-bitcount
      then
    then } ;