写KEYGEN遇到了问题求助！
谢谢 斑竹 哎呀``` 真晕啊

写KEYGEN遇到了问题求助！
我晕  还要自己打造函数啊 delphi支持的函数那么少啊......
谢谢 laomms大哥 我回去研究研究吧........

[原创]菜鸟注册机编写基础教程（六）完
注册机 音乐 一般哪里能搞 到 .....
一般都是MP3的啊 汗```
好象MP3，WAV的不可以转成 xm的

[原创]菜鸟注册机编写基础教程（六）完
我也顶一个
学习！

写KEYGEN遇到了问题求助！
求 楼上大哥 帮忙写个 delphi版的呗？
拜托 本人垃圾实在搞 不出来了 .......
你那么厉害 一看就知道怎么搞的 拜托了写给我 回去学习研究
一下吧
看不懂我写的程序很正常没几个人能看的懂，因为我编程能力很差
拜托 laomms大哥

写KEYGEN遇到了问题求助！
我转 这样了 不过总提示有错误啊
procedure TForm1.Label3Click(Sender: TObject);
var
a,b,i:integer;
s:string;
begin
a := $49390305;
b := $48631220;
  for i:=1 to length(edit1.text) do
  begin
  a:=a xor ord(edit1.text[i]);//得到每一位的ASC码
  b:=b xor a;
  if (copy(a,j-6,2)) mod 2 =0 then a:= a shl 2;
  else
  a:=(a shl 2) xor $120331;
  end;
  edit2.text :=rightstr(a,4) +'-'+ leftstr(a,4) +'-'+ rightstr(b,4) +'-'+ leftstr(b,4);

  end;

end.

写KEYGEN遇到了问题求助！
请问 laomms大哥  上面 写的这个 keygen  转换成 delphi的代码是什么样的
？用delphi写 怎么写？

谁搞过.net程序？
晕啊 看了 他文章好几遍了 感觉是 思路 方面的
不过那个程序怎么使用都不知道 ......
搜索 google都没有

谁搞过.net程序？
DbgCLR 这调试器 哪里 有啊 我艘了 没艘到啊

谁搞过.net程序？
在reflector中看到的代码
-------------请问这算什么代码..... 看着眼睛都花了.........有这方面代码资料没......介绍点 请高人 指点啊 ......找了你们出的书（加密解密第2版也没有如下内容 汗啊.........眼睛彻底花了 ）
.method private hidebysig instance void A(object, [mscorlib]System.EventArgs) cil managed
{
      .maxstack 5
      .locals init (
            [0] [mscorlib]Microsoft.Win32.RegistryKey key1,
            [1] [mscorlib]Microsoft.Win32.RegistryKey key2,
            [2] [System.Windows.Forms]System.Windows.Forms.Cursor cursor1)
      L_0000: ldarg.0
      L_0001: ldfld [System.Windows.Forms]System.Windows.Forms.TextBox a.d::a
      L_0006: callvirt instance string [System.Windows.Forms]System.Windows.Forms.Control::get_Text()
      L_000b: ldstr ""
      L_0010: call bool string::op_Equality(string, string)
      L_0015: brfalse.s L_002b
      L_0017: ldstr "\u8bf7\u63d0\u4f9b\u6ce8\u518c\u6587\u4ef6\u7684\u8def\u5f84"
      L_001c: ldstr "\u6ce8\u518c"
      L_0021: ldc.i4.0
      L_0022: ldc.i4.s 64
      L_0024: call [System.Windows.Forms]System.Windows.Forms.DialogResult [System.Windows.Forms]System.Windows.Forms.MessageBox::Show(string, string, [System.Windows.Forms]System.Windows.Forms.MessageBoxButtons, [System.Windows.Forms]System.Windows.Forms.MessageBoxIcon)
      L_0029: pop
      L_002a: ret
      L_002b: ldsfld [mscorlib]Microsoft.Win32.RegistryKey [mscorlib]Microsoft.Win32.Registry::LocalMachine
      L_0030: stloc.0
      L_0031: ldloc.0
      L_0032: ldstr "SOFTWARE\\QQMailSend"
      L_0037: ldc.i4.1
      L_0038: callvirt instance [mscorlib]Microsoft.Win32.RegistryKey [mscorlib]Microsoft.Win32.RegistryKey::OpenSubKey(string, bool)
      L_003d: stloc.1
      L_003e: ldarg.0
      L_003f: callvirt instance [System.Windows.Forms]System.Windows.Forms.Cursor [System.Windows.Forms]System.Windows.Forms.Control::get_Cursor()
      L_0044: stloc.2
      L_0045: ldarg.0
      L_0046: call [System.Windows.Forms]System.Windows.Forms.Cursor [System.Windows.Forms]System.Windows.Forms.Cursors::get_WaitCursor()
      L_004b: callvirt instance void [System.Windows.Forms]System.Windows.Forms.Control::set_Cursor([System.Windows.Forms]System.Windows.Forms.Cursor)
      L_0050: ldarg.0
      L_0051: callvirt instance void [System.Windows.Forms]System.Windows.Forms.Control::Refresh()
      L_0056: ldc.i4 1503
      L_005b: call void [mscorlib]System.Threading.Thread::Sleep(int32)
      L_0060: ldarg.0
      L_0061: ldloc.2
      L_0062: callvirt instance void [System.Windows.Forms]System.Windows.Forms.Control::set_Cursor([System.Windows.Forms]System.Windows.Forms.Cursor)
      L_0067: ldarg.0
      L_0068: ldfld B.A a.d::A
      L_006d: ldsfld unsigned int8[] a.q::A
      L_0072: ldarg.0
      L_0073: ldfld B.A a.d::A
      L_0078: ldarg.0
      L_0079: ldfld B.A a.d::A
      L_007e: callvirt instance string B.A::A()
      L_0083: ldarg.0
      L_0084: ldfld [System.Windows.Forms]System.Windows.Forms.TextBox a.d::a
      L_0089: callvirt instance string [System.Windows.Forms]System.Windows.Forms.Control::get_Text()
      L_008e: callvirt instance unsigned int8[] B.A::A(string, string)
      L_0093: callvirt instance unsigned int8[] B.A::B(unsigned int8[], unsigned int8[])
      L_0098: pop
      L_0099: leave.s L_00de
      L_009b: pop
      L_009c: ldstr "\u6ce8\u518c\u6587\u4ef6\u4e0d\u6b63\u786e"
      L_00a1: ldstr "\u6ce8\u518c"
      L_00a6: ldc.i4.0
      L_00a7: ldc.i4.s 16
      L_00a9: call [System.Windows.Forms]System.Windows.Forms.DialogResult [System.Windows.Forms]System.Windows.Forms.MessageBox::Show(string, string, [System.Windows.Forms]System.Windows.Forms.MessageBoxButtons, [System.Windows.Forms]System.Windows.Forms.MessageBoxIcon)
      L_00ae: pop
      L_00af: ldloc.1
      L_00b0: ldstr "IsRegistered"
      L_00b5: ldstr "false"
      L_00ba: callvirt instance void [mscorlib]Microsoft.Win32.RegistryKey::SetValue(string, object)
      L_00bf: ldloc.1
      L_00c0: callvirt instance void [mscorlib]Microsoft.Win32.RegistryKey::Close()
      L_00c5: ldarg.0
      L_00c6: ldfld [System.Windows.Forms]System.Windows.Forms.TextBox a.d::a
      L_00cb: callvirt instance bool [System.Windows.Forms]System.Windows.Forms.Control::Focus()
      L_00d0: pop
      L_00d1: ldarg.0
      L_00d2: ldfld [System.Windows.Forms]System.Windows.Forms.TextBox a.d::a
      L_00d7: callvirt instance void [System.Windows.Forms]System.Windows.Forms.TextBoxBase::SelectAll()
      L_00dc: leave.s L_0139
      L_00de: ldarg.0
      L_00df: ldfld [System.Windows.Forms]System.Windows.Forms.TextBox a.d::a
      L_00e4: callvirt instance string [System.Windows.Forms]System.Windows.Forms.Control::get_Text()
      L_00e9: call string a.q::b()
      L_00ee: ldc.i4.1
      L_00ef: call void [mscorlib]System.IO.File::Copy(string, string, bool)
      L_00f4: ldstr "\u6ce8\u518c\u6210\u529f! \u8bf7\u91cd\u65b0\u542f\u52a8\u7a0b\u5e8f!"
      L_00f9: ldstr "\u6ce8\u518c"
      L_00fe: ldc.i4.0
      L_00ff: ldc.i4.s 64
      L_0101: call [System.Windows.Forms]System.Windows.Forms.DialogResult [System.Windows.Forms]System.Windows.Forms.MessageBox::Show(string, string, [System.Windows.Forms]System.Windows.Forms.MessageBoxButtons, [System.Windows.Forms]System.Windows.Forms.MessageBoxIcon)
      L_0106: pop
      L_0107: ldloc.1
      L_0108: ldstr "IsRegistered"
      L_010d: ldstr "true"
      L_0112: callvirt instance void [mscorlib]Microsoft.Win32.RegistryKey::SetValue(string, object)
      L_0117: ldloc.1
      L_0118: callvirt instance void [mscorlib]Microsoft.Win32.RegistryKey::Close()
      L_011d: ldsfld bool a.e::a
      L_0122: brtrue.s L_0129
      L_0124: call void a.e::b()
      L_0129: ldarg.0
      L_012a: call instance void [System.Windows.Forms]System.Windows.Forms.Form::Close()
      L_012f: call [System]System.Diagnostics.Process [System]System.Diagnostics.Process::GetCurrentProcess()
      L_0134: callvirt instance void [System]System.Diagnostics.Process::Kill()
      L_0139: ret
      .try L_0067 to L_009b catch object handler L_009b to L_00de
}

------------

谁搞过.net程序？
全是E文 的有  汉化过的没
还有啊 看不到 汇编码 反倒不习惯了

谁搞过.net程序？
THX看雪大哥
不过 这类程序 PJ跟  我们平时看到的  vc  delphi的搞时候有什么 区别和要注意的没 ？

说说 狗 ，壳 ，锁？
多谢 各位大虾 我去搜索一下 帖子吧   看见壳 的文章多一些
狗 没 看见过 几个

说说 狗 ，壳 ，锁？
晕  在多说两句吧 ......
还有 打狗 是不是 ？
象脱壳那样 还是什么样的 ？
是不是  也可以爆破？改指令可以不 ？
如果 程序可以正常运行了（无论用什么方法打的） 是不是就算  打掉了 即 打狗成功？

看完了论坛里的破文准备自己也写一个keygen锻炼一下不过遇到 问题
对了  2楼哥们 问一下  汇编中有 shl sal ...各种位移
delphi中就有  shl 足够了吗？
请教一下 一些细节问题
谢谢 请回 帖子

看完了论坛里的破文准备自己也写一个keygen锻炼一下不过遇到 问题
我刚学delphi  不好意思
上面的代码是对的了？