Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Преобразование Integer > HEX [D7, XP]

St74 © (2005-12-11 08:09:00)
Уважаемые Гуру!

Есть у меня к вам такой вопросик.
Возможно ли перевести например(Вася > HEX)
или если я не ошибаюсь Integer > HEX.

Если можно то поконкретнее!

St74! 8)

St74 (2005-12-14 18:50:00) [1]
Удалено модератором
Примечание: Создание пустых сообщений

Woll= (2005-12-14 18:18:00) [2]
Тебе же ясно обьяснили Tor © (13.12.05 15:20) [7] 8)

St74 (2005-12-13 19:51:00) [3]
Удалено модератором
Примечание: Создание пустых сообщений

St74 (2005-12-13 16:09:00) [4]
Tor © (13.12.05 15:20) [7]

А мона применительно моего кода... ;)

Tor (2005-12-13 15:20:00) [5]
Точно не помню, но кажеться StrToInt переводит из Hex в Integer, тока $ не забудь в строку вставить.

St74 (2005-12-13 14:59:00) [6]
Удалено модератором
Примечание: Создание пустых сообщений

St74 (2005-12-13 13:44:00) [7]
Спасибо огромное!

Вы мне сильно помогли!
Но у меня теперь к вам родился ешё один вопрос...

Как при вводе в Edit1 записать переведённое из Integer в Hex (12345678910)
в определённые байты, моего приложения!

...
var
f: TFileStream;
s: byte;
begin
if BackupCheck.Checked then
CopyFile('MyApp.exe', 'MyApp.exe.bak', true); {создание резервной копии приложения}
f := TFileStream.Create('MyApp.exe', fmOpenReadWrite);
try
f.Seek($F22F8, soFromBeginning);{Это первая 9 в поле if Password = '(9)999999999'}
f.Read(s, sizeof(s));
if s = $39 then
begin
s := $31; {Как здесь применить вашу функцию преобразования Integer > Hex}
f.Seek($2F8, soFromBeginning);
f.Write(s, sizeof(s));
end;
... и т.д F2301

Я не силён в написании защиты своих приложений, но написал следующее

...
var
Password: string;

begin
Application.Title := 'MyApp';
if InputQuery('MyApp - Вход.', 'Введите Пароль для Авторизации.',
PassWord) then
if Password = '9999999999' then
begin
Application.CreateForm(TMyApp, MyApp);
Application.Run;
end
else
MessageDlg('Неправельный пароль. Программа будет закрыта!', mtError, [mbOk], 0);
end. {Да я знаю что вот это не стоит делать, но увы ... мал я ещё в Программировании!}
...

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

Заранее примного благодарен!

St74! 8)

begin...end (2005-12-11 16:08:00) [8]
> St74 (11.12.05 10:05) [2]

var
S1, S2: string;
L: Integer;
begin
S1 := 'Вася';
L := Length(S1);
SetLength(S2, 2 * L);
BinToHex(PChar(S1), PChar(S2), L);
ShowMessage(S2)
end

sniknik (2005-12-11 11:21:00) [9]
var i: integer; begin with Edit1, Label1 do begin Text:= 'Вася'; Caption:= ''; for i:= 1 to Length(Text) do Caption:= Caption + IntToHex(Ord(Text[i]), 2) + ' '; end; end;

St74 (2005-12-11 10:05:00) [10]
Имеется ввиду Преобразовать строку символов введённую в Edit.Text := 'Вася';
( Вася в HEX > C2 E0 F1 FF)

Или я как то не правельно изьясняюсь.

St74! ;)

begin...end (2005-12-11 08:50:00) [11]
> Вася > HEX

Что имеется в виду? Нужно составить строку из шестнадцатеричных представлений кодов символов строки "Вася? Тогда поможет функция BinToHex (модуль Classes).

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »