Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/21: Рейтинг темы: голосов - 21, средняя оценка - 4.62
7 / 7 / 4
Регистрация: 13.09.2013
Сообщений: 96

Расшифровать символы из исходного кода страницы

29.09.2014, 23:09. Показов 4436. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Делаю запрос,получаю исходный код страницы,но там смс уже в коде зашифрована т.е. \u0426\u0438\u0442\u0430\u0442\u0430 ,пытаюсь разшифроватб программно,не получается ,вот ТУТ смог расшифровать эти символы,а как сделать это программно?
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
29.09.2014, 23:09
Ответы с готовыми решениями:

IE не всегда открывает страницы, показывает что-то наподобие исходного кода страницы
Всех приветствую! У меня вчера какая-то беда приключилась на компе. Возможно вирус навредил. Опишу по порядку, как всё происходило. ...

Просмотр исходного кода страницы
Возможно ли узнать, просматривает ли пользователь исходный код страницы, черз php

Граббинг исходного кода страницы
Пишу нечто типа RSS читалки. Делаю класс, унаследованный от ListBox: конструктор: public MatchDates() { ...

1
 Аватар для Mawrat
13114 / 5895 / 1708
Регистрация: 19.09.2009
Сообщений: 8,809
30.09.2014, 16:55
Лучший ответ Сообщение было отмечено Molas как решение

Решение

Это форма записи последовательности двухбайтных кодов символов. Код задан в шестнадцатиричной системе счисления. "\u" - означает, что это код символа UNICODE. Например, "\u041e" - здесь значение 04 является кодом языковой страницы: 04 - соответствует русскому языку. "1e" - код символа на языковой странице 04.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
//Функция выполняет преобразование:
//\u042d\u0442\u043e\u0020\u043f\u0440\u0438\u043c\u0435\u0440 -> 'Это пример'.
function UStrToWideStr(const aUStr : String) : WideString;
var
  i, j, Len : Integer;
begin
  Len := Length(aUStr) div 6;
  SetLength(Result, Len);
  j := 3;
  for i := 1 to Len do begin
    Result[i] := WideChar( StrToInt('$' + Copy(aUStr, j, 2)) shl 8
      + StrToInt('$' + Copy(aUStr, j + 2, 2)) );
    Inc(j, 6);
  end;
end;
 
//Проверка.
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  {Если String = AnsiString (например, в Delphi 7), то преобразование
  WideString -> AnsiString выполнится автоматически при присвоении.}
 
  Memo2.Text := UStrToWideStr(Trim(Memo1.Text));
  {Или, если в Memo1 исходный текст поделён на строки, то так:}
  {
  Memo2.Clear;
  for i := 0 to Memo1.Lines.Count - 1 do
    Memo2.Lines.Add(UStrToWideStr(Trim(Memo1.Lines[i])));
  }
end;
Добавлено через 4 минуты
По этой теме: \u0421\u043a\u0430\u0439\u0440\u0438\u043c - что это?. Там UI показал ещё один способ.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.09.2014, 16:55
Помогаю со студенческими работами здесь

Получение исходного кода страницы
есть страница и надо получить ее исходный код. Раньше (примерно неделю назад) работало все как по маслу но теперь failed to open stream:...

Получение исходного кода страницы
При получении исходного кода нету половины результата, пришел к выводу что данные подгружаются JavaScript, с помощью какой библиотеки или...

изменение исходного кода страницы
Здравствуйте! Скажите, можно ли изменить исходный код страницы, имея только доступ к админке сата?

Изменение исходного кода страницы
Привет! я хочу сделать такую программу чтобы она позволяла менять код html через код элемента )

Загрузка исходного кода страницы
Я думаю все знают, что можно в браузере просматривать исходный код. Правой кнопкой мыши по странице, в контекстном меню выбрать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru