jjn4
Nombre de messages : 2706 Date d'inscription : 13/09/2009
| Sujet: FBI Dim 20 Déc 2009 - 19:24 | |
| Attention, cette fois, c'est du sérieux ! Il y a un message secret pour vous, d'une importance incalculable. Bien sûr, il faut évidemment d'abord donner un mot de passe. Mais tout le monde compte sur votre sagacité pour le cracker. Bonne chance ! - Code:
-
rem ' FBI - ATTENTION : C'est très sérieux !!! dim a$ , b$(31) , a , e , i , j , k , m$ , n$ , s$(22) label entrer , suppr , pleh , miss data "04;u94 10","f`","46>","6:&8:&be","0:'20&","<6:94&","%4!","8 &<62480&" data "94284;"+chr$(10)+"74&<6"+chr$(10)+"a"+chr$(10)+"0#0'","790 ;: ;0!","107 !" data "&:8&:6","u;1'¼","><;/,","?04;9: <&3","9 !6=:ba","!=03':2","4¾!4;" data "39:"+chr$(34)+"0'><;/,","24'70","7:7","%=:!:%<-09","48","%<0''0","094;;:," data "?04;"+chr$(10)+"107:'1",":7'4","8<8<6","4&;:14d`","#<;609!","<'!0;" data " uuu","uuuu u uu uu u " data "uuu u uu uu`euuu{" data " uuuuuuuuu ur" data " uuu u uuu u uuxx" data " uuu u uuu uu" data " uu uuuuuuu u" data "u u uuuu uu uu uur" data "uuu uu uur{","uuuu","uuuu ur" data "uuu uu uuuu u" data " u ruu uuuuuuu rur"+chr$(13)+"{" data " uuuuuuuu u uu{" data "uuuuu uur uu u{" data "uu uuu u uuu"," uu {" data "u uu u ur uuu uu u u " data "uuruuu uuuu{" data "uuuu","uo","uuur uu`u{" m$="0u8:!u10u%4&&0u0&!u0;u'4%%:'!u4#06u94u34²:;u1:;!u#: &u#: &u;:880/" for i=1 to len(m$) n$=n$+chr$(bin_xor(asc(mid$(m$,i,1)),85)) next i : m$=n$ for i=1 to 31 : read a$ : for j=1 to len(a$) b$(i)=b$(i)+chr$(bin_xor(asc(mid$(a$,j,1)),85)) next j : next i for i=1 to 22 : read a$ : s$(i)="" : for j=1 to len(a$) s$(i)=s$(i)+chr$(bin_xor(asc(mid$(a$,j,1)),85)) next j : next i caption 0,"SITE FÉDÉRAL DU FBI" left 0,200 : top 0,100 : width 0,600 : height 0,400 picture 1 : width 1,592 : height 1,366 : color 1,0,0,0 2d_target_is 1 : 2d_pen_color 0,255,0 : print_target_is 1 for i=1 to 600 : for j=1 to 8 2d_point i,sin(i)+j*18+10 next j : next i : 2d_fill_color 255,255,0 : 2d_pen_color 255,255,0 2d_rectangle 50,20,170,120 : 2d_rectangle 85,150,135,180 2d_circle 90,120,40 : 2d_circle 130,120,40 2d_pen_color 0,0,0 : 2d_fill_color 0,0,0 2d_circle 85,189,30 : 2d_circle 135,189,30 2d_fill_color 255,255,0 : font_size 1,28 : font_bold 1 print_locate 80,45 : print "FBI" : n$="Aide" alpha 2 : left 2,250 : top 2,210 color 2,0,0,0 : font_color 2,255,255,0 : font_size 2,12 : font_bold 2 caption 2,"Entrez le mot de passe" edit 3 : left 3,250 : top 3,235 : width 3,185 font_color 3,255,255,255 : set_focus 3 : on_click 3,suppr alpha 4 : left 4,250 : top 4,260 color 4,0,0,0 : font_color 4,255,50,50 : font_size 4,12 : font_bold 4 button 5 : left 5,446 : top 5,234 : width 5,120 caption 5,"Entrez dans le site" : on_click 5,entrer button 6 : left 6,190 : top 6,234 : width 6,50 : hide 6 caption 6,n$ : on_click 6,pleh end entrer: if text$(3)<>"" k=0 : for i=1 to 31 if text$(3)=b$(i) then k=1 next i : a=a+1 : if a>2 then show 6 if k=1 caption 4,"Mot de passe accepté" : e=1 midi_on : midi_play 70,2 : midi_off else caption 4,"Mot de passe incorrect" : beep end_if if e=1 then goto miss end_if return suppr: text 3,"" : caption 4,"" return pleh: message m$ return miss: full_space 0 : 2d_clear : for i=2 to 6 : hide i : next i width 1,1016 : height 1,704 : color 1,0,0,0 : font_color 1,0,255,0 font_name 1,"Crystal" : font_size 1,20 : 2d_fill_color 0,0,0 : j=0 for i=1 to 21 : k=0 : a$="" if i=11 then j=30 : k=170+len(text$(3))*14+30 if i=1 or i=10 or i=16 or i=20 then a$=text$(3) print_locate 10+k,i*30-10-j : print s$(i);a$ : wait 45*len(s$(i)) next i : wait 1000 for i=1 to len(s$(22)) print_locate i*15-5,620 : print mid$(s$(22),i,1) : wait 60 : beep next i : wait 5000 : beep terminate
| |
|