Huhu,
ich hab jetzt mal eine Frage an die versierten Xojo Freunde, kann ich diesen Code überhaupt nach Xojo übersetzen?
` Private Function decryptLinks(ByVal key As String, ByVal data As String) As String
' decode key
key = key.ToUpper
Dim decKey As String = ""
Dim i As Integer = 0
Do While (i < key.Length)
decKey = (decKey + CType(Convert.ToUInt16(key.Substring(i, 2), 16),Char))
i = (i + 2)
Loop
' decode data
Dim dataByte() As Byte = Convert.FromBase64String(data)
' decrypt that shit!
Dim rDel As RijndaelManaged = New RijndaelManaged
Dim aEc As System.Text.ASCIIEncoding = New System.Text.ASCIIEncoding
rDel.Key = aEc.GetBytes(decKey)
rDel.IV = aEc.GetBytes(decKey)
rDel.Mode = CipherMode.CBC
rDel.Padding = PaddingMode.None
Dim cTransform As ICryptoTransform = rDel.CreateDecryptor
Dim resultArray() As Byte = cTransform.TransformFinalBlock(dataByte, 0, dataByte.Length)
Dim rawLinks As String = aEc.GetString(resultArray)
' replace empty paddings
Dim rgx As Regex = New Regex("\\u0000+$")
Dim cleanLinks As String = rgx.Replace(rawLinks, "")
' replace newlines
rgx = New Regex(""& vbLf&"+")
cleanLinks = rgx.Replace(cleanLinks, ""& vbCrLf)
Return cleanLinks
End Function
Diese Funktion bräuchte ich in Xojo, bekomme sie aber nicht wirklich hin. Es sind auch einige Crypto-Sachen drin, bei denen ich nicht weiss ob Xojo die wirklich kann.