Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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 Encrypt(ByVal EncInteger As Integer) As Integer Dim strReturn As String = String.Empty Dim cipherText As String = String.Empty Dim strSenha As String Try strSenha = EncInteger Dim nLetra As String Dim L As Integer strSenha = (strSenha) For L = 1 To Len(strSenha) nLetra = Asc(Mid(strSenha, L, 1)) nLetra = Chr(Trim(Str(Val(nLetra) Xor (L * 2)))) cipherText = cipherText & nLetra Next strReturn = cipherText Catch ex As Exception strReturn = Nothing End Try Return strReturn End Function
|object modeling - load and save functions||5||62|
|How to split this in C++||4||106|
|How do I save this device context as a .bmp or a picture of some kind?||2||64|