Public Shared Function test4(data As Byte(), key As Byte()) As String

        Dim x As Long = 2157
        Dim _len = data.Length
        Dim lenthing As Integer = &H9D * _len
        Dim outData(_len - 1) As Byte
        Dim keyOffset As Integer
        Dim tmpStr As String = ""



        For i = 0 To _len - 1
            keyOffset = i Mod 7
            outData(i) = (lenthing Xor (x >> 8 Xor data(i) Xor key(keyOffset))) And &HFF
            'MsgBox("Data :" & data(i) & " key : " & key(keyOffset) & " out : " & outData(i))
            Dim hexStr As String = Hex(outData(i))
            If (hexStr.Length = 1) Then
                hexStr = "0" & hexStr
            End If
            tmpStr = tmpStr & hexStr

        Next

        Return tmpStr
    End Function
End Class