forum.boolean.name - Holywar: HEX

forum.boolean.name (http://forum.boolean.name/index.php)

- Болтовня (http://forum.boolean.name/forumdisplay.php?f=25)

- - Holywar: HEX - ASCII (http://forum.boolean.name/showthread.php?t=6336)

Holywar: HEX - ASCII

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

Ответ: Holywar: HEX - ASCII

Код:

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-срач я поудаляю, с вашего разрешения ;)

Ответ: Holywar: HEX - ASCII

Код:

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

Ответ: Holywar: HEX - ASCII

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

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

Ответ: Holywar: HEX - ASCII

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

Ответ: Holywar: HEX - ASCII

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

Ответ: Holywar: HEX - ASCII

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

Ответ: Holywar: HEX - ASCII

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

Ответ: Holywar: HEX - ASCII

xOAg8+YsIOTg4uDp8uUgOik=

Ответ: Holywar: HEX - ASCII

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

Ответ: Holywar: HEX - ASCII

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

Ответ: Holywar: HEX - ASCII

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

Ответ: Holywar: HEX - ASCII

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

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