Подскажите плз, иль мож у кого есть функция XOR (asm) на Delphi
что то вроде:

Function (Dec1, Dec2 : Integer) :Integer;
Begin
//конвертируем Dec1 в Bin
//конвертируем Dec2 в Bin
//побайтное сравнение (ХОР)
//конвертируем результат в интегер
End;

Можно и данную функцию на дельфи со вставкой асма

Заранее спасибо

| Сообщение посчитали полезным:

function TForm1.Int2XOR(I1, I2: Integer): Integer;
begin
asm
Mov ECX, I1
Mov EAX, I2
XOR EAX,ECX
mov Result,eax
end;
end;

Это верное решение?

| Сообщение посчитали полезным:

Khim пишет:
Подскажите плз, иль мож у кого есть функция XOR (asm) на Delphi
Оператор xor поддерживается почти во всех языках программирования.
Function a(Dec1, Dec2 : Integer) :Integer;
Begin
a:=Dec1 xor Dec2;
End;

| Сообщение посчитали полезным:

XOR можно и самому написать:


-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

Khim, вообщето в делфи и так есть xor. Пример - a := b xor c;

| Сообщение посчитали полезным:

SVIN95 пишет:
вообщето в делфи и так есть xor
серьезно, зачем придумывать велосипед, если и так все давно есть, или мы все тебя не правильно поняли

-----
Лучше быть одиноким, но свободным © $me

| Сообщение посчитали полезным:

дык, забыл про XOR на дельфе, прост была строка
XOR ESI...DWord [EAX + EDX]

ESI 3 3 раза в цикле и превращался в номер, EAX низначально = 0, в EDX вносится имя h - виде

вот и в ступор меня эта строка,

это из категории программы для новичков -> Ссылки на программы с простой защитой v2.2. ->http://files.tenmax.com/Teleport_Pro_Installer.exe

Прост хотел смастерить кейген, вот и "рожал" провильную процедуру выведения правильного номера

| Сообщение посчитали полезным:

EAX низначально = 0
XOR ESI...DWord [EAX + EDX]

EAX может быть индексом, а EDX указателем на переменную

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным: