Imports System

Public Module Module1

    Public Sub Main()

        dim userId as integer 

        userId = 1

        dim timestamp as long 

        timestamp = 1689770924298

        dim hex as string

        hex = timestamp.tostring("X")

        console.WriteLine(hex)

        hex=("00000000000" & hex)

        hex = hex.substring(hex.Length-11,11)

        console.WriteLine(hex)

        dim l as string

        l=hex.Substring(3)

        console.WriteLine(l)

        dim h as string

        h=hex.Substring(0,3)

        console.WriteLine(h)

        dim ih as integer

        ih = integer.Parse(h,System.Globalization.NumberStyles.HexNumber)

        console.WriteLine(ih)

        ih = ih and &h1FF

        console.WriteLine(ih)

        dim ushift as integer = userId and &hFFF

        console.WriteLine(ushift)

        ushift = ushift<<9

        console.WriteLine(ushift)

        'ih = ih or ((userId and &hFFF)<<9)

        ih = ih or ushift

        console.WriteLine(ih)

        dim h2 as string

        h2 = ih.ToString("X")

        console.WriteLine(h2)

        console.WriteLine(h2 & l)

        dim res as long

        res = long.Parse(h2 & l,System.Globalization.NumberStyles.HexNumber)

​

        console.WriteLine(res)

    End Sub

End Module