Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
lovely_pink pe Simpatie.ro
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 48 ani |
|
Mrrrr
AdMiN
 Inregistrat: acum 18 ani
Postari: 2247
|
|
Source:
' DEFAULT IS ROT-13, if you make the formula =ROT(TEXT;7) it will do ROT-7
Public Function ROT(ByVal s As String, Optional ByVal r As Integer = 13) As String
Dim c, f, i As Integer
For i = 1 To Len(s)
c = Asc(Mid(s, i, 1))
If (c >= 97 And c <= 122) Or (c >= 65 And c <= 90) Then
If c >= 97 Then f = 97 Else f = 65
c = r + c - f
Do: c = c Mod 26: Loop While c > (26 - 1)
c = c + f
End If
ROT = ROT & Chr(c)
Next i
End Function |
_______________________________________
|
|
| pus acum 4 ani |
|