Nicolette Jul 8 2012 at 15:43

Криптоквест

1 min

7.6K

Cryptography*

+53

Comments 24

BeLove Jul 8 2012 at 16:32

Нулевый уровень без багов, делаю первый.

thunderquack Jul 8 2012 at 17:23

Нулевой хорошо поддался, только отсутствие пробелов заставляет глаза держать в куче

Goryn Jul 8 2012 at 17:25

Держите на стеке, проблем-то.

hellman Jul 8 2012 at 18:35

застрял на lvl4.txt :(

ArthurOstapenko Jul 8 2012 at 18:41

И я:)

ArthurOstapenko Jul 8 2012 at 18:41

Похоже что это какой-то шифр перестановки. Судя по частоте букв.

OLS Jul 8 2012 at 22:50

4-ый и 5-ый оказались в своей сути легче, чем скажем 2-ой и 3-ий,
хотя понимаешь это только потратив на них в два раз больше усилий

proof

«for completing.»

Alexufo Jul 8 2012 at 19:16

celen Jul 8 2012 at 23:01

Сдаюсь, народ! Как проходить нулевой уровень?

QtRoS Jul 8 2012 at 23:53

Бро, я уж думал я форевэр элоун!

Cresh Jul 9 2012 at 12:17

Ооо нет Бро, нас многа =(

ArthurOstapenko Jul 9 2012 at 00:21

На всякий случай выложу в виде кода, чтобы кто-то случайно на ответ не наткнулся просматривая коменты :)

Function Main()
	
	Local message:String="WYVIHISFAOLLHZPLZAJPWOLYWVZZPISLPZAOLZOPMAJPWOLYHSZVRUVDUHZJHLZHYJPWOLYPUAOPZJHZLAOLWHZZDVYKPZDVYKBUWYVMPAHISLDYPAALUPUSVDLYJHZL"
	
	For Local shift:Int = 1 To 25
		Print "Shift: "+ shift + "  " + DecodeLvl0 (message.ToUpper(), shift)
	Next

End



Function DecodeLvl0:String (message:String, key:Int)

	Local codedMessage:String
	
	For Local i:Int = 0 To message.Length()-1
		Local newChar:Int = message[i]+key
		If newChar>90
			newChar -= 26
		End
		
		codedMessage+=String.FromChar(newChar)
	Next
	
	Return codedMessage
End
</code>

Код на Monkey, но я думаю будет понятно:)

ArthurOstapenko Jul 9 2012 at 00:25

Это решение Lvl1:

Function Main()
	
	Local message:String="FHVZGYZHSGLWVXLWVGSRHNVHHZTVZMWURTFIVLFGGSZGGSVHVXIVGDLIWRHSBWILNZTMVGRXDIRGGVMRMZOGVIMZGRMTXZHVDRGSLWWOVGGVIHFKKVIXZHV"
	Print DecodeLvl1(message)

End



Function DecodeLvl1:String (message:String)

	Local codedMessage:String
	
	For Local i:Int = 0 To message.Length()-1
		Local newChar:Int=message[i]

		If newChar>64 And newChar<91
			newChar = 90 - (newChar - 65)
		ElseIf newChar>96 And newChar<123
			newChar = 122 - (newChar - 97)
		End
		 
		codedMessage+=String.FromChar(newChar)
	Next
	
	Return codedMessage
End

Nicolette Jul 9 2012 at 00:29

А давайте вы не будете спойлерить решения ну хотя бы пару дней, а? Тем более так явно, даже не намеками. Я уверена, что многие, кто хотели бы сами порешать, этот топик еще даже не видели, не то что не подумали как следует. Уважайте чужой фан.

ArthurOstapenko Jul 9 2012 at 00:33

Ок. Хотя я специально не называл названия методов шифрования, чтобы не портить фан. А в код вникать захотят только те кто не смогут или не захотят решать, имхо.

ArthurOstapenko Jul 9 2012 at 00:30

Для Lvl2:

Function Main()
	
	Local message:String="153344154252344214241415342242113523542433122422311544441542432134313134521514125444234215154423344543113314445215334454432453"
	Print DecodeLvl2(message)

End



Function DecodeLvl2:String (message:String)
	Local alphabet:String="ABCDEFGHIKLMNOPQRSTUVWXYZ"
	Local codedMessage:String
	Local tableMap:StringMap<Int> = New StringMap<Int>
	
	Local i:Int=0
	For local x:Int = 1 to 5
	 	For local y:Int = 1 to 5
	 		tableMap.Add(String(x)+String(y), alphabet[i])
	 		i+=1
	 	Next
	Next


	For Local i:Int = 0 To message.Length()-2 Step 2
		codedMessage+=String.FromChar(tableMap.Get(message[i..i+2]))
	Next
	
	Return codedMessage
End