Привет!

Выкладываем ответы на предложенную нами
ранее головоломку
для трезвомыслящих людей :).

Задание 1.

Ответ:
225787 449089253

Мы имеем последовательность
18 97 115 1973 1990 226877 ... ...
соответственно A B C D E F G H

18 xor 97 = 115 
115 xor 1973 = 1990 
т.о. G = 1990 xor 226877 = 225787

18 * 115 - 97 = 1973 
115 * 1990 - 1973 = 226877
т.о. H = 1990 * 225787 - 226877 = 449089253

Задание 2.

Ответ: VERYG00DY0UDECRYPTEDIT

D2>D1+?§9''$28.1!#-

В HEX:
44 32 3E 44 31 19 18 2B 3F 15 39 
27 27 24 32 38 2E 31 21 1F 23 2D

На один шаг сложнее обычного askii сдвига. К коду каждого зашифрованного символа прибавляется
12 (hex) + индекс.

for (int i=0;i<22;i++)
cr[i]=cr[i]+18+i;

где cr[i] - зашифрованный символ

т.о.

44+12+0=57, (57 код символа "V")
32+12+1=46, (57 код символа "E")
3e+12+2=52, (57 код символа "R")
..

Задание 3.

WELL DONE!

В paint'е достаточно залить фон любым отличным от синего цветом.

Задание 4.

Приведу решение, которое нам прислал
победитель:

Самые интересные функции: 
========== cut from TrashPickUper ========== 
procedure CrackInfoFile(InfoFile: String; RFLst: TList); 
var rf: PRecycledFile; 
MS: TMemoryStream; 
S1: PChar; 
m: pointer; 
d,n: integer; 
begin 
MS:=TMemoryStream.Create; 
MS.LoadFromFile(InfoFile); 
if (MS.Memory<>nil) and (MS.Size>20) then begin 
m:=MS.Memory; 
n:=integer((pointer(integer(m)+280))^); 
case byte(m^) of 
4: d:=280; 
5: d:=800; 
else 
inc(integer(m),MS.Size); 
end; 
inc(integer(m),20); 
while (integer(m)-integer(MS.Memory))<MS.Size do begin 
S1:=m; 
if S1^<>#0 then begin 
New(rf); 
rf.RealName:=S1; 

rf.TempName:=S1^+':\Recycled\'+'D'+S1^+ IntToStr(n)+ExtractFileExt(rf.RealName); 
rf.idx:=n; 
RFLst.Add(rf); 
end; 
inc(integer(m),d); 
inc(n); 
end; 
end; 
MS.Free; 
end; 

function RestoreFile(rf: PRecycledFile): boolean; 
var MS: TMemoryStream; 
S1: PChar; 
m: pointer; 
d,n: integer; 
InfoFile: String; 
begin 
Result:=false; 
InfoFile:=ExtractFilePath(rf.TempName)+'INFO2'; 

MS:=TMemoryStream.Create; 
MS.LoadFromFile(InfoFile); 
if (MS.Memory<>nil) and (MS.Size>20) then begin 
m:=MS.Memory; 
n:=integer((pointer(integer(m)+280))^); 
case byte(m^) of 
4: d:=280; 
5: d:=800; 
else 
inc(integer(m),MS.Size); 
end; 
inc(integer(m),20); 
d:=(rf.idx-n)*d; 
if d>0 then inc(integer(m),d); 
if (integer(m)-integer(MS.Memory))<MS.Size then begin 
S1:=m; 
if S1^<>#0 then begin 
S1^:=#0; 
DeleteFile(InfoFile); 
MS.SaveToFile(InfoFile); 
ForceDirectories(ExtractFilePath(rf.RealName)); 
Result:=RenameFile(rf.TempName,rf.RealName); 
end; 
end; 
end; 
MS.Free; 
end; 

Задание 5.

Очень хорошо это задание описал Samvel.

Сначала проверяется длина введенного пароля, которая должна составлять 14 символов.
Затем из введенного номера последовательно составляются и сравниваются 5 пар результатов: результат1 и результат2.

I, II, III, IV, V - номера пар 

Результат1 I пары получается следующим образом:
2 символ xor-тся с 1-м (II пара - 3-й со 2-ым; III пара - 4-й с
3-им; IV пара 5-й с 4-ым, V пара 6-й с 5-ым). К результату прибавляется 1, (II пара - 2, III - 3, IV - 4, V - 5). 
Полученная сумма складывается с кодом 7-го символа. 

Результат 2 I пары получается путем: код 8 символа складывается
с кодом 9-го символа (II пара - с кодом 10-го, III пара - 11-го ,IV пара - 12-го ,V пара- 13-го).

Сравниваются Результат 1 и результат 2 каждой пары.
Если все 10 результатов попарно равны, то
"Correct". Например, пароли: 230222g4588784, 111111a1123451 

И кейген на Рascal'е, от Antoha.

var 
c,i,j : word; 
fl : boolean; 
str : string; 
begin 
{-------------- et vmesto clrcsr() iz crt modula a to mojet glukat} 
asm 
mov ax,3 
int 10h 
end; 
writeln('Keygen by ant0xa'); 
writeln('How many keys ? [1..65535]'); 
readln(c); 
randomize; str[0]:=#14;j:=1; 
while j<=c do 
begin 
str[7]:=chr(random(74)+48); str[8]:=str[7]; 
str[14]:=chr(random(74)+48); 
for i:=1 to 6 do 
str[i]:=chr(random(74)+48); 
for i:=1 to 5 do 
str[i+8]:=chr(ord(str[i+1]) xor ord(str[i]) + i); 
fl:=true; 
for i:=1 to 14 do 
if (ord(str[i])<48) or (ord(str[i])>122) then 
begin 
fl:=false; 
break; 
end; 
if fl then 
begin 
writeln('Key ',j,' is: ',str); 
j:=j+1; 
end; 
end; 
readln; 
end. 

Победил в нашем конкурсе Kowdle -
он единственный решил все  задания.
Просим его отписать на xa@real.xakep.ru
и мы подарим ему какую-нибудь важную
ценность 🙂 Так же хочется отметить: Samvel -
занял второе место, Dcr и конечно DigitalScream :).

Надеемся, что вам понравилось, пишите ваши
отзывы о головоломке сюда, в комментарии.

  • Подпишись на наc в Telegram!

    Только важные новости и лучшие статьи

    Подписаться

  • Подписаться
    Уведомить о
    0 комментариев
    Межтекстовые Отзывы
    Посмотреть все комментарии