Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Нужна функция StrToByte

Автор: AreYouFearless 23.10.2003, 19:31

Перевод String-a в Bytes.

Thx/

Автор: stab 23.10.2003, 19:40

Byte(str[i]), вот и весь перевод

Автор: Unregistered2 23.10.2003, 20:53

Вот нашел способ Против Дебага, но он на Паскале,
Помогите переделать в D5-D6.

{$A+,B-,D-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-}
unit AntiDbug;
interface
procedure AntiOn;
procedure AntiOff;
procedure HaltDebug;
implementation
var
Int01: Pointer absolute $0:$004;
Int03: Pointer absolute $0:$00C;
IntXX: Pointer absolute $0:$080;
{New interrupt, 04=$10, 20=$80}
SaveInt01, SaveInt03: Pointer;
procedure Cli; inline($FA); {Clear interrupts}
procedure Sti; inline($FB); {Store interrupts?}

procedure HaltDebug; assembler;
asm
push ds
xor ax, ax
mov ds, ax
mov ah, [046Ch]
@@TimerWait:
mov al, [046Ch]
cmp al, ah
je @@TimerWait
pop ds
end;

procedure AntiOn;
begin
Port[$21] := Port[$21] or $02;
Cli;
Int03 := IntXX;
Int01 := IntXX;
Sti;
end;

procedure AntiOff;
begin
Port[$21] := Port[$21] and $fd;
Cli;
Int01 := SaveInt01;
Int03 := SaveInt03;
Sti;
end;

begin
HaltDebug;
SaveInt01 := Int01;
SaveInt03 := Int03;
end.

Автор: Unregistered 23.10.2003, 20:55

Пардон