[Spiderman]

C4 EB FF 20 EE F1 EE E1 EE 20 ED F3 E6 E4 E0 FE F9 E8 F5 F1 FF 20 F0 E5 F8 E8 EB 20 E8 F1 EF EE EB FC E7 F3 FF 20 EF F0 E8 E2 E5 E4 E5 ED ED FB E5 20 E0 EB E3 EE F0 E8 F2 EC FB 20 ED E0 EF E8 F1 E0 F2 FC 20 EF F0 EE E3 F0 E0 EC F3 EB FE 20 F2 E0 EA 20 EA E0 EA 20 E5 F9 E5 20 EF EE EA E0 20 ED E5 20 F3 EC E5 FE 20 F7 E8 F2 E0 F2 FC 20 F5 E5 EA F1 FB 20 3B 2D 29

Graphics 800,600
SetFont LoadFont("courier",18)

Print "Переводчик  HEX-ASCII ASCII-HEX"
Print ""
Print "1 - Перевести строку из HEX ('Hex.txt')  в ASCII"
Print "2 - Перевести строку из ASCII ('ASCII.txt') в Hex ('Hex.txt')"
Print ""
Print ""
Stroka=Input$("") 

Cls
If Stroka=1 Then RuntimeError hex2ascii$()  ;HEX in ASCII from "HEX.txt"
If Stroka=2 Then ascii2hex$()               ;ASCII ni HEX from "HEX.txt" for "HEX.txt"

End

Function ascii2hex$()
Cls
KEY%=0
filein = ReadFile("ASCII.txt")
If filein=0 Then RuntimeError "Файл 'ASCII.txt' не найден в корневой папке"
s$ = ReadLine( filein ) 
CloseFile( filein )

r$=""
For i=1 To Len(s)
	r=r+Right(Hex(Asc (Mid(s,i,1)) Xor KEY),2)+" "
Next
;Return r$
fileout = WriteFile("HEX.txt")
WriteLine( fileout, r$ ) 
CloseFile( fileout )
End Function

Function hex2ascii$()
KEY%=0
filein = ReadFile("HEX.txt")
If filein=0 Then RuntimeError "Файл 'HEX.txt' не найден в корневой папке"
s$ = ReadLine( filein ) 
CloseFile( filein ) 

	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 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