Visual Basic

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
     
     Dim k As Byte() = {&H1F, &H33, &H52, &H59, &H02, &H04, &H77, &H67, &H13, &H0E, &H00, &H15, &H15, &H02, &H0F}
     Dim dat As Byte() = {&H5F, &H4F, &HDA, &HA3, &H97, &H14, &H81, &HB1}
 
     Dim s, a As String
     Dim out As Byte()
  
      TeaD(k, dat, out)
 End Sub

 Private Function TeaD(ByVal pbKey() As [Byte], ByVal pbIn() As [Byte], ByVal pbOut() As [Byte]) As Byte()

     Dim i As [Byte] = New [Byte]()                   
     Dim y As UInteger                                
     Dim z As UInteger                                
     Dim sum As UInteger = &HC6EF3720UI               
     Dim delta As UInteger = &H553569AAUI             
     Dim n As UInteger = 32                           
     Dim k(4) As UInteger                             

         y = pbIn(2)                                      
        z = pbIn(6)                                      
        k(0) = pbKey(2)                                   
        k(1) = pbKey(6)                                  
        k(2) = pbKey(10)                                  
        k(3) = pbKey(14)                                 

        For i = 0 To 2                                   
            y <<= 8                                     
            z <<= 8                                     
            k(0) <<= 8                                  
            k(1) <<= 8                                  
            k(2) <<= 8                                    
            k(3) <<= 8                                   
            y = y Or pbIn(2 - i)                         
            z = z Or pbIn(6 - i)                        
            k(0) = k(0) Or pbKey(2 - i)                  
            k(1) = k(1) Or pbKey(6 - i)                  
            k(2) = k(2) Or pbKey(10 - i)                 
            k(3) = k(3) Or pbKey(14 - i)                 
        Next i

        Do While n > 0                                 
            z -= ((y << 4) Xor (y >> 5)) + y Xor (sum + k(sum >> 11 And 3))      
            sum -= delta                                                         
            y -= ((z << 4) Xor (z >> 5)) + z Xor (sum + k(sum And 3))            
            n = n - 1
        Loop


        For i = 0 To 3                                   
                pbOut(i) = y ' <--- ERROR 
    ' You may have tried to use an object without providing an instance of the object.

                pbOut(i + 4) = z  ' <--- ERROR 
    ' You may have tried to use an object without providing an instance of the object.            
                y >>= 8                                      
                z >>= 8                         ' 
         Next i
 End Function