saya baru migrasi sebuah project dari vb 6.0 ke vb.net. Dan source code ini tidak bisa berjalan di vb.net, muncul pesan "Number of indices exceeds the number of dimensions of the indexed array". bagaimana cara memperbaiki masalah ini ? thnaks
'Algo-1 -> Hasil = (X1 * K1) mod ((2^16) + 1)
nTmp1 = FBiner2Dec(X(1)) * FBiner2Dec(K(i, 1))
Hasil(1) = FDec2Biner(FMod(nTmp1, (2 ^ 16) + 1), 16)
'Algo-2 -> Hasil = (X2 + K2) mod 2^16
nTmp1 = FBiner2Dec(X(2)) + FBiner2Dec(K(i, 2))
Hasil(2) = FDec2Biner(FMod(nTmp1, 2 ^ 16), 16)
'Algo-3 -> Hasil = (X3 + K3) mod 2^16
nTmp1 = FBiner2Dec(X(3)) + FBiner2Dec(K(i, 3))
Hasil(3) = FDec2Biner(FMod(nTmp1, 2 ^ 16), 16)
'Algo-4 -> Hasil = (X4 * K4) mod ((2^16) + 1)
nTmp1 = FBiner2Dec(X(4)) * FBiner2Dec(K(i, 4))
Hasil(4) = FDec2Biner(FMod(nTmp1, (2 ^ 16) + 1), 16)
'Algo-5 -> Hasil = Hasil(1) XOR Hasil(3)
Hasil(5) = FXORBiner(Hasil(1), Hasil(3), 16)
'Algo-6 -> Hasil = Hasil(2) XOR Hasil(4)
Hasil(6) = FXORBiner(Hasil(2), Hasil(4), 16)
'Algo-7 -> Hasil = (Hasil(5) * K5) mod ((2^16) + 1)
nTmp1 = FBiner2Dec(Hasil(5)) * FBiner2Dec(K(i, 5))
Hasil(7) = FDec2Biner(FMod(nTmp1, (2 ^ 16) + 1), 16)
'Algo-8 -> Hasil = (Hasil(6) + Hasil(7)) mod 2^16
nTmp1 = FBiner2Dec(Hasil(6)) + FBiner2Dec(Hasil(7))
Hasil(8) = FDec2Biner(FMod(nTmp1, 2 ^ 16), 16)
'Algo-9 -> Hasil = (Hasil(8) * K6) mod ((2^16) + 1)
nTmp1 = FBiner2Dec(Hasil(8)) * FBiner2Dec(K(i, 6))
Hasil(9) = FDec2Biner(FMod(nTmp1, (2 ^ 16) + 1), 16)
'Algo-10 -> Hasil = (Hasil(7) * Hasil(9)) mod (2^16)
nTmp1 = FBiner2Dec(Hasil(7)) + FBiner2Dec(Hasil(9))
Hasil(10) = FDec2Biner(FMod(nTmp1, 2 ^ 16), 16)
'Algo-11 -> Hasil = Hasil(1) XOR Hasil(9)
Hasil(11) = FXORBiner(Hasil(1), Hasil(9), 16)
'Algo-12 -> Hasil = Hasil(3) XOR Hasil(9)
Hasil(12) = FXORBiner(Hasil(3), Hasil(9), 16)
'Algo-13 -> Hasil = Hasil(2) XOR Hasil(10)
Hasil(13) = FXORBiner(Hasil(2), Hasil(10), 16)
'Algo-14 -> Hasil = Hasil(4) XOR Hasil(10)
Hasil(14) = FXORBiner(Hasil(4), Hasil(10), 16)
