Шестнадцатиричные числа

[vasek123]

Сообщение от Serge_Bliznykov

в чём заключаются собственно задачи 1 и 2 не понял...
видимо, это доступно только "хакерам"...
а мне — нет..

vasek123, Вы бы для начала выучили, как пишется слово Assembler....

угу... уже... причём всем... правда, люди в автобусе при этом как то странно на меня смотрели...
так и должно было быть?! :D
___________________________________ __________________
vasek123, поймите, станете Вы хакером или нет - зависит только от Вас.... и все тут присутствующим на форуме, по большому счёту, это не так уж и важно...
Лишь бы Вы хорошо учились!
Удачи!

Задача 1 заключается в следующем :
заголовочный файл совершенно другой -не #include <math.h> а #include <iostream.h>
оператор вывода строки на экран пишется следующем образом : cout << "текст";
а cin >> переменная
В задаче №2 еще проще :
регистру ah присваивается число 9 но никак не десять
функции прерывания тут тоже неправильны , сообщение заканчивается следующем знаком $ (иначе программа будет работать пока не найдет этот знак) и наконец сегментный регистр не завершен !

Эти примеры между прочим для новичков которые начинают только самостоятельно изучать программирование (учебников что по Assembler что по C++ что по Delphi полным полно )
А что касается моих знаний придумайте как бороться со следующем вирусом (закрепляю в качестве вложения )
p.s. Вирус создан мной и я настоятельно рекомендую обращаться с ним крайне осторожно !

[mello]

Ну хотя бы уберите пробел перед запятой

Ошибки в С++ программе, которые вы не назвали:
- См эту строчку

cout >> "Привет" nameis;

здесь забыт оператор занесения в поток, надо вот так

cout << " Привет" << nameis;

- Согласно стандарту нет такого хедера <iostream.h>, есть хедер <iostream>
- Вся стандартная библиотека находится в пространствев имен std, поэтому в новых компиляторах этот код непройдет. необходимо писать не cout а std::cout и т.д.
- текст плохо отформатирован

[Serge_Bliznykov]

p.s. Вирус создан мной и я настоятельно рекомендую обращаться с ним крайне осторожно !

во-первых, я в этом не уверен.
во-вторых, Касперский его уже знает:
QUOTE][The requested URL http://www.programmersforum.ru/attac...8&d=1231391610 is infected with Email-Worm.VBS.Small.e virus[/QUOTE]
в-третьих, не надо ставить знак равенства между хакерами и дерьмовирмейкерами....
Хотя, соглашусь, хакеры тоже разные бывают...

[vasek123]

Сообщение от mello

Ну хотя бы уберите пробел перед запятой

Ошибки в С++ программе, которые вы не назвали:
- См эту строчку

cout >> "Привет" nameis;

здесь забыт оператор занесения в поток, надо вот так

cout << " Привет" << nameis;

- Согласно стандарту нет такого хедера <iostream.h>, есть хедер <iostream>
- Вся стандартная библиотека находится в пространствев имен std, поэтому в новых компиляторах этот код непройдет. необходимо писать не cout а std::cout и т.д.
- текст плохо отформатирован

смотря в какой среде писать , скажем в среде Borland C++ 6 Enterprice
поддерживается следующий код:

#include<iostream.h>

int main()
  {
    int namein;
    cout << "Привет как тебя зовут?";
    cin >> namein;
    cout << "Привет" << namein;
    return 0;
}

[vasek123]

Сообщение от Serge_Bliznykov

во-первых, я в этом не уверен.
во-вторых, Касперский его уже знает:
QUOTE][The requested URL http://www.programmersforum.ru/attac...8&d=1231391610 is infected with Email-Worm.VBS.Small.e virus

в-третьих, не надо ставить знак равенства между хакерами и дерьмовирмейкерами....
Хотя, соглашусь, хакеры тоже разные бывают...[/QUOTE]

Я не дерьмовирмейкер , если ты таким меня представляешь ,
по поводу вируса объясню следующее :
как программер так и хакер должны понимать алгоритм действий любого из вирусов чтобы уметь защитить свой компьютер от данных программ !

p.s. Прошу администрацию извинить меня за флуд допущенный на данном форуме !(если он имеется на нем по данной теме)

[Lorimiya]

Ужас!!! Тема началась простым вопросом, а дело дошло уже до выяснения, кто круче... Vasek123, разобрался-таки с пкреводом?

[mello]

где закрепляете (еще еда), что то я не вижу ничего..

[vasek123]

Сообщение от Lorimiya

Ужас!!! Тема началась простым вопросом, а дело дошло уже до выяснения, кто круче... Vasek123, разобрался-таки с пкреводом?

К сожалению еще пока нет (приходится возиться не только с delphi но и с С++ , и HTML и с Assembler одновременно-я самоучка , считаю что изучение языков программирования происходит легче когда пытаешься к ним подойти с нескольких сторон), кстати мне наверное кажется или так оно и есть но язык С++ легче Delphi (дело в том что в Delphi глобальные переменные объявляются после оператора var а в С++ что переменные что операторы надо заключать между специальных скобок {} и надо знать необходимые операторы включения ).Но что касается шестнадцатиричных чисел может решу когда нибудь потом -завтра к сожалению ехать в Приморск , к хирургу под нож !

[maladoy]

function BinToInt(Value: string): Integer;
 var
   i, iValueSize: Integer;
 begin
   Result := 0;
   iValueSize := Length(Value);
   for i := iValueSize downto 1 do
     if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));
 end;
// 10 в 2
function IntToBin(d: Longint): string;
 var
   x, p: Integer;
   bin: string;
 begin
   bin := '';
   for x := 1 to 8 * SizeOf(d) do
   begin
     if Odd(d) then bin := '1' + bin
     else
       bin := '0' + bin;
     d := d shr 1;
   end;
   Delete(bin, 1, 8 * ((Pos('1', bin) - 1) div 8));
   Result := bin;
 end;
//16 в 2
 function HexToBin(Hexadecimal: string): string;
 const
   BCD: array [0..15] of string =
     ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
     '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
 var
   i: integer;
 begin
   for i := Length(Hexadecimal) downto 1 do
     Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;
 end; //10 в 8
 function IntToOct(Value: Longint; digits: Integer): string;
 var
   rest: Longint;
   oct: string;
   i: Integer;
 begin
   oct := '';
   while Value <> 0 do
   begin
     rest  := Value mod 8;
     Value := Value div 8;
     oct := IntToStr(rest) + oct;
   end;
   for i := Length(oct) + 1 to digits do
     oct := '0' + oct;
   Result := oct;
 end;
  // 8 в 10
function OctToInt(Value: string): Longint;
 var
    i: Integer;
   int: Integer;
 begin
   int := 0;
   for i := 1 to Length(Value) do
   begin
     int := int * 8 + StrToInt(Copy(Value, i, 1));
   end;
   Result := int;
 end;

[vasek123]

Сообщение от maladoy

function BinToInt(Value: string): Integer;
var
i, iValueSize: Integer;
begin
Result := 0;
iValueSize := Length(Value);
for i := iValueSize downto 1 do
if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));
end;
// 10 в 2
function IntToBin(d: Longint): string;
var
x, p: Integer;
bin: string;
begin
bin := '';
for x := 1 to 8 * SizeOf(d) do
begin
if Odd(d) then bin := '1' + bin
else
bin := '0' + bin;
d := d shr 1;
end;
Delete(bin, 1, 8 * ((Pos('1', bin) - 1) div 8));
Result := bin;
end;
//16 в 2
function HexToBin(Hexadecimal: string): string;
const
BCD: array [0..15] of string =
('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
'1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
i: integer;
begin
for i := Length(Hexadecimal) downto 1 do
Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;
end; //10 в 8
function IntToOct(Value: Longint; digits: Integer): string;
var
rest: Longint;
oct: string;
i: Integer;
begin
oct := '';
while Value <> 0 do
begin
rest := Value mod 8;
Value := Value div 8;
oct := IntToStr(rest) + oct;
end;
for i := Length(oct) + 1 to digits do
oct := '0' + oct;
Result := oct;
end;
// 8 в 10
function OctToInt(Value: string): Longint;
var
i: Integer;
int: Integer;
begin
int := 0;
for i := 1 to Length(Value) do
begin
int := int * 8 + StrToInt(Copy(Value, i, 1));
end;
Result := int;
end;

Да вижу с массивами ты умеешь работать , а как насчет того чтобы это объяснить по Русски ? Другие могут не понять ! Кстати насчет доки , ты прав , ее необходимо читать !(скажем у меня только по Delphi учебников 6 , это если не считать учебников по Хакерству , по другим языкам программирования , по ремонту и модернизации компьютера и , наконец , по фотошопу). Мне данный пример в закодированном виде напомнил , то , как я писал три статьи по менеджменту (год назад мне пришло приглашение на работу начальником отдела кадров в ответ на мое резюме , но перед собеседованием надо было написать три статьи по менеджменту доступным для широкого круга людей). Спешу заметить что у меня начальное профессиональное образование , основная профессия : столяр-строитель а профессию офис-менеджера я освоил заочно на курсах ЕШКО .
p.s.На сегодня обошлось без операции , хотя хирург не исключает возможность остеомиелита .