Текущий архив: 2006.01.01;
Скачать: CL | DM;
Вниз
Преобразование Integer > HEX Найти похожие ветки
← →
St74 (2005-12-11 08:09) [0]Уважаемые Гуру!
Есть у меня к вам такой вопросик.
Возможно ли перевести например(Вася > HEX)
или если я не ошибаюсь Integer > HEX.
Если можно то поконкретнее!
St74! 8)
← →
begin...end © (2005-12-11 08:50) [1]> Вася > HEX
Что имеется в виду? Нужно составить строку из шестнадцатеричных представлений кодов символов строки "Вася? Тогда поможет функция BinToHex (модуль Classes).
← →
St74 (2005-12-11 10:05) [2]Имеется ввиду Преобразовать строку символов введённую в Edit.Text := "Вася";
( Вася в HEX > C2 E0 F1 FF)
Или я как то не правельно изьясняюсь.
St74! ;)
← →
sniknik © (2005-12-11 11:21) [3]
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;
← →
begin...end © (2005-12-11 16:08) [4]> 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
← →
St74 (2005-12-13 13:44) [5]Спасибо огромное!
Вы мне сильно помогли!
Но у меня теперь к вам родился ешё один вопрос...
Как при вводе в 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)
← →
St74 (2005-12-13 14:59) [6]Удалено модератором
Примечание: Создание пустых сообщений
← →
Tor © (2005-12-13 15:20) [7]Точно не помню, но кажеться StrToInt переводит из Hex в Integer, тока $ не забудь в строку вставить.
← →
St74 (2005-12-13 16:09) [8]Tor © (13.12.05 15:20) [7]
А мона применительно моего кода... ;)
← →
St74 (2005-12-13 19:51) [9]Удалено модератором
Примечание: Создание пустых сообщений
← →
Woll= (2005-12-14 18:18) [10]Тебе же ясно обьяснили Tor © (13.12.05 15:20) [7] 8)
← →
St74 (2005-12-14 18:50) [11]Удалено модератором
Примечание: Создание пустых сообщений
Страницы: 1 вся ветка
Текущий архив: 2006.01.01;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.029 c
