закрыть X

### Опции скрытого текста

%field должно быть только числовым
%field необходимо
По меньшей мере, один параметр требуется

Следующие ошибки возникли при попытке отправки сообщения:

Скрыть по количеству сообщений
Требуется сообщений
Скрыть от гостей
Скрыть от всех групп, кроме выбранных
Группы
Глобальный модератор
Модератор раздела
Новичок
Начинаю писать
Постоялец
Знающий
Старожил
Модератор
ВИП
Ветеран
Неприкасаемый
Проходил мимо
Прохожий
Друзья
Новичок
Ветераны форума
Новичок
Скрыть по количеству Спасибо поставленных пользователю
Кол-во сказанных пользователю Спасибо
Скрыть пока не скажут Спасибо
« предыдущая тема следующая тема »
Страницы: « 1 ... 41 42 43 44 » Вниз

# Иформация о Eurocrypt (помните такое?)

- 436 Ответов
- 32942 Просмотров

#### Ethereal

- ВИП
- Старожил
- 1.581
- 8.611 раз

##### Иформация о Eurocrypt (помните такое?)

« Ответ #420: Суббота 28 Мая 2022, 01:29:17 »
В самом начале топика, в сообщении #3 и не только там
Цитата(Ethereal от Суббота 04 Сентября 2021, 16:13:20)

> Команда CA B0 действительно показывает тебе дамп PROM , почти весь, но ... сами ключи при этом закрывает нулями.

Добавлю, не только ключи, но и пин-кода. Об этом в топике также упоминалось.
Чтобы получить ключи можно
- глитчем заставить команду CAB0 не закрывать нулями ключ. Но это нужно проделывать для каждого ключа отдельно. Т.е. один удачный глитч - один полученный ключ
- снять полный дамп карты подсунув карте вирус под видом данных (командой CA24) и запустив подсунутый вирус глитчем
Но ты уже проделывал и то и другое. Что тут можно было не понять ?
Сказали Спасибо: balton, lift-man, stefanvl
Жалоба 212.109.29.221

#### stefanvl

- Прохожий
- 35
- 32 раза

##### Иформация о Eurocrypt (помните такое?)

« Ответ #421: Суббота 28 Мая 2022, 02:39:37 »
@Ethereal
CAB0 ключ за ключом, правильно ли я понимаю?
00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15
0060 : 49 4C 4D 4E 45 54 00 00 93 00 00 00 00 00 00 00
0070 : 00 00 00 00 93 01 00 00 00 00 00 00 00 00 00 00
$68 = Issuer key 00
$74 = Issuer key 01
Ответ #100
$68 / 4 = $1A
Поэтому я и начал глитчить команду
CA B0 00 1A --> Issuer key 00
CA B0 00 ?? --> Issuer key 01,02,...
Я не понимаю расчет, который вы использовали для перехода от $68 к $1A.
Чтобы найти ключ эмитента 01, я должен сделать $74 / 4 = ... Я не понимаю, как вы получили от $68 до 1A, если я знаю это, то я могу получить CAB0 без ключей, посмотреть, где находятся все ключи и получить их 1 за 1. Если я правильно понимаю.
Еще одна вещь, которую я не смог сделать, это извлечь оперативную память, я прочитал ответ 42, но здесь я запутался.
- Спасибо
Жалоба Записан

#### Ethereal

- ВИП
- Старожил
- 1.581
- 8.611 раз

##### Иформация о Eurocrypt (помните такое?)

« Ответ #422: Суббота 28 Мая 2022, 14:47:52 »
Цитата(stefanvl от Суббота 28 Мая 2022, 02:39:37)

> Чтобы найти ключ эмитента 01, я должен сделать $74 / 4 = ... Я не понимаю, как вы получили от $68 до 1A

В Windows есть штатная программа калькулятор cacl.exe . У калькулятора есть переключение
Вид
четыре варианта
- Обычный
- Инженерный
- Программист
- Статистика
Включаешь Программист
Там включаешь
Hex
т.е. 16-чную систему счисления
и делишь
6 8 / 4 =
получаешь 1A
потом
C
т.е. сброс и снова делишь
7 4 / 4 =
получаешь 1D
Короче, в привычной нам десятичной системе счисления
68 / 4 = 17
а в шестнадцатеричной системе счисления
68 / 4 = 1A
Шестнадцатеричная система счисления используется в компьютерной технике потому, что из шестнадцатеричной системы в двоичную и обратно можно переводить в уме, а внутри микропроцессоров вообще все в двоичном виде. Т.е шестнадцатеричная система - удобная запись двоичных чисел. Поэтому эту систему надо освоить почитав какую-нибудь книжку по информатике что-ли.
Чтобы отличить шестнадцатеричные числа от десятичных (в тех случаях когда есть опасение, что их могут спутать) я приставляю перед ними $ (потому что так делается в Паскале) или 0x (потому-что так делается в Си) или после них h или H (потому-что так делается во множестве ассемблеров).
Но это-же ЛИКБЕЗ

Подумал(a) и добавил(a): Суббота 28 Мая 2022, 17:22:26

Цитата(stefanvl от Суббота 28 Мая 2022, 02:39:37)

> Еще одна вещь, которую я не смог сделать, это извлечь оперативную память, я прочитал ответ 42, но здесь я запутался.

Из #42 сообщения топика
Код: [Выделить]

0D C4 CA B0 00 1A 00 80 20 11 0E 09 0F 00
^^ <- послать карте 5 байт
^^^^^^^^^^^^ <- а именно CAB0001A00
^^ <- принять от карты 1 байт (а именно квитанцию B0)
^^^^^^^^ <- задержка
^^ <- глитч
^^ <- ретранслировать от карты скрипту
все байты что карта пошлет

Задержку перебираем и при некоторой задержке карта бац ... и вываливает свое ОЗУ
Кстати, если непосредственно перед этой командой скормить карте
CA C4 00 00 0A
CA 48 00 0x 0A
94 08 00 00 00 00 00 00 00 00
то в выввлившемся ОЗУ будет виден ключ иссуера номер x
Еще один способ его получать
В #42 сообщении топика так и сделано и об этом сказано.
А если перед этим еще и выбрать провайдера CAA4...
то в дампе ОЗУ можно получить и его ключ, но
только из числа мастер-ключей 0..7 , поскольку CA48
с опер-ключами 8..F работать не пожелает.
Глитчерная команда 0F она только в доработанном мною софте глитчера есть.
Доработка где-то в топике описывалась. А без доработки вместо 0F воткни
BF BF BF BF BF
что-ли, т.е. принять 5 раз от карты по $40 байт.
Сказали Спасибо: balton, Sergio, skad163, lift-man, Shurik406, stefanvl
« Последнее редактирование: Суббота 28 Мая 2022, 17:55:29 от Ethereal »
Жалоба 212.109.29.221

#### stefanvl

- Прохожий
- 35
- 32 раза

##### Иформация о Eurocrypt (помните такое?)

« Ответ #423: Воскресенье 29 Мая 2022, 22:21:44 »
Чтобы попытаться получить оперативную память от карты ATR 03 Viasat, я провел следующий тест. Передача завершена, но оперативная память отсутствует.
Viasat M
'MK0 Issuer for Ec-M : 3F 67 2F 00 11 14 00 03 68 90 00 (C)Ethereal
' Tucker-glitcher + UL4S soft, Phase = 3 /CLK phase I&D/
Dim x, ANS
Sub Main()
Sc.Write("B0 FF")
x=0
While (ANS<>&h90) Or (x<>7)
Sc.Write("05 0E 03 01 8A 00"):RX
Sc.Write("0A 0E 03 C4 CA C4 00 00 0A 8C 00"):RX
Sc.Write("1E 0E 03 C4 CA 48 00 01 0A 80 C0 94 80 C0 08 80")
Sc.Write("C7 00 00 00 00 00 00 00 00 22 00 18 09 81 00"):RX
ANS=Sc.GetByte(5)
WEnd
Sc.Write("0D C4 CA B0 00 1A 00 80 20 11 0E 09 0F 00"):RX
End Sub
Function RX
Sc.Delay(200)
x=Sc.BytesInBuffer
Sc.Read(x)
End Function
Результат:
Executing Script: Script File:
TX Data : B0 FF
TX Data : 05 0E 03 01 8A 00
RX Data : 05 0B 3F 67 2F 00 11 14 00 03 68 90 00
TX Data : 0A 0E 03 C4 CA C4 00 00 0A 8C 00
RX Data : 0A 0D C4 93 08 3F E8 07 D3 9D 3E 9C AA 90 00
TX Data : 1E 0E 03 C4 CA 48 00 01 0A 80 C0 94 80 C0 08 80
TX Data : C7 00 00 00 00 00 00 00 00 22 00 18 09 81 00
RX Data : 1E 05 B7 B7 48 90 00
TX Data : 0D C4 CA B0 00 1A 00 80 20 11 0E 09 0F 00
RX Data : 0C 01 B0
Script Script File: Transmission Completed
Вероятно, я делаю это неправильно
C7 00 00 00 00 00 00 00 00 22 00 18 09 81 00
Я обнаружил эту задержку с помощью следующего сценария:
'MK0 Issuer for Ec-M : 3F 67 2F 00 11 14 00 01 68 90 00 (C)Ethereal
' Tucker-glitcher + UL4S soft, Phase = 3 /CLK phase I&D/
Dim x, ANS
Sub Main()
pause = &h220000
Sc.Write("B0 FF")
While (ANS <> &h90) Or (x <> 7) or (ANS <> &h00)
Sc.Write("05 0E 03 01 8A 00"):RX
Sc.Write("0A 0E 03 C4 CA C4 00 00 0A 8C 00"):RX
Sc.Write("1E 0E 03 C4 CA 48 00 00 0A 80 C0 94 80 C0 08 80")
Sc.Write("C7 00 00 00 00 00 00 00 00 " & hex(pause) & " 09 81 00"):RX
pause = pause + 1
delay(100)
ANS=Sc.GetByte(x - 2)
sc.print("Pause: "& hex(pause) & " " & hex(ans)):sc.print
WEnd
Sc.Write("0D C4 CA B0 00 1A 09 80 20 07 53 09 8A 00"):RX
End Sub
Function RX
Sc.Delay(200)
x=Sc.BytesInBuffer
Sc.Read(x)
End Function
0D C4 CA B0 00 1A 00 80 20 11 0E 09 0F 00
Я не уверен, как получить эту задержку...
- Спасибо
Жалоба Записан

#### Shurik406

- Начинаю писать
- 232
- 488 раз
- 58W |-----| 55E
  Много чего
  UK

##### Иформация о Eurocrypt (помните такое?)

« Ответ #424: Воскресенье 29 Мая 2022, 22:29:01 »
Цитата(stefanvl от Воскресенье 29 Мая 2022, 22:21:44)

> 0D C4 CA B0 00 1A 00 80 20 11 0E 09 0F 00
> Я не уверен, как получить эту задержку...

В цикле надо искать точку глюка. А тут ты ничего и не ищешь..

Подумал(a) и добавил(a): Воскресенье 29 Мая 2022, 22:31:46

Цитата(stefanvl от Воскресенье 29 Мая 2022, 22:21:44)

> C7 00 00 00 00 00 00 00 00 22 00 18 09 81 00

Это ты правильно нашёл, так и оставь. Теперь так же ищи точку после инструкции CA B0
- Спасибо
Сказали Спасибо: stefanvl
Жалоба Записан

#### stefanvl

- Прохожий
- 35
- 32 раза

##### Иформация о Eurocrypt (помните такое?)

« Ответ #425: Воскресенье 29 Мая 2022, 22:46:54 »
Спасибо
Что-то вроде этого?
Нужно ли искать от 200000? Если этот сценарий правильный?
&h200000 to &h20FFFF
'MK0 Issuer for Ec-M : 3F 67 2F 00 11 14 00 03 68 90 00 (C)Ethereal
' Tucker-glitcher + UL4S soft, Phase = 3 /CLK phase I&D/
Dim x, ANS
Sub Main()
sc.verbose = true
Sc.Write("B0 FF")
for pause = &h20075d to &h20FFFF 'B1EC
while ans <> &h90
Sc.Write("05 0E 03 01 8A 00") : RX
Sc.Write("0A 0E 03 C4 CA C4 00 00 0A 8C 00") : RX
Sc.Write("1E 0E 03 C4 CA 48 00 01 0A 80 C0 94 80 C0 08 80")
Sc.Write("C7 00 00 00 00 00 00 00 00 22 00 18 09 81 00") : RX
delay(400)
ANS=Sc.GetByte(x - 2)
wend
ans = 0
sc.verbose = true
Sc.Write("0D C4 CA B0 00 1A 00 80 " & hex(pause) & " 09 0F 00")
delay(400)
RX
next
end sub
Function RX
Sc.Delay(200)
x=Sc.BytesInBuffer
Sc.Read(x)
End Function
Похоже, что сценарий действительно что-то делает:
Executing Script: Script File:
TX Data : B0 FF
TX Data : 05 0E 03 01 8A 00
RX Data : 05 0B 3F 67 2F 00 11 14 00 03 68 90 00
TX Data : 0A 0E 03 C4 CA C4 00 00 0A 8C 00
RX Data : 0A 0D C4 93 08 CA 05 65 E8 A9 13 D0 CB 90 00
TX Data : 1E 0E 03 C4 CA 48 00 01 0A 80 C0 94 80 C0 08 80
TX Data : C7 00 00 00 00 00 00 00 00 22 00 18 09 81 00
RX Data : 1E 05 B7 B7 48 90 00
TX Data : 0D C4 CA B0 00 1A 00 80 20 07 5D 09 0F 00
RX Data : 0C 01 B0
TX Data : 05 0E 03 01 8A 00
RX Data : 05 0B 3F 67 2F 00 11 14 00 03 68 90 00
TX Data : 0A 0E 03 C4 CA C4 00 00 0A 8C 00
RX Data : 0A 0D C4 93 08 42 A2 3B 12 C2 8D AE 82 90 00
TX Data : 1E 0E 03 C4 CA 48 00 01 0A 80 C0 94 80 C0 08 80
TX Data : C7 00 00 00 00 00 00 00 00 22 00 18 09 81 00
RX Data : 1E 05 B7 B7 48 90 00
TX Data : 0D C4 CA B0 00 1A 00 80 20 07 5E 09 0F 00
RX Data : 0C 01 B0
TX Data : 05 0E 03 01 8A 00
RX Data : 05 0B 3F 67 2F 00 11 14 00 03 68 90 00
TX Data : 0A 0E 03 C4 CA C4 00 00 0A 8C 00
RX Data : 0A 0D C4 93 08 EF 57 6F CD A0 EB 13 4D 90 00
TX Data : 1E 0E 03 C4 CA 48 00 01 0A 80 C0 94 80 C0 08 80
TX Data : C7 00 00 00 00 00 00 00 00 22 00 18 09 81 00
RX Data : 1E 05 B7 B7 48 90 00
TX Data : 0D C4 CA B0 00 1A 00 80 20 07 5F 09 0F 00
RX Data : 0C 01 B0
TX Data : 05 0E 03 01 8A 00
RX Data : 05 0B 3F 67 2F 00 11 14 00 03 68 90 00
TX Data : 0A 0E 03 C4 CA C4 00 00 0A 8C 00
RX Data : 0A 0D C4 93 08 F0 32 B9 07 04 F4 FC 5F 90 00
TX Data : 1E 0E 03 C4 CA 48 00 01 0A 80 C0 94 80 C0 08 80
TX Data : C7 00 00 00 00 00 00 00 00 22 00 18 09 81 00
RX Data : 1E 05 B7 B7 48 90 00
TX Data : 0D C4 CA B0 00 1A 00 80 20 07 60 09 0F 00
Script Error on Line 27
Script Aborted By User
- Спасибо
Жалоба Записан

#### Shurik406

- Начинаю писать
- 232
- 488 раз
- 58W |-----| 55E
  Много чего
  UK

##### Иформация о Eurocrypt (помните такое?)

« Ответ #426: Воскресенье 29 Мая 2022, 23:00:24 »
Цитата(stefanvl от Воскресенье 29 Мая 2022, 22:46:54)

> Нужно ли искать от 200000? Если этот сценарий правильный?
> &h200000 to &h20FFFF

Я не помню где я выбил ОЗУ, но начинал с нуля. Вечером перед сном запустил, а утром был готов ОЗУ.
- Спасибо
Сказали Спасибо: stefanvl
Жалоба Записан

#### stefanvl

- Прохожий
- 35
- 32 раза

##### Иформация о Eurocrypt (помните такое?)

« Ответ #427: Воскресенье 29 Мая 2022, 23:02:26 »
Но сценарий выглядит хорошо?
Я видел, что вы также использовали
if x = 0 then
print "no response - resetting...".
Wx.ClosePort
sc.delay(1000)
Wx.OpenPort
вывести
конец if
В вашем решении.
- Спасибо
Жалоба Записан

#### Ethereal

- ВИП
- Старожил
- 1.581
- 8.611 раз

##### Иформация о Eurocrypt (помните такое?)

« Ответ #428: Понедельник 30 Мая 2022, 00:16:44 »
Цитата(stefanvl от Воскресенье 29 Мая 2022, 22:46:54)

> Нужно ли искать от 200000? Если этот сценарий правильный?
> &h200000 to &h20FFFF

Такой подход - это война с глупыми особенностями Visual Basic Script
Если ты в нем напишешь
For I = 0 To &h7FFF
то цикл ожидаемо исполнится 32768 (десятичное) раз,
но если напишешь
For I = 0 To &hFFFF
то этот цикл не исполнится ни разу. Долго объяснять почему.
Если в двух словах то Visual Basic Script думает
1.) Значения влезут в 16 бит, значит буду использовать
16-разрядные переменные
2.) А тогда получается цикл
For I = 0 To -1
который не должен исполниться ни разу,
потому-что Visual Basic Script на все числа смотрит как на
числа со знаком, а у таких чисел самый старший бит
равный единице это признак отрицательных чисел.
Поэтому Shurik406 пишет хитрую вещь
For I = &h200000 To &h20FFFF
Visual Basic видит что такие числа влезут только в
32-разрядные переменные и использует их.
При этом цикл исполняется 65536 (десятичное) раз.
И глитчеру передается от
20 00 00
до
20 FF FF
где 20 - глитчерная команда задержки,
а сама величина зедержки перебирается от 0000 до FFFF
Т.е. задержка перебирается от нуля.
Сказали Спасибо: lift-man, stefanvl
Жалоба 212.109.29.221

#### stefanvl

- Прохожий
- 35
- 32 раза

##### Иформация о Eurocrypt (помните такое?)

« Ответ #429: Понедельник 30 Мая 2022, 08:59:30 »
Когда я проснулся сегодня утром, у меня была ошибка от самой программы, Richedit error, can't insert line, что-то в этом роде. Записал последнюю попытку задержки и продолжил оттуда 20 4F 40
- Спасибо
Жалоба Записан

Страницы: « 1 ... 41 42 43 44 » Вверх
« предыдущая тема следующая тема »
Перейти в:

### Кто онлайн

Просматривают тему:
Ethereal и 1 Гость

### Быстрый ответ

В быстром ответе можно использовать BB-теги и смайлы.

Предупреждение: в данной теме не было сообщений более 120 дней.
Если не уверены, что хотите ответить, то лучше создайте новую тему.

- Базовые
- Дополнительные

[дополнительные смайлы]
Ошибка во время нажатия Спасибо
Спасибо...

Загружается...