|
|
|
新学脱壳,写了一个小破玩意儿,请大家测试
Delphi的伪装没有成功,似乎哪里还需要一些特征的值 最初由 RoBa 发布 |
|
新学脱壳,写了一个小破玩意儿,请大家测试
我用Windows下面的Notepad.exe来伪装成为Delphi写的程序, 但是用Peid却检测不到? 这个是不是bug? 附件: 附件:notep.rar 最初由 RoBa 发布 |
|
寻找CRC32的Delphi的算法
(1) crc32tbl : array[1..256] of LongWord; (2) var crc,i,j:LongWord; begin for i := 1 to 256 do ~~~~~~~~~~~~~~~~~~~~ 改成1。。256的循环,内存最多可以节约4K的空间 假设是4k对齐的话。 begin crc := i; 最初由 小虾 发布 |
|
寻找CRC32的Delphi的算法
谢谢你们两位无私的帮助,你们的算法没问题。 我的算法有问题,也许是书哪里写错了? 能否给个特征方程g(x),以便于我查出错误 最初由 小虾 发布 |
|
寻找CRC32的Delphi的算法
最初由 小虾 发布 |
|
寻找CRC32的Delphi的算法
我把你的程序也编译了一遍,将S1:='ABCDE" ,Seed := 0; GetCrc(S1,0); 计算的结果和别人做的工具不一样,初始化的值都取为0 CRC32在seed:=0的时候,应该是一个常数吧? 我用了两个工具计算的"ABCDE"的CRC32的值是72D31Ad5 是算法的问题,还是我理解错了? 最初由 kore 发布 |
|
寻找CRC32的Delphi的算法
我写根据C语言,然后把它翻译过来,但是运行的结果不对 那个CRC32的表就不贴了,就只贴个主函数, 我不知道,我错在哪里? var crc_32_tab:array[0..255] of LongWord = (。。。。); Function CRC32(DataBuf:String):LongWord; var oldcrc32:LongWord; oldcrc:LongWord; i:integer; c,t:Char; begin oldcrc32 := $00000000; for i:=1 to Length(DataBuf) do begin t := Chr((oldcrc32 shr 24) and $FF); oldcrc := crc_32_tab[Ord(t)]; c := DataBuf[i]; oldcrc32 := (oldcrc32 shl 8) or Ord(c); oldcrc32 := oldcrc32 xor oldcrc; end; Result := oldcrc32; end; end. 最初由 kore 发布 |
|
|
|
|
操作理由
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 }}
勋章
兑换勋章
证书
证书查询 >
能力值