Imports Microsoft.VisualBasic
Dim nNummers() as Integer = {68,69}
Dim nKrypteretNummer as Integer = Krypter(nNummers)
Console.WriteLine( "nKrypteretNummer: " & nKrypteretNummer )
Dim nDeKrypteretNummere() as Integer = DeKrypter(nKrypteretNummer)
For y = 1 to nDeKrypteretNummere.Length - 1
Console.WriteLine( "nDeKrypteretNummere: " & nDeKrypteretNummere(y) )
Function DeKrypter(nNummer as Integer) AS Integer()
dim nReturn(0) as Integer
For DatabaseIder = 1 to 50
if ((nNummer AND DatabaseIder) = DatabaseIder) = True then
redim preserve nReturn(UBound(nReturn) + 1)
nReturn(UBound(nReturn)) = log(DatabaseIder,2)+1
if nNummer < 0 then exit for
Function Krypter(nNummers as Integer()) AS Integer
dim nReturn as Integer =0
For x = 0 to nNummers.Length - 1
nReturn += 2 ^ (nNummers(x) - 1)