DaShanRen 发表于 2016-5-27 07:58:46

论坛代码贴使用方法

本帖最后由 DaShanRen 于 2016-5-27 08:00 编辑

1、在需要插入代码的地方，单击乒乓开关 ，弹出的对话框：

在对话框中选择语言、设置是否显示行号和输入或粘贴相应的代码，然后提交即可。
2、语言选择：

3、代码示例：
:004A7005 E8A600FAFF            call 004470B0
:004A700A 8B45FC                  mov eax, dword ptr
:004A700D 8B15A81C4B00            mov edx, dword ptr
:004A7013 E854D4F5FF            call 0040446C
:004A7018 752E                  jne 004A7048    》》》》这就是关键跳转jne改je
:004A701A 8B8300030000            mov eax, dword ptr
:004A7020 0580000000            add eax, 00000080
:004A7025 8B15A81C4B00            mov edx, dword ptr
:004A702B E884D0F5FF            call 004040B4
Private Sub Form_Resize()
    WebBrowser1.Height = Form1.Height - 1200
    WebBrowser1.Width = Form1.Width - 350
    Combo1.Width = Form1.Width - 1425
    Command1.Left = Form1.Width - 600
End Sub

#define C1 0x897E8120
#define C2 0xE894C465
#define C3 0x5671B3A6
#define C4 0x65488944
#define C5 0x48492458
#define C6 0x50540150
#define C7 0x76DBFAAF
#define C8 0x12165400

((((s4^s7)&C3)^s7)^C4) ^ (((s2^s8)&C5)^s8)==C1;
(((s6^s1)&C6)^s6)^ (((s3^s5)&C7)^s5^C8)==C2;

procedure TForm1.Button1Click(Sender: TObject);
const
c1 = $2927907884;
c2 = $1347682640;
c3 = $3902063717;
var
s1,s6, X, Y: LongWord;
Cnt: Integer;
begin
//ShowMessage(IntToStr(High(LongWord)));
X := High(LongWord) div 2;
Cnt := 0;
Y := 0;
for s1 := 0 to X do
begin
    for s6 := X downto 0 do
    begin
      if ((((s1 xor s6) and c2) xor s1)=c1) and
         ((((s6 xor s1) and c2) xor s6)=c3) then
      begin
      Memo1.Lines.Add(inttostr(s1)+'-'+inttostr(s6));
      Inc(Cnt);
      end;
    end;
    Inc(Y);
    Caption := IntToStr(Y * 100 div X) + '%';
    Application.ProcessMessages;
end;
ShowMessage(IntToStr(Cnt));
end;

JZL 发表于 2016-5-27 08:30:13

如果黑底更好。习惯黑底了。

飘云 发表于 2016-5-27 09:50:18

感谢DaShanRen科普~~

vitamin 发表于 2016-5-27 17:50:12

虽然早知道了，还是赞一个

DaShanRen 发表于 2016-5-27 21:13:08

JZL 发表于 2016-5-27 08:30
如果黑底更好。习惯黑底了。

你见过这个论坛有黑色背景的帖子么？

DaShanRen 发表于 2016-5-28 07:43:53

我更喜欢这样的：
:004A7005 E8A600FAFF            call 004470B0
:004A700A 8B45FC                  mov eax, dword ptr
:004A700D 8B15A81C4B00            mov edx, dword ptr
:004A7013 E854D4F5FF            call 0040446C
:004A7018 752E                  jne 004A7048    》》》》这就是关键跳转jne改je
:004A701A 8B8300030000            mov eax, dword ptr
:004A7020 0580000000            add eax, 00000080
:004A7025 8B15A81C4B00            mov edx, dword ptr
:004A702B E884D0F5FF            call 004040B4

hpindigo 发表于 2016-5-28 08:35:37

赞一个，谢谢科普.

雲裏霧裏 发表于 2016-5-28 19:27:19

感谢DaShanRen大神的科普课~~

hu007 发表于 2016-5-29 08:30:26

谢谢分享了！

小耗子 发表于 2016-6-9 08:13:33

看过了，还是不懂，没办法，小白一枚
页: [1] 2
查看完整版本: 论坛代码贴使用方法