Dim Offs As UInt= Bit.And(hmacbytessha1(19),15)
Dim p1,p2,p3,p4 As ULong
Dim pt As ULong
Dim OTP As ULong
p1=Bit.ShiftLeft(Bit.And(hmacbytessha1(Offs+0),127),24)
Log("p1: ",p1)
p2=Bit.ShiftLeft(Bit.And(hmacbytessha1(Offs+1),255),16)
Log("p1: ",p2)
p3=Bit.ShiftLeft(Bit.And(hmacbytessha1(Offs+2),255),8)
Log("p3: ",p3)
p4=Bit.And(hmacbytessha1(Offs+3),255)
Log("p4: ",p4)
pt=Bit.Or(p1,p2)
Log("pt1: ",p1)
pt=Bit.Or(pt,p3)
Log("pt2: ",p1)
pt=Bit.Or(pt,p4)
Log("pt3: ",p1)