- UID
- 26814
注册时间2007-2-2
阅读权限20
最后登录1970-1-1
以武会友
 
TA的每日心情 | 开心 2020-11-19 11:04 |
---|
签到天数: 1 天 [LV.1]初来乍到
|
本帖最后由 DaShanRen 于 2016-5-27 08:00 编辑
1、在需要插入代码的地方,单击乒乓开关
,弹出的对话框:
在对话框中选择语言、设置是否显示行号和输入或粘贴相应的代码,然后提交即可。
2、语言选择:
3、代码示例:
[Asm] 纯文本查看 复制代码 :004A7005 E8A600FAFF call 004470B0
:004A700A 8B45FC mov eax, dword ptr [ebp-04]
:004A700D 8B15A81C4B00 mov edx, dword ptr [004B1CA8]
:004A7013 E854D4F5FF call 0040446C
:004A7018 752E jne 004A7048 》》》》这就是关键跳转jne改je
:004A701A 8B8300030000 mov eax, dword ptr [ebx+00000300]
:004A7020 0580000000 add eax, 00000080
:004A7025 8B15A81C4B00 mov edx, dword ptr [004B1CA8]
:004A702B E884D0F5FF call 004040B4
[Visual Basic] 纯文本查看 复制代码 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
[C] 纯文本查看 复制代码 #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;
[Delphi] 纯文本查看 复制代码 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; |
评分
-
查看全部评分
|