Топ-Секрет когда-то писал на форуме Пирамида :
[code]
Хорошо, складная сказка про скрипт , но мне чего то думается ,что было по другому :) 
Итак простенькая задача для Ethereal, поскольку он это знает, но делает вид, что нет. 
Вот лог одной моей карты, в нём таблица повторов Entity & Key с одной криптограммой, 
так вот Ethereal должен просчитать дальнейший ряд повторов с этой криптограммой. 

Ne Nk 
00 00 
18 01 
1B 02 
22 04 
.... 

Это реально сделать, могу продемонстрировать, давайте ваш пример.

ROM ерунда (относительно конечно), самым главным камнем преткновения был секретный EEPROM. 

Проведём маленькое "независимое расследование" относительно наших героев, меня они сильно не любят, 
наверное есть за что , попробую их опять немного "позлить", для разнообразия. Итак попытаемся для 
начала определиться кто входит в группу Ethereal & Co , конечно всеми уважаемые Ethereal и Alexfa, 
shopen, dvb_des, некий igor_tgru , возможно Sidd и ещё пара человек, может нет, точно не уверен. 
Они, как и полагается в таких случаях, связаны "обетом молчания", поэтому если вы хотите спросить 
что то у одного из них , то разрешение на ответ по "секретному" вопросу должны дать все члены группы, 
если это относится к общему проекту их сообщества. 
Дамп ROM и EEPROM от карт версии PC2.4(66) по ряду признаков был получен ими тем же методом, 
которым в прошлом году они получили почти полный дамп от серии PC2.3. Способ получения, со слов 
здесь Alexfa, состоит как бы в переводе карты в другой режим и приёме данных от неё через некие 
неизвестные команды. Скорее всего это немного не так, здесь явно присутствует некое "железное" 
вмешательство в чип и последующая "бомбардировка" I/O line , либо чего то внутри чипа. 
Ответственного за "железную" часть проекта можно было вычислить из анализа топиков ТК2 с руганью 
на эту тему. "Скриптологи" и "разборщики" кода тоже понятно кто. Вообщем спрашивайте их всех по 
одиночке и вместе , может через какое-то время и расколются. 
Самое прикольное, что в серии PC2.5 все старые наработки полностью переделали, а в следующей серии 
всё опять повторится и так до бесконечности. Интересно, когда Ethereal & Co выдерут весь ROM/EEPROM 
из PC2.5 ??? 
А может уже ???
[/code]
Решение этой задачки на Паскале :
[code]
Type Table=Array [0..$FF] Of Byte;

Const A:Table=
($78,$2A,$29,$1E,$26,$8B,$A5,$39,$AD,$C9,$30,$DC,$DA,$B4,$87,$F9,
 $7D,$9A,$1C,$9F,$C4,$B3,$4D,$89,$05,$42,$9B,$5E,$79,$83,$F6,$14,
 $4F,$A2,$C5,$B6,$55,$56,$ED,$E9,$D3,$43,$5F,$EC,$DD,$24,$8F,$37,
 $6F,$1F,$01,$99,$1A,$52,$D4,$AC,$5C,$82,$4A,$E1,$0F,$92,$8E,$A0,
 $9C,$25,$A7,$10,$53,$94,$CE,$84,$D6,$95,$70,$F3,$2C,$C6,$58,$FF,
 $5D,$21,$81,$9D,$74,$C7,$D7,$B2,$64,$D8,$C2,$93,$46,$DF,$B8,$B9,
 $07,$8A,$03,$3B,$BB,$65,$CA,$CF,$31,$2D,$BA,$98,$B0,$73,$C0,$15,
 $FE,$6A,$AA,$1D,$E6,$36,$7F,$E2,$E7,$0A,$FB,$2E,$33,$50,$A9,$DE,
 $EF,$FA,$8D,$54,$E3,$C8,$D1,$4E,$BC,$68,$23,$C1,$38,$20,$6E,$F0,
 $CC,$85,$AF,$C3,$61,$59,$51,$0D,$66,$3A,$EA,$A3,$09,$FD,$B1,$12,
 $D2,$62,$CB,$EB,$0C,$5A,$35,$4C,$49,$57,$19,$CD,$F2,$88,$63,$22,
 $BE,$A6,$7B,$6B,$6D,$4B,$32,$EE,$AB,$96,$6C,$F4,$60,$27,$3E,$11,
 $00,$13,$D0,$80,$D5,$F7,$5B,$A4,$F5,$28,$75,$47,$DB,$B7,$77,$A1,
 $67,$40,$BF,$71,$97,$48,$69,$04,$7E,$9E,$17,$3C,$F8,$F1,$72,$7C,
 $16,$91,$A8,$E0,$D9,$76,$45,$FC,$34,$8C,$86,$E5,$E8,$02,$0E,$44,
 $90,$BD,$06,$2F,$3F,$41,$B5,$7A,$E4,$1B,$08,$2B,$18,$3D,$AE,$0B);

Const B:Table=
($D9,$70,$7D,$66,$4E,$69,$DE,$17,$E4,$B0,$A8,$8B,$27,$5B,$48,$BD,
 $E6,$D5,$7F,$59,$D7,$23,$13,$EE,$5D,$0D,$5E,$B8,$90,$D3,$85,$34,
 $0C,$9E,$68,$58,$21,$25,$02,$0F,$4A,$2E,$BB,$96,$89,$79,$C3,$F1,
 $09,$32,$5A,$05,$26,$40,$39,$41,$1C,$77,$E8,$EA,$2C,$AD,$37,$01,
 $31,$43,$AC,$A3,$A5,$38,$B5,$29,$67,$52,$F8,$CA,$45,$E2,$6E,$4F,
 $E7,$F2,$86,$FA,$CF,$1E,$EF,$7E,$8E,$C5,$C8,$11,$AE,$5F,$B1,$62,
 $1D,$08,$3C,$DB,$A7,$44,$BE,$4D,$75,$9C,$8F,$3D,$99,$1B,$C9,$EB,
 $FB,$7C,$20,$F5,$DC,$81,$A6,$88,$D6,$91,$3A,$84,$9F,$7A,$60,$ED,
 $2B,$49,$82,$A0,$9B,$D4,$C1,$3E,$C0,$D8,$5C,$57,$B4,$F3,$C2,$B2,
 $6B,$6C,$80,$4B,$F0,$A9,$BC,$07,$64,$28,$61,$73,$16,$3F,$76,$CE,
 $36,$19,$47,$3B,$DF,$35,$F7,$AF,$30,$E0,$24,$D0,$56,$AA,$74,$E5,
 $CD,$DD,$A2,$22,$0B,$FD,$6F,$C6,$C4,$DA,$0A,$A1,$83,$04,$97,$0E,
 $18,$2D,$72,$15,$10,$F4,$95,$BF,$8C,$14,$71,$92,$12,$B7,$98,$D2,
 $FE,$9D,$9A,$FC,$8A,$7B,$1F,$00,$1A,$E9,$94,$55,$93,$B3,$D1,$FF,
 $4C,$42,$AB,$B9,$A4,$F6,$8D,$2A,$87,$BA,$06,$6D,$53,$63,$03,$E3,
 $50,$78,$EC,$54,$F9,$CB,$65,$33,$CC,$46,$B6,$2F,$6A,$E1,$51,$C7);

Type Puzzle=Array [0..3] Of Byte;
Const TS_E:Puzzle=($00,$18,$1B,$22);
Const TS_K:Puzzle=( $0, $1, $2, $4);

Var I,J,B0,B1,B2,B3,E,K:Byte;

Procedure Hex(H:Byte);
Begin
   H:=H+$30;
   If H>$39 Then H:=H+7;
   Write(Chr(H))
End;
Procedure HexHex(B:Byte);
Begin
   Hex(B SHR 4);
   Hex(B And $F);
   Write(' ')
End;

Begin
   WriteLn('Ne Nk');
   For I:=0 To $FF Do
     For J:=0 To $FF Do
       Begin
          B0:=A[Byte(I+TS_E[0]+2*TS_K[0])]+B[Byte(J+TS_E[0]+TS_K[0])];
          B1:=A[Byte(I+TS_E[1]+2*TS_K[1])]+B[Byte(J+TS_E[1]+TS_K[1])];
          B2:=A[Byte(I+TS_E[2]+2*TS_K[2])]+B[Byte(J+TS_E[2]+TS_K[2])];
          B3:=A[Byte(I+TS_E[3]+2*TS_K[3])]+B[Byte(J+TS_E[3]+TS_K[3])];
          If (B0=B1) And (B1=B2) And (B2=B3)
             Then
               For E:=0 To $FF Do
                 For K:=0 To $F Do
                   If Byte(A[Byte(I+E+2*K)]+B[Byte(J+E+K)])=B0
                      Then
                        Begin
                           HexHex(E);
                           Hex(K);
                           WriteLn
                        End
       End
End.
[/code]
Прогон программулины :
[code]
Ne Nk
00 0
18 1
1B 2
22 4
50 A
55 E
74 2
7E 7
DF 4
E4 0
F4 E
[/code]