Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Shared Function XOREncryption(ByVal key As String, ByVal value As String) As String Dim intXORValue1 As Integer Dim intXORValue2 As Integer Dim strDataOut As String = "" For lonDataPtr As Long = 0 To (value.Length - 1) intXORValue1 = Asc(value.Substring(lonDataPtr, 1)) intXORValue2 = Asc(key.Substring(lonDataPtr Mod key.Length, 1)) If (intXORValue1 = intXORValue2) Then strDataOut &= Chr(intXORValue2) Else strDataOut &= Chr(intXORValue1 Xor intXORValue2) End If Next lonDataPtr Return strDataOut End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.