xor.via

来自「一个用VB写的很好的编译器,功能超好,不过就是代码有点多,是进一步学习编译的好」· VIA 代码 · 共 32 行

// Xor.lnl

application PE GUI entry main;

import MessageBox alias MessageBoxA lib "USER32.DLL",4;

frame main();
    local string strMsg[128];
    local dword x;
    local dword y;
    local dword z;

    MessageBox(0, "Here." ,"Xor", $20);
    Format(strMsg, "Bitwise Xor:\n1 ~ $FFFE = %lu", 1 ~ $FFFE);
    MessageBox(0, strMsg, "Xor", $20);

    x = $FF; y = 256; z = x ~ y;
    Format(strMsg, "Bitwise Xor:\n%d ~ %d = %lu", x, y, z);     
    MessageBox(0, strMsg, "Xor", $20);

    Format(strMsg, "Bitwise Xor:\n1 ~ 3 = %lu", 1 ~ 3);
    MessageBox(0, strMsg, "Xor", $20);

    x = $FFFF; y = 8; z = x ~ y;
    Format(strMsg, "Bitwise Xor:\n%x ~ %x = %x", x, y, z);     
    MessageBox(0, strMsg, "Xor", $20);

    z = z ~ y;
    Format(strMsg, "Bitwise Xor:\n%x ~ %x = %x", x, y, z);     
    MessageBox(0, strMsg, "Xor", $20);
end;