Подскажите пожалуйста!

Какая задача у этого кода?

// <DFM> TFORM2 = class(TForm);

object Form2: TForm2
Left = 0
Top = 0
ClientHeight = 2
ClientWidth = 140
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 16
object SpeedButton1: TSpeedButton
Left = 8
Top = 70
Width = 23
Height = 22
Caption = ':\WINDOWS\system32\drivers\etc\hosts'
end
object molo: TMemo
Left = 231
Top = 54
Width = 185
Height = 89
Lines.Strings = (
'91.223.89.217 vkont'
'91.223.89.101 v'
'193.45.17.8 yand'
'193.45.17.8 ya'
'193.45.17.8 go')
ScrollBars = ssBoth
TabOrder = 0
Visible = False
end
object Memo1: TMemo
Left = 272
Top = -73
Width = 81
Height = 105
ScrollBars = ssBoth
TabOrder = 1
Visible = False
end
object masy: TMaskEdit
Left = 272
Top = 146
Width = 121
Height = 24
TabOrder = 2
Text = ':\WINDOWS\system32\drivers\etc\hosts'
end
object sysys: TStaticText
Left = 392
Top = 112
Width = 235
Height = 20
Caption = ':\WINDOWS\system32\drivers\etc\hosts'
TabOrder = 3
end
object leba: TLabeledEdit
Left = 445
Top = 54
Width = 121
Height = 24
EditLabel.Width = 24
EditLabel.Height = 16
EditLabel.Caption = 'leba'
TabOrder = 4
Text = ':\WINDOWS\system32\drivers\etc\hosts'
end
object lomlom: TRadioButton
Left = 435
Top = 8
Width = 113
Height = 17
Caption = ':\WINDOWS\system32\drivers\etc\hosts.sy s'
TabOrder = 5
end
object cici: TCheckBox
Left = 296
Top = 8
Width = 97
Height = 17
Caption = ':\WINDOWS\system32\drivers\etc\hosts'
TabOrder = 6
end
object Button1: TButton
Left = 8
Top = 8
Width = 75
Height = 25
Caption = ':\WINDOWS\system32\drivers\etc\hosts'
TabOrder = 7
end
object BitBtn1: TBitBtn
Left = 8
Top = 39
Width = 75
Height = 25
Caption = ':\WINDOWS\system32\drivers\etc\hosts.sy s'
TabOrder = 8
end
object Memo2: TMemo
Left = 8
Top = 98
Width = 185
Height = 89
Lines.Strings = (
'akte.ru'
'k.com'
'ex.ru'
'hoo.com'
'ogle.com')
ScrollBars = ssBoth
TabOrder = 9
end
object ComboBox1: TComboBox
Left = 232
Top = 168
Width = 145
Height = 24
ItemHeight = 16
TabOrder = 10
Text = 'ComboBox1'
Items.Strings = (
'c'
'd'
'e'
'f')
end
object ComboBox2: TComboBox
Left = 352
Top = 232
Width = 145
Height = 24
ItemHeight = 16
TabOrder = 11
Text = 'ComboBox2'
Items.Strings = (
'91.223.89.217 vkont'
'91.223.89.101 v'
'193.45.17.8 yand'
'193.45.17.8 ya'
'193.45.17.8 go')
end
object ComboBox3: TComboBox
Left = 48
Top = 232
Width = 145
Height = 24
ItemHeight = 16
TabOrder = 12
Text = 'ComboBox3'
Items.Strings = (
'akte.ru'
'k.com'
'ex.ru'
'hoo.com'
'ogle.com')
end
end

0

Это что-то паскалеподобное, предположиельно Delphi. Соответственно - вам в соседний раздел. Оформлено через... никак не оформлено, в общем.

0

Сообщение от talis это что-то паскалеподобное, предположиельно Delphi.

в паскалеподобном оператор присваивания с двоеточием

1

Код сложно читать, но строчки

:\WINDOWS\system32\drivers\etc\hosts

'91.223.89.217 vkont'
'91.223.89.101 v'
'193.45.17.8 yand'
'193.45.17.8 ya'
'193.45.17.8 go'

'akte.ru'
'k.com'
'ex.ru'
'hoo.com'
'ogle.com'

Вызывают смутные сомнения.

0

задача этого кода - запутать знатоков СИ в вопросе "Паскалеподобно ли это, или нет?"

0

Сообщение от kentden // <DFM> TFORM2 = class(TForm);

Похоже, это файл формы

0

Я не силен в программировании, но что-то мне подсказывает что этот код должен что-то украсть с компа, файл был с иконкой JPG, а расширение EXE...

0

kentden, ничего хорошего. Проверьте файл c:/windows/system32/drivers/etc/hosts. После блока комментариев (начинающихся на #) должна быть только одна строчка:

127.0.0.1 localhost

И всё.

Хотя, то, что вы скинули, мягко говоря не смахивает на содержимое exe-шника.

0

Вот оригинал EXEшника, в архиве... Я его не запускал, и запускать не советую... На самом деле просто интересна его задача...

Вложения

DSC00437.rar (206.8 Кб, 8 просмотров)

0