VB & ASP Functions
'Rot13
Function dec1(dectxt,artieksi)
txtdone = ""
if artieksi = 1 then artieksi = +3 else artieksi = -3
For i = 1 To Len(dectxt)
a = Mid(dectxt, i, 1)
b = Asc(a) + artieksi
Do
If b > 255 Then b = b - 255
Loop Until b <= 255
Do
If b < 1 Then b = b + 255
Loop Until b >= 1
txtdone = txtdone & Chr(b)
Next
dec1 = txtdone
End Function
'Reverse
Function dec2(dectxt)
txtdone = ""
For i = 1 To Len(dectxt)
a = Mid(dectxt, i, 1)
txtdone = a & txtdone
Next
dec2 = txtdone
End Function
'XOR
Function dec3(dectxt,onarka)
txtdone = ""
For i = 1 To Len(dectxt)
a = Mid(dectxt, i, 1)
'if onarka = 0 then xorfakt = i else xorfakt = Len(dectxt)-i
xorfakt = 7
b = Asc(a) Xor xorfakt
Do
If b > 255 Then b = b - 255
Loop Until b <= 255
Do
If b < 1 Then b = b + 255
Loop Until b >= 1
txtdone = txtdone & Chr(b)
Next
dec3 = txtdone
End Function
'Inverse
Function dec4(dectxt)
txtdone = ""
For i = 1 To Len(dectxt)
a = Mid(dectxt, i, 1)
b = 255 - Asc(a)
Do
If b > 255 Then b = b - 255
Loop Until b <= 255
Do
If b < 1 Then b = b + 255
Loop Until b >= 1
txtdone = txtdone & Chr(b)
Next
dec4 = txtdone
End Function
vireas - 18. Apr, 13:01
