DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: fansxs
今日帖子: 12
在线用户: 19
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 tonzi (tonzi) ▲▲▲▲△ -
注册会员
2018/7/23 12:59:24
标题:
Rad Studio 10.2.3 Tokyo 3231 KeyGen Source 浏览:3503
加入我的收藏
楼主: 使用时注明出处。不然……哈哈
New(RadStudioVersion);
  with RadStudioVersion^ do
  begin
    Name := 'Rad Studio 10.2.3 Tokyo 3231';
    Ver := '25.0.31059.3231';
    BDSVersion := '19.0';
    LicVerStr := '10.2 Tokyo';
    LicHostPID := 8219;
    LicHostSKU := 52;
    LicDelphiPID := '2025';
    LicCBuilderPID := '4022';
    BdsPatchInfo.Crc := $CE8FA21E;
    BdsPatchInfo.Sha1 := '8daa98dbc558ec81cf582ec8c71233d9ab5fb76a';
    BdsPatchInfo.PatchOffset := $1E95D;
    BdsPatchInfo.FinalizeArrayOffset := $111268;
    LicenseManagerPatchInfo.Crc := $1127F753;
    LicenseManagerPatchInfo.Sha1 := '485dcb165cdefe3f3e50090bf8cfafb8bca5b46f';
    LicenseManagerPatchInfo.PatchOffset := $1E4939;
    LicenseManagerPatchInfo.FinalizeArrayOffset := $607828;
    mOasisRuntimePatchInfo.Sha1 := '30dc7ee5931b2f88904c60b5469144673bc544a8';
    mOasisRuntimePatchInfo.PatchOffset := $166F85;
    SetupGUID := '{15CEC4B7-6F61-4D40-9491-255657E369A2}';
……
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/23 13:01:29
1楼: 强顶。
要不要把您的 QQ 号写到 感谢名单中?

可惜不是红色的。
此帖子包含附件:
PNG 图像
大小:134.3K
----------------------------------------------
(C)(P)Flying Wang
作者:
男 freecat (freecat) ★☆☆☆☆ -
盒子活跃会员
2018/7/23 13:28:56
2楼: 一般喜欢用53
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/23 13:29:00
2楼: RAD Studio 10.2.3 Tokyo Release 3 东京 UP3 网盘分享 + 安装破解指导
http://www.2pascal.com/forum.php?mod=viewthread&tid=3005&fromuid=4
(出处: 2Pascal-新时代的Pascal)

支持 3231 了。
多谢楼主。

这个数值 53 破解不了(CRC SHA 都换成 53 的了)。
53 可能需要另一个。

另外,53 52 到底安装出来,有那些功能或组件上的区别?
求解答。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 bdl1 (bdl1) ▲▲▲△△ -
注册会员
2018/7/23 13:32:30
3楼: 开心,多谢楼上各位!
----------------------------------------------
-我的新浪博客
作者:
男 freecat (freecat) ★☆☆☆☆ -
盒子活跃会员
2018/7/23 13:49:52
4楼: 用53 crc sha当然不同 exe不一样
52是Ent/Arc 2合1 53是纯Arc  其他具体差别我也不清楚
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/23 14:15:02
5楼: 楼上的,我已经不同了啊
求 53 的
    BdsPatchInfo.PatchOffset := ?;
    BdsPatchInfo.FinalizeArrayOffset := $111268;
----------------------------------------------
(C)(P)Flying Wang
作者:
男 star5 (星五) ▲▲▲▲▲ -
盒子活跃会员
2018/7/23 16:01:14
6楼: 路过
----------------------------------------------
博客 - http://offeu.com
作者:
男 wuxiangyang (wxy) ★☆☆☆☆ -
盒子活跃会员
2018/7/23 20:12:46
7楼: 楼上都是大神
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/24 9:33:58
8楼: 根据 emailx45 大侠的 SHFolder.dll
得到
50 53 的
//    BdsPatchInfo.PatchOffset:=$1E955;
和 52 的不通用。
问题在于,如何得到 这个的。看了大神的 gif 也得不到这个值。

社区版是 50,但是用 emailx45 大侠的工具,启动还是显示 架构师。
如果能显示 社区版 就好玩了。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 freecat (freecat) ★☆☆☆☆ -
盒子活跃会员
2018/7/24 9:44:06
9楼: 只是显示问题 你要显什么字符都可以的
----------------------------------------------
-
作者:
男 sxbug (太阳雨) ★☆☆☆☆ -
盒子活跃会员
2018/7/24 11:17:19
10楼: 能在10.2的版本上升级安装吗?以前装了好多控件,不想重装
谢谢
----------------------------------------------
-
作者:
男 bdl1 (bdl1) ▲▲▲△△ -
注册会员
2018/7/24 13:42:00
11楼: 如果是用iso安装的,就可以。
----------------------------------------------
-我的新浪博客
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2018/7/24 14:42:20
12楼: @ 10楼:
在注册表中找到Delphi安装路径下的Known Packages项目,导出备份到文件,打开备份文件删掉除了你自己安装的控件之外的包,再将你安装的控件全部备份,重新安装好delphi之后将备份的控件拷回到原来的目录,再将之前备份的注册表文件导入到系统中就可以了。这样就不用一个个去安装了。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 偶的生活博客  偶的技术军事博客
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/24 17:35:31
13楼: 我已经成功的将 52 ,显示为 社区版了。
前提是,DELPHI 和 CB 只能安装一个。
否则 就不会显示 红色的 社区版,破解还是有效。

下图的工具,用的是 楼主的代码。修改了一下 slip 文件的内容而已。
此帖子包含附件:
JPEG 图像
大小:76.7K
----------------------------------------------
(C)(P)Flying Wang
作者:
男 emailx45 (emailx45) ▲▲△△△ -
注册会员
2018/7/25 5:21:56
14楼: @wang_80919

where is the the code source -- the Repository WAS TAKEDOWN!

"Repository unavailable due to DMCA takedown.
This repository is currently disabled due to a DMCA takedown notice. We have disabled public access to the repository. The notice has been publicly posted.

If you are the repository owner, and you believe that your repository was disabled as a result of mistake or misidentification, you have the right to file a counter notice and have the repository reinstated. Our help articles provide more details on our DMCA takedown policy and how to file a counter notice. If you have any questions about the process or the risks in filing a counter notice, we suggest that you consult with a lawyer."
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/25 8:44:04
15楼: 你可以找 github 算账。
上周 这个页面还可以访问呢。
github 好像也是 看 流行程度。不流行了就放开了。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 emailx45 (emailx45) ▲▲△△△ -
注册会员
2018/7/25 10:30:42
16楼: my test installing RAD Sdutio XE10.2.3 Arch 25.0.31059.3231 on a VirtualBox with Keygen to ...53-3231

按此在新窗口浏览图片

按此在新窗口浏览图片
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/25 10:52:05
17楼: 楼上,您是不是想说,我忘了在 感谢名单中 加您了?
----------------------------------------------
(C)(P)Flying Wang
作者:
男 ken_hsiao (ken) ▲▲▲▲▲ -
普通会员
2018/7/27 10:54:04
18楼: 安装后,也破解完成,之前的版本破解后GETIT可以使用,这次却不行,不知道有没有办法解决呢,谢谢!
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/27 12:39:32
19楼: 楼上,你这叫 不知死活。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 hex01 (hexzeroone) ▲△△△△ -
注册会员
2018/8/2 10:13:03
20楼: I'm new user here, chinese and english isn't my native language, i'm decide to learn chinese (read and write), so forgive me if i write here in English.

I love to see how @wang_80919 update the @elseif keygen, can you share the keygen here, especially for the updated source code? Thanks a lot.

hex01
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/8/2 10:19:33
21楼: the code on github.
and you can learn how to search file on internet.
----------------------------------------------
(C)(P)Flying Wang
作者:
男 hex01 (hexzeroone) ▲△△△△ -
注册会员
2018/8/2 10:37:38
22楼: @wang_80919, i already have or found the latest keygen's src by elseif but didn't found one like you already done. Can you help me with a some clue? Thanks for kindness

hex01
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/8/2 10:41:07
23楼: I just change RadLicense.pas
change CreateLicenseText
like

  Result:='11'#10;
  Result := Result + 'e.pkg'#10;
  if Delphi and CB then
  begin
    Result := Result + 'RAD Studio ';
  end
  else if Delphi then
  begin
    Result := Result + 'Delphi ';
  end
  else if CB then
  begin
    Result := Result + 'C++ Builder ';
  end
  else
  begin
    Result := Result + 'RAD Studio ';
  end;
  Result := Result + RadStudioVersion^.LicVerStr;
  if ceMode then
  begin
    Result := Result + ' Community Edition'#10;
  end
  else
  begin
    Result := Result + ' Architect'#10;
  end;
  Result:=Result+'e.pt'#10'10'#10;
  Result:=Result+'e.sign'#10'0'#10;

//some code


  TempCount := 4;
  if Delphi then
   Inc(TempCount);
  if CB then
   Inc(TempCount);
  Result:=Result + IntToStr(TempCount) + #10; //项目数

  if Delphi then
  begin
    TempCount := 26;
    Result:=Result + IntToStr(TempCount) + #10;
    Result:=Result+'active'#10'T'#10;

//some code
----------------------------------------------
(C)(P)Flying Wang
作者:
男 hex01 (hexzeroone) ▲△△△△ -
注册会员
2018/8/2 10:53:36
24楼: @wang_80919, thanks a lot for your clue, i will try to adopt it, please help when i found some issues. Have a nice day.

hex01
----------------------------------------------
-
作者:
男 hex01 (hexzeroone) ▲△△△△ -
注册会员
2018/8/2 11:02:31
25楼: @wang_80919, Just to make sure,can you explain what about sku=52 and sku=53, what the different both of it. What sku that represent for full Architect version? Also can you also create a working .slip for interbase server?

hex01
----------------------------------------------
-
作者:
男 hex01 (hexzeroone) ▲△△△△ -
注册会员
2018/8/2 12:06:19
26楼: @wang_80919, i have no idea where to put TempCount, and what is TempCount exactly means? can you post your whole RadLicense.pas or privately to mey email at hexzeroone@gmail.com. TIA

hex01
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/8/2 12:50:45
27楼: I don't known 53 and 53 diff.
and I can not patch interbase .I can not patch anything.
and no.
----------------------------------------------
(C)(P)Flying Wang
作者:
男 emailx45 (emailx45) ▲▲△△△ -
注册会员
2018/8/3 2:34:39
28楼: does anybody can post the link to last SOURCE CODE from  keygen updated ?

on GitHub was deleted....

thanks for your time
----------------------------------------------
-
作者:
男 hex01 (hexzeroone) ▲△△△△ -
注册会员
2018/8/3 5:55:13
29楼: @emaix45, i still didn't found any updated keygen's source code that can works for others version except the Architect. 
I try to update the elseif original keygen with the clue from @wang_80919 but still can't make it works, i think it have to update 3 files: RadVersion.pas (this already done), RadLicense.pas (still trying), RadKeygen.pas (i think this have to updated too).
May be @wang_80919 will help us more, just hope :D.

hex01
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/8/3 8:53:37
30楼: RadKeygen.pas
no need change.
mybe,you need add some UpperCase(xxx) for Sha1 and md5 string.

RadVersion.pas

  New(RadStudioVersion);
  with RadStudioVersion^ do
  begin
    Name:='Rad Studio 10.2.3.3231 Tokyo Not Hot Release 3 inline Enterprise/Architet/Ultimate';
    Ver:= '25.0.31059.3231';
    BDSVersion:='19.0';
    LicVerStr:= '10.2 Tokyo Not Hot';
    LicHostPID:= 8219;
    LicHostSKU:= 52;
    LicDelphiPID:='2025';
    LicCBuilderPID:='4022';
    LicDelphiVer:='25';
    LicCBuilderVer:='19';

//50 bds.exe //Community or Professional Edition
//    BdsPatchInfo.Crc:=$988D5AEE;
//    BdsPatchInfo.Sha1:='D3BF59A1CBBEA3C563191302778F95C95A575461';
//    BdsPatchInfo.PatchOffset:=$1E955; //by emailx45@yahoo.com.br

//53 bds.exe //Architet
//    BdsPatchInfo.Crc:=$AD26B64B;
//    BdsPatchInfo.Sha1:='182ECCFBFE6D94F41E6587897D458FFF2F755210';
//    BdsPatchInfo.PatchOffset:=$1E955; //by emailx45@yahoo.com.br

//52 bds.exe //Enterprise/Architet/Ultimate
    BdsPatchInfo.Crc:=$CE8FA21E;
    BdsPatchInfo.Sha1:='8DAA98DBC558EC81CF582EC8C71233D9AB5FB76A';
    BdsPatchInfo.PatchOffset:=$1E95D; //by tonzi@163.com QQ 2669242518
    BdsPatchInfo.FinalizeArrayOffset:=$00111268;

    LicenseManagerPatchInfo.Crc:=$1127F753;
    LicenseManagerPatchInfo.Sha1:='485DCB165CDEFE3F3E50090BF8CFAFB8BCA5B46F';
    LicenseManagerPatchInfo.PatchOffset:=$1E4939;
    LicenseManagerPatchInfo.FinalizeArrayOffset:=$607828;

    mOasisRuntimePatchInfo.Sha1:='30DC7EE5931B2F88904C60B5469144673BC544A8';
    mOasisRuntimePatchInfo.PatchOffset:=$00166F85;
    SetupGUID:='{15CEC4B7-6F61-4D40-9491-255657E369A2}';
    ISOUrl:='http://altd.embarcadero.com/download/radstudio/10.2/delphicbuilder10_2_3__93231.iso';
    ISOMd5:='40D693B9989F7CCDF07C07EA676D1AB2';
  end;
  VerList.AddObject(RadStudioVersion^.Name,TObject(RadStudioVersion));

RadLicense.pas
Just change the title for show. it just a string .

all code found from internet.
----------------------------------------------
(C)(P)Flying Wang
作者:
男 hex01 (hexzeroone) ▲△△△△ -
注册会员
2018/8/3 13:02:52
31楼: @wang_80919, where should i put these codes in RadLicense.pas
//some code


  TempCount := 4;
  if Delphi then
   Inc(TempCount);
  if CB then
   Inc(TempCount);
  Result:=Result + IntToStr(TempCount) + #10; //项目数

  if Delphi then
  begin
    TempCount := 26;
    Result:=Result + IntToStr(TempCount) + #10;
    Result:=Result+'active'#10'T'#10;

//some code

What is exactly TempCount represent?

Thx a lot.

hex01
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/8/3 13:49:08
32楼: you need learn algorithms and data structures

RadLicense.pas no need change.
it works fine.
----------------------------------------------
(C)(P)Flying Wang
作者:
男 littlestone08 (littlestone08) ▲▲▲▲▲ -
普通会员
2018/8/6 10:31:18
33楼: 感谢各位
----------------------------------------------
我和我追逐的梦,擦肩而过
作者:
男 emailx45 (emailx45) ▲▲△△△ -
注册会员
2018/8/8 7:56:18
34楼: https://openload.co/f/3J2yVNCTwyk/RadStudioKeygenRADStudioXE10.2.3_CEv25.0.31059.3231.exe
----------------------------------------------
-
作者:
男 sqz_sqz (sqz_sqz) ▲▲△△△ -
注册会员
2018/8/8 12:02:31
35楼: 下载不了了?
----------------------------------------------
-
作者:
男 hex01 (hexzeroone) ▲△△△△ -
注册会员
2018/8/8 15:12:21
36楼: @emailx45: can you share the keygen's src?
TIA

hex01
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/8/8 16:02:46
37楼: 有 不看后悔 在,下载别的没必要。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 emailx45 (emailx45) ▲▲△△△ -
注册会员
2018/8/9 12:55:03
38楼: if you ANTIVIRUS show:

--->  HEUR:Trojan-Banker.Win32.Generic   ---->  IS ONE "FALSE POSITIVE" (SEE THE CODE)  

Why?

The funcion called: function GenerateLicenseFile(SerialNumber, RegistrationCode: string; RadStudioVersion: PRadStudioVersion; var FileName: string): Boolean;

have some key-word that will be undertand by AV like one malicious code.

like: sub-functions in "FGInt.pas" and functions to changed files in disk, the "SLIP" variable, etc...

Then, this function IS the cause that your antivirus dont leave you run this keygen.

SOLUTION:

1) in Delphi (XE10.2.3 for example), use "BUILD ALL" to build EXE resulted.
2) put the "EXE" in you "exception list" in your antivirus
3) run the keygen like ADMIN.

Teste in RAD Studio XE10.2.3 build 2631 for compile this source code!


+28 server files for your choice
https://multifilemirror.com/syzze2kud61m/RadStudioKeygenXE1023%283231%29FS2018-07-23NotCompiled.rar.html
----------------------------------------------
-
作者:
男 vvvvcb (vvvv) ▲▲△△△ -
注册会员
2018/8/16 15:44:53
39楼: 挂号
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行46.875毫秒 RSS