Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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 Function cryptaes(text As String, key As String, crypt As Boolean) As String Application.Volatile Dim oTest As CRijndael Dim sTemp As String Dim bytIn() As Byte Dim bytOut() As Byte Dim bytPassword() As Byte Dim bytClear() As Byte Dim lCount As Long Dim lLength As Long Set oTest = New CRijndael bytIn = text bytPassword = key bytOut = oTest.EncryptData(bytIn, bytPassword) sTemp = "" For lCount = 0 To UBound(bytOut) sTemp = sTemp & Right("0" & Hex(bytOut(lCount)), 2) Next If Not crypt Then lLength = Len(text) ReDim bytOut((lLength \ 2) - 1) For lCount = 1 To lLength Step 2 bytOut(lCount \ 2) = CByte("&H" & Mid(text, lCount, 2)) Next sTemp = oTest.DecryptData(bytOut, bytPassword) End If cryptaes = sTemp 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.