关于我发的那个自制的CDKEY更换器贴被删的说明!

yishuanglin

关于这一点我要说明一下，我是作者，我是故意这样设置的!因为运行后就没有什么意义了，就自动让它在3秒后退出。这样都说是病毒，我无语了!也怪我没有说明清楚!


现在我将原代码发出来，vb开发的!



Public n As Integer
Public Function Generate_Key()
   
  Randomize
   
  Do
  num = Int((75 * Rnd) + 48)
  found = False
  If num >= 58 And num <= 64 Then
  found = True
  Else
  If num >= 91 And num <= 96 Then
  found = True
  End If
  End If
  If found = False Then
  RSKey = RSKey + Chr(num)
  End If
  Loop Until Len(RSKey) = 20
  Generate_Key = RSKey
  End Function
  
  

Private Sub Form_Load()
Set WSHShell = CreateObject("WScript.Shell")
  regPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Red Alert 3\ergc\"
  nt = WSHShell.Regwrite(regPath, UCase(Generate_Key()))
  End Sub

Private Sub Timer1_Timer()
n = n + 1
If n = 2 Then
Unload Me
End If
End Sub


希望看得懂的帮忙澄清一下，如果还不相信的可以自己用vb编译后再使用!


这就是我自制的那个cdkey更换器!

244059748

3q 3q
不能冤枉好人啊。
希望多出好作品

csdw1987

3q 3q
不能冤枉好人啊。
希望多出好作品

孤冰

表郁闷啦,,,,辛苦辛苦啦..

yishuanglin

自己顶一下，我正在郁闷中，哎20字啊，

yishuanglin

原帖由 yishuanglin 于 2008-10-30 18:14 发表
首先声明，本程序系本人亲自第一次做，代码精简，绝无病毒及广告！/

本人做网管多年，今天在网吧安装了ra3,下的是散装安装版的，一直等破解多时。今天早上看到破解已放出，下载下来安装好了，发现局域网联机说cdkey已使用，郁闷中。

...

这是我发这个被删的帖子的初忠

哇哇地

不懂~~ 不知道是真是假  但是出发点是好的 纯支持