|
|
|
坛主、斑竹,我有个建议。。。
有这个功能,你没看见?:D +--------------------------------------------------------+ + 看雪技术论坛 > 加密与解密 > 『加壳与脱壳』 -> [精华区] + +--------------------------------------------------------+ |
|
进程模块查看管理器
收下了。 |
|
寻找CRC32的Delphi的算法
最初由 limee 发布 其实我觉得改成这样更省内存。 var crc32tbl:array [1..255] of LongWord; For i := 1 to 255 do begin 。。。。 end; 这样生的表是以$77073096开始以$2D02EF8D结束的。 不过我查看了网上的码表都是$00000000开始以$2D02EF8D结束的,而算法循环也是以0开始到256结束的。可能有其他的用意吧,只是我们还不知道而已。:D |
|
寻找CRC32的Delphi的算法
:) //定义存放码表的全局数组。 var crc32tbl:array[0..256] of LongWord; //生成CRC32表的过程。 procedure crc32_Init; var crc,i,j:LongWord; begin for i := 0 to 256 do begin crc := i; for j := 0 to 7 do begin if crc and 1 = 1 then crc := (crc shr 1) xor $EDB88320 else crc := crc shr 1; end; crc32tbl[i] := crc; end; end; //CRC32算法函数。 Function crc32_func(S:String):String; var i,j:Integer; l,t:longWord; begin l := $FFFFFFFF; crc32_Init; if S <> '' then begin for i := 1 to length(S) do begin j := byte(l xor Ord(s[i])); t := crc32tbl[j]; l := t xor (l shr 8) and $00FFFFFF; end; Result := IntToHex(not(l),8); end else Result := '错误!请输入字符串。'; end; |
|
Hying旧版壳的简单脱壳
最初由 heXer 发布 heXer老大就是牛呀,那些机若是给我一份就更好了,哈哈。。。:D |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值