[原创]怀旧CrackMe0.1-CTF对抗-看雪-安全社区|安全招聘|kanxue.com

最新回复 (13)
luzechao 雪币： 206 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 16 回帖 176 粉丝 0 关注私信	luzechao 2 楼唉，在俺手上感觉有相当的难度.... 2008-9-6 06:16 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 3 楼算法很简单的哦 2008-9-6 11:26 0
cater 雪币： 109 活跃值： (498) 能力值： ( LV12，RANK：220 ) 在线值：发帖 58 回帖 415 粉丝 3 关注私信	cater 5 4 楼作弊没作弊上传的附件： cater.jpg （11.87kb，187次下载） O.gif （5.72kb，149次下载） 2008-9-6 11:42 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 5 楼 [QUOTE=cater;505797] 作弊[/QUOTE] 请秀出你的注册码哈哈~~Anti作弊 2008-9-6 12:07 0
pathletboy 雪币： 184 活跃值： (65) 能力值： ( LV6，RANK：90 ) 在线值：发帖 25 回帖 376 粉丝 1 关注私信	pathletboy 2 6 楼 win 3.x ...是挺怀旧的。 2008-9-6 14:15 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 7 楼本来想用1.x的不过很多语句不支持 2008-9-6 15:28 0
sessiondiy 雪币： 2067 活跃值： (82) 能力值： ( LV9，RANK：180 ) 在线值：发帖 37 回帖 3244 粉丝 6 关注私信	sessiondiy 4 8 楼 sessiondiy KuNg-11510-BiM 2008-9-6 17:22 0
yiting 雪币： 245 活跃值： (469) 能力值： ( LV3，RANK：20 ) 在线值：发帖 5 回帖 59 粉丝 1 关注私信	yiting 9 楼楼主,竟然是VB3.0 的程序. 2008-9-6 23:17 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 10 楼没用1.0都够意思了 2008-9-7 01:27 0
yiting 雪币： 245 活跃值： (469) 能力值： ( LV3，RANK：20 ) 在线值：发帖 5 回帖 59 粉丝 1 关注私信	yiting 11 楼没有工具,搞不定. 2008-9-7 09:04 0
美丽破船雪币： 65 活跃值： (811) 能力值： ( LV12，RANK：210 ) 在线值：发帖 40 回帖 395 粉丝 7 关注私信	美丽破船 5 12 楼如果哪天,我只用一个HEX编辑器,就能解除天下所有的软件保护如果哪天,我只用一个HEX编辑器,就可以给天下所有的软件加最强的保护~ 貌似矛盾了哦~~~~ 不说了~ 2008-9-7 09:50 0
yingyue 雪币： 1844 活跃值： (35) 能力值： ( LV3，RANK：30 ) 在线值：发帖 16 回帖 2595 粉丝 3 关注私信	yingyue 13 楼 #include <iostream.h> int main() { char name[10]; int temp,i; cout<<"请输入 5 位以上的用户名 : "; cin>>name; cout<<"your code is : KuNg-"; for(i=0;i<2;i++) { temp=name[i]; if(i==1&&temp>=100) temp/=10; cout<<temp; } cout<<"-BiM"; cout<<endl; return 0; } 2008-9-9 00:13 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 14 楼 '---------------------------------- '怀旧CrackMe0.1.SRC.by.KuNgBiM '---------------------------------- '算法并非复杂,但就是不知如何调试它 '---------------------------------- Private Sub Command1_Click() Dim skey As String Dim strkey1 As String Dim strkey2 As String Dim sn As String '判断用户名合法性 If Len(Text1.Text) < 5 Or Len(Text2.Text) < 9 Then Form2.Show 1 Else '计算用户名对应的ASCII码 Dim s As String s = vbNullString For i = 1 To Len(Text1.Text) s = s & Abs(Asc(Mid(Text1.Text, i, 1))) Next skey = s '计算正确注册码 strkey1 = "KuNg-" strkey2 = "-BiM" sn = strkey1 & Mid(skey, 1, 5) Mod 80906 & strkey2 '判断注册码是否正确 '右判断 If Right(Text2.Text, 4) <> strkey2 Then Form4.Show 1 Else '左判断 If Left(Text2.Text, 5) <> strkey1 Then Form4.Show 1 Else '整体判断 If Text2.Text <> sn Then Form4.Show 1 Else Form3.Show 1 End If End If End If End If End Sub End Sub 2008-9-9 06:38 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

最新回复 (13)
luzechao 雪币： 206 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 16 回帖 176 粉丝 0 关注私信	luzechao 2 楼唉，在俺手上感觉有相当的难度.... 2008-9-6 06:16 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 3 楼算法很简单的哦 2008-9-6 11:26 0
cater 雪币： 109 活跃值： (498) 能力值： ( LV12，RANK：220 ) 在线值：发帖 58 回帖 415 粉丝 3 关注私信	cater 5 4 楼作弊没作弊上传的附件： cater.jpg （11.87kb，187次下载） O.gif （5.72kb，149次下载） 2008-9-6 11:42 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 5 楼 [QUOTE=cater;505797] 作弊[/QUOTE] 请秀出你的注册码哈哈~~Anti作弊 2008-9-6 12:07 0
pathletboy 雪币： 184 活跃值： (65) 能力值： ( LV6，RANK：90 ) 在线值：发帖 25 回帖 376 粉丝 1 关注私信	pathletboy 2 6 楼 win 3.x ...是挺怀旧的。 2008-9-6 14:15 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 7 楼本来想用1.x的不过很多语句不支持 2008-9-6 15:28 0
sessiondiy 雪币： 2067 活跃值： (82) 能力值： ( LV9，RANK：180 ) 在线值：发帖 37 回帖 3244 粉丝 6 关注私信	sessiondiy 4 8 楼 sessiondiy KuNg-11510-BiM 2008-9-6 17:22 0
yiting 雪币： 245 活跃值： (469) 能力值： ( LV3，RANK：20 ) 在线值：发帖 5 回帖 59 粉丝 1 关注私信	yiting 9 楼楼主,竟然是VB3.0 的程序. 2008-9-6 23:17 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 10 楼没用1.0都够意思了 2008-9-7 01:27 0
yiting 雪币： 245 活跃值： (469) 能力值： ( LV3，RANK：20 ) 在线值：发帖 5 回帖 59 粉丝 1 关注私信	yiting 11 楼没有工具,搞不定. 2008-9-7 09:04 0
美丽破船雪币： 65 活跃值： (811) 能力值： ( LV12，RANK：210 ) 在线值：发帖 40 回帖 395 粉丝 7 关注私信	美丽破船 5 12 楼如果哪天,我只用一个HEX编辑器,就能解除天下所有的软件保护如果哪天,我只用一个HEX编辑器,就可以给天下所有的软件加最强的保护~ 貌似矛盾了哦~~~~ 不说了~ 2008-9-7 09:50 0
yingyue 雪币： 1844 活跃值： (35) 能力值： ( LV3，RANK：30 ) 在线值：发帖 16 回帖 2595 粉丝 3 关注私信	yingyue 13 楼 #include <iostream.h> int main() { char name[10]; int temp,i; cout<<"请输入 5 位以上的用户名 : "; cin>>name; cout<<"your code is : KuNg-"; for(i=0;i<2;i++) { temp=name[i]; if(i==1&&temp>=100) temp/=10; cout<<temp; } cout<<"-BiM"; cout<<endl; return 0; } 2008-9-9 00:13 0
KuNgBiM 雪币： 817 活跃值： (1927) 能力值： ( LV12，RANK：2670 ) 在线值：发帖 500 回帖 2517 粉丝 22 关注私信	KuNgBiM 66 14 楼 '---------------------------------- '怀旧CrackMe0.1.SRC.by.KuNgBiM '---------------------------------- '算法并非复杂,但就是不知如何调试它 '---------------------------------- Private Sub Command1_Click() Dim skey As String Dim strkey1 As String Dim strkey2 As String Dim sn As String '判断用户名合法性 If Len(Text1.Text) < 5 Or Len(Text2.Text) < 9 Then Form2.Show 1 Else '计算用户名对应的ASCII码 Dim s As String s = vbNullString For i = 1 To Len(Text1.Text) s = s & Abs(Asc(Mid(Text1.Text, i, 1))) Next skey = s '计算正确注册码 strkey1 = "KuNg-" strkey2 = "-BiM" sn = strkey1 & Mid(skey, 1, 5) Mod 80906 & strkey2 '判断注册码是否正确 '右判断 If Right(Text2.Text, 4) <> strkey2 Then Form4.Show 1 Else '左判断 If Left(Text2.Text, 5) <> strkey1 Then Form4.Show 1 Else '整体判断 If Text2.Text <> sn Then Form4.Show 1 Else Form3.Show 1 End If End If End If End If End Sub End Sub 2008-9-9 06:38 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复