Code:
Public Class Form1
Private Structure word
Dim b1 As Byte
Dim b2 As Byte
Dim b3 As Byte
Dim b4 As Byte
End Structure
Private Function CircShiftLeftW(ByVal w As word, ByVal n As Integer) As word
Dim d1 As Double, d2 As Double
d1 = WordToDouble(w)
d2 = d1
d1 = d1 * (2 ^ n)
d2 = d2 / (2 ^ (32 - n))
CircShiftLeftW = OrW(DoubleToWord(d1), DoubleToWord(d2))
End Function
Private Function DoubleToWord(ByVal n As Double) As word
DoubleToWord.b1 = Int(DMod(n, 2 ^ 32) / (2 ^ 24))
DoubleToWord.b2 = Int(DMod(n, 2 ^ 24) / (2 ^ 16))
DoubleToWord.b3 = Int(DMod(n, 2 ^ 16) / (2 ^ 8))
DoubleToWord.b4 = Int(DMod(n, 2 ^ 8))
End Function
Private Function DMod(ByVal value As Double, ByVal divisor As Double) As Double
DMod = value - (Int(value / divisor) * divisor)
If DMod < 0 Then DMod = DMod + divisor
End Function
Private Function WordToDouble(ByVal w As word) As Double
WordToDouble = (w.b1 * (2 ^ 24)) + (w.b2 * (2 ^ 16)) + (w.b3 * (2 ^ 8)) + w.b4
End Function
Private Function OrW(ByVal w1 As word, ByVal w2 As word) As word
OrW.b1 = w1.b1 Or w2.b1
OrW.b2 = w1.b2 Or w2.b2
OrW.b3 = w1.b3 Or w2.b3
OrW.b4 = w1.b4 Or w2.b4
End Function
Private Function XorW(ByVal w1 As word, ByVal w2 As word) As word
XorW.b1 = w1.b1 Xor w2.b1
XorW.b2 = w1.b2 Xor w2.b2
XorW.b3 = w1.b3 Xor w2.b3
XorW.b4 = w1.b4 Xor w2.b4
End Function
Private Function HexToWord(ByVal H As String) As word
HexToWord = DoubleToWord(Val("&H" & H & "#"))
End Function
Private Function AddW(ByVal w1 As word, ByVal w2 As word) As word
Dim I As Decimal, w As word
I = CInt(w1.b4) + w2.b4
w.b4 = I Mod 256
I = CInt(w1.b3) + w2.b3 + (I \ 512)
w.b3 = I Mod 256
I = CInt(w1.b2) + w2.b2 + (I \ 512)
w.b2 = I Mod 256
I = CInt(w1.b1) + w2.b1 + (I \ 512)
w.b1 = I Mod 256
AddW = w
End Function
Private Function WordToHex(ByVal w As word) As String
WordToHex = Hex(w.b1).PadLeft(2, "0") & Hex(w.b2).PadLeft(2, "0") & Hex(w.b3).PadLeft(2, "0") & Hex(w.b4).PadLeft(2, "0")
End Function
Private Function FuncF(ByVal x As word) As word
FuncF = XorW(AddW(x, CircShiftLeftW(x, 15)), CircShiftLeftW(x, 27))
End Function
Private Function FuncG(ByVal x As word) As word
FuncG = XorW(AddW(x, CircShiftLeftW(x, 7)), CircShiftLeftW(x, 25))
End Function
Private Function Branch(ByVal A As word, ByVal B As word, ByVal C As word, ByVal D As word, ByVal E As word, ByVal F As word, ByVal G As word, ByVal H As word, ByVal w1 As word, ByVal w2 As word, ByVal D1 As word, ByVal D2 As word) As word
Dim temp As word
Dim kata As String = ""
temp = XorW(H, CircShiftLeftW((FuncF(AddW(AddW(E, w2), D2))), 8))
H = XorW(AddW(G, CircShiftLeftW((FuncG(AddW(E, w2))), 3)), FuncF(AddW(AddW(E, w2), D2)))
G = AddW(F, FuncG(AddW(E, w2)))
F = AddW(AddW(E, w2), D2)
E = XorW(D, CircShiftLeftW(FuncG(AddW(AddW(A, w1), D1)), 17))
D = XorW((AddW(C, CircShiftLeftW(FuncF(AddW(A, w1)), 13))), FuncG(AddW(AddW(A, w1), D1)))
C = AddW(B, FuncF(AddW(A, w1)))
B = AddW(AddW(A, w1), D1)
A = temp
display(A)
End Function
Private Function display(ByVal x As word) As word
Dim kata As String = ""
kata &= WordToHex(x)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim teks, wordtext
Dim d(63) As word
Dim CV(7) As word
Dim A(2) As word
Dim delta(15) As word
Dim A1, A2, A3, A4 As word
Dim B1, B2, B3, B4 As word
Dim C1, C2, C3, C4 As word
Dim D1, D2, D3, D4 As word
Dim E1, E2, E3, E4 As word
Dim F1, F2, F3, F4 As word
Dim G1, G2, G3, G4 As word
Dim H1, H2, H3, H4 As word
Dim w(16) As word
Dim temp As String = ""
Dim temp1 As String = ""
Dim pad1, k1 As Byte
Dim pad, i As Integer
Dim k(3) As word
Dim kata As String = ""
CV(0) = HexToWord("6a09e667")
CV(1) = HexToWord("bb67ae85")
CV(2) = HexToWord("3c6ef372")
CV(3) = HexToWord("a54ff53a")
CV(4) = HexToWord("510e527f")
CV(5) = HexToWord("9b05688c")
CV(6) = HexToWord("1f83d9ab")
CV(7) = HexToWord("5be0cd19")
delta(0) = HexToWord("428a2f98")
delta(1) = HexToWord("71374491")
delta(2) = HexToWord("b5c0fbcf")
delta(3) = HexToWord("e9b5dba5")
delta(4) = HexToWord("3956c25b")
delta(5) = HexToWord("59f111f1")
delta(6) = HexToWord("923f82a4")
delta(7) = HexToWord("ab1c5ed5")
delta(8) = HexToWord("d807aa98")
delta(9) = HexToWord("12835b01")
delta(10) = HexToWord("243185be")
delta(11) = HexToWord("550c7dc3")
delta(12) = HexToWord("72be5d74")
delta(13) = HexToWord("80deb1fe")
delta(14) = HexToWord("9bdc06a7")
delta(15) = HexToWord("c19bf174")
A1 = CV(0)
A2 = CV(0)
A3 = CV(0)
A4 = CV(0)
B1 = CV(1)
B2 = CV(1)
B3 = CV(1)
B4 = CV(1)
C1 = CV(2)
C2 = CV(2)
C3 = CV(2)
C4 = CV(2)
D1 = CV(3)
D2 = CV(3)
D3 = CV(3)
D4 = CV(3)
E1 = CV(4)
E2 = CV(4)
E3 = CV(4)
E4 = CV(4)
F1 = CV(5)
F2 = CV(5)
F3 = CV(5)
F4 = CV(5)
G1 = CV(6)
G2 = CV(6)
G3 = CV(6)
G4 = CV(6)
H1 = CV(7)
H2 = CV(7)
H3 = CV(7)
H4 = CV(7)
teks = TextBox1.Text
kata &= "Message = " & TextBox1.Text & vbCrLf & vbCrLf
For i = 0 To Len(teks) - 1
temp1 &= Hex(Asc(teks.Chars(i))) & ""
Next
kata &= "temp1 sebelum dipadding = " & temp1 & vbCrLf
kata &= "panjang temp1 sebelum dipadding = " & Len(temp1) & vbCrLf & vbCrLf
temp1 &= "8"
kata &= "temp1 setelah dtmbah 8 = " & temp1 & vbCrLf
kata &= "panjang temp1 setelah dtmbah 8 = " & Len(temp1) & vbCrLf & vbCrLf
pad = (448 - (8 * Len(teks) + 1))
pad1 = pad \ 4
kata &= "panjang pad = " & pad & vbCrLf
kata &= "panjang pad1 = " & pad1 & vbCrLf & vbCrLf
For i = 1 To pad1
temp1 &= "0"
Next
kata &= "panjang temp1 setelah dtambahh 8 & pjg teks = " & Len(temp1) & vbCrLf
kata &= "teks temp1 setelah dtambahh 8 & pjg teks = " & temp1 & vbCrLf & vbCrLf
k1 = Len(Hex(8 * Len(teks)))
kata &= "panjang k1 = " & k1 & vbCrLf & vbCrLf
For i = 1 To 16
If i = 17 - k1 Then
temp1 &= Hex(8 * Len(teks))
i = 16
Else
temp1 &= "0"
End If
Next
kata &= "panjang akhir temp1 = " & Len(temp1) & vbCrLf
kata &= "temp1 = " & temp1 & vbCrLf & vbCrLf
For i = 0 To Len(temp1) - 1
If (i <> 0) And (i Mod 8 = 0) Then
temp &= vbNewLine & temp1.Chars(i)
ElseIf i = 407 Then
temp &= vbNewLine & vbNewLine
Else
temp &= temp1.Chars(i)
End If
Next
'padding pesan
For i = 0 To 15
wordtext = Mid(temp1, i * 8 + 1, 8)
w(i).b1 = Convert.ToInt32(Mid(wordtext, 1, 2), 16)
w(i).b2 = Convert.ToInt32(Mid(wordtext, 3, 2), 16)
w(i).b3 = Convert.ToInt32(Mid(wordtext, 5, 2), 16)
w(i).b4 = Convert.ToInt32(Mid(wordtext, 7, 2), 16)
kata &= "M(" & CStr(i).PadLeft(2, "0") & ")" & vbTab & "= "
kata &= Hex(w(i).b1).PadLeft(2, "0")
kata &= Hex(w(i).b2).PadLeft(2, "0")
kata &= Hex(w(i).b3).PadLeft(2, "0")
kata &= Hex(w(i).b4).PadLeft(2, "0")
kata &= vbNewLine
Next
Branch(A1, B1, C1, D1, E1, F1, G1, H1, w(0), w(1), delta(0), delta(1))
RichTextBox1.Text = kata
End Sub
End Class
mau nanya neh knapa dari function branch tidak ada hasil apa2
[ask] structure vb 2005
Share This Thread