Holywar: HEX - ASCII

[MiXaeL]

Hex... да, я все понимаю, Hex - это модно, стильно, чОтко. Но вам не кажется, господа, что вы распугаете половину булочников? Напишите уж тогда небольшой удобный конвертер и залейте на форум.

And, I consider, it would be more usefull to speak, for example, English than Hex. Am I right?
Anyway, STOP SPOILING OUR FORUM!

P.S. There may be some misprints.
Bye there!

[HolyDel]

CF F0 E5 E2 E5 E4 2E 20 DF 20 48 6F 6C 79 44 65 6C 2E 20 28 C4 EB FF 20 F1 E2 EE E8 F5 2C 20 EF F0 EE F1 F2 EE 20 D5 EE EB E8 29 
E2 EE F2 20 EF F0 EE F1 F2 EE E9 20 F2 E5 EA F1 F2 2C 20 ED E8 EA E0 EA 20 ED E5 20 E7 E0 F8 E8 F4 F0 EE E2 E0 ED ED FB E9 
C4 E5 F0 E7 E0 E9 F2 E5 20 3B 29

а остальной hex-срач я поудаляю, с вашего разрешения

[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

[Tadeus]

96 76 AB A4 B8 76 B2 B8 76 B0 B8 B9 AD 76 0B 6C 12

[ABTOMAT]

CD E5 E7 ED E0 ED E8 E5 20 EF F0 EE E3 F0 E0 EC EC E8 F1 F2 EE EC 20 C3 E5 EA F1 2D EA EE E4 E0 20 2D 20 E2 F1 B8 20 F0 E0 E2 ED EE 20 F7 F2 EE 20 ED E5 E3 F0 E0 EC EE F2 ED EE F1 F2 FC 20 E2 20 58 58 49 20 E2 E5 EA E5 21

[MiXaeL]

C7 ED E0 ED E8 E5 20 EF EE E4 F0 E0 E7 F3 EC E5 E2 E0 E5 F2 20 F7 F2 E5 ED E8 E5 5C ED E0 EF E8 F1 E0 ED E8 E5 20 E1 E5 E7 20 EA E0 EA E8 F5 20 EB E8 E1 EE 20 E2 F1 EF EE EC EE E3 E0 F2 E5 EB FC ED FB F5 20 F1 F0 E5 E4 F1 F2 E2 2E 20 D2 FB 20 EC EE E6 E5 F8 FC 3F 20 CE F7 E5 ED FC 20 F1 EE EC ED E5 E2 E0 FE F1 FC 2E 20 D2 E0 EA 20 F7 F2 EE 3A
C9 E3 E6 E3 E4 2D 45 68 75 2D E0 ED 2D EC FE E6 E7 E8 2C

[johnk]

Ребят, прекращайте бред. Поначалу смешно было, но уже нет.

[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

[Romanzes]

0ODnIGhleCDz5uUg7eUg7/Do6uDr++Lg5fIsIOzu5u3uIOjx7+7r/Ofu4uDy/CBiYXNlNjQgOik=

[Tadeus]

xOAg8+YsIOTg4uDp8uUgOik=

[H@NON]

所以现在

[IGR]

ĐǺ, ґΘҢИßŐ ΠŐŁŇŐĚ !!

[H@NON]

ну, поехало)))))....

[HolyDel]

☺☻♥♦♣♠•◘○◙♂♀♪♫☼►◄↕‼¶☻§▬→͍A-Wъ-M♫7→#

[MiXaeL]

D5 ED 28 25 E4 F6 ED 29 F2 E3 F8 FD FD F1 E2 E0 ED 2C 34 CA 36 E5 F6 FF FF 3B E9 F3 E9 EC 0E

C2 23 E1 FC E3 2B 28 ED EA EE F4 F1 2E 62 74 24 32 F1 34 F9 F6 E6 E9 E2 3B

Даешь конкурс на лучший (но все же отгадываемый) шифр?