[impersonalis]

Function ascii2hex$(s$,KEY%)
r$=""
For i=1 To Len(s)
	r=r+Right(Hex(Asc (Mid(s,i,1)) Xor KEY),2)+" "
Next
Return r$
End Function

Function hex2dec%(s$)
	Local a%=0,z%
	For i=Len(s) To 1 Step -1
		b$=Mid(s,i,1)
		
		If Asc(b)>Asc(9)
			z=Asc(b)-55
		Else
			z=Int(b)
		EndIf	
		a=a+z*(16^(Len(s)-i))
	Next
	Return a
End Function

Function hex2ascii$(s$,KEY%)
	r$=""
	For i=1 To Len(s) Step 3
		r=r+Chr(hex2dec(Mid(s,i,2)) Xor KEY)
	Next
	Return r
End Function

Function BrutHex2ASCII(s$)
	For i=0 To 255
		DebugLog "KEY="+i
		DebugLog hex2ascii(s,i)
		DebugLog "-----------------"
	Next
End Function