VPF::Переполнение буфера - Форум программистов

Keeper89

Дата 20.3.2009, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Добрый вечер!

Подскажите, пожалуйста, пару простых примеров кода на Delphi/Pascal с возможностью переполнения буфера. (то есть пример такого уязвимого кода).

Заранее благодарен.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

bems

Дата 20.3.2009, 19:57 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Код


var s:string; p:PChar;
begin
s := 'йа асёл а ни хакир';
GetMem(p, (length(s)-1)*SizeOf(char));
CopyMemory(p, PChar(s),  length(s)*SizeOf(char));
end

--------------------

Обижено школьников: 8

Keeper89

Дата 20.3.2009, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

bems, с указателями все понятно, спасибо за "освежение" памяти.
Меня больше интересует вопрос: встроенные типы Delphi (без PChar и т.п.) не подвержены этому? Например, переполнение Integer или ограниченной строки типа String[10]?

Это сообщение отредактировал(а) Keeper89 - 20.3.2009, 22:20

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Rrader

Дата 21.3.2009, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Касательно строк - в любом случае для переполнения придется портить место, по которому в нормальных условиях определяется конец строки smile

Код


procedure TForm1.Button1Click(Sender: TObject);
type
  TMyStruct = record
    case Boolean of
      True: (FValueByte: Byte);
      False: (FValue6: String[6]);
    end;
var
  S: TMyStruct;
begin
  S.FValue6 := '123456';
  S.FValueByte := 8;
  ShowMessage(S.FValue6);
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »