FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» un nouveau editeur panobasic
par Jean Claude Aujourd'hui à 10:18

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:07

» Le compilateur.
par Pedro Alvarez Aujourd'hui à 8:36

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 A la recherche d'un trésor

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
jjn4

avatar

Nombre de messages : 1594
Date d'inscription : 13/09/2009

MessageSujet: A la recherche d'un trésor   Dim 22 Aoû 2010 - 19:44

Ah, je sais que vous êtes ingénieux, mais quand même...
Allez-vous parvenir à faire main basse sur le fabuleux trésor de la banque de France ?
Rien n'est moins sûr !
Mais vous allez pouvoir montrer vos talents de hacker !
Code:
rem ' Coffre-Fort
dim i , j , m , n , o , t , f$ , m$
label bon , ed , go
data "»Œ“Óߒž–ŒßœØšŒ‹ß“žß™ž–““–‹šÓߓšßœ™™šßšŒ‹ßš‘‹–š’š‘‹ß‰–›š"
data "³šß’‹ß›šßžŒŒšßžßŠ‘ߍž‹ßž‰šœßŠ‘šßœ‘Œ‹ž‘‹šßœ‘‘Šš"
data 6597339
read f$ : read m$ : read m
for i=1 to len(f$)
 f$=left$(f$,i-1)+chr$(bin_xor(asc(mid$(f$,i,1)),255))+right$(f$,len(f$)-i)
next i
for i=1 to len(m$)
 m$=left$(m$,i-1)+chr$(bin_xor(asc(mid$(m$,i,1)),255))+right$(m$,len(m$)-i)
next i
m=m/7
height 0,500
caption 0," C O F F R E  F O R T  D E  L A  B A N Q U E  D E  F R A N C E"
alpha 1
left 1,20 : top 1,20 : width 1,550 : height 1,405
color 1,150,150,150
alpha 2
left 2,22 : top 2,22 : width 2,546 : height 2,401
color 2,236,233,216
for i=3 to 0 step -1
 for j=3 to 1 step -1
  button i*3+j+2
  left i*3+j+2,j*50
  top i*3+j+2,i*50+100
  width i*3+j+2,40
  height i*3+j+2,40
  font_bold i*3+j+2
  font_size i*3+j+2,12
  caption i*3+j+2,i*3+j
  on_click i*3+j+2,go
 next j
next i
caption 12,"0"
caption 13,"C"
caption 14,"Go"
alpha 15
left 15,47 : top 15,55
font_bold 15 : font_size 15,14
caption 15,"COFFRE-FORT"
edit 16 : o=m
left 16,50 : top 16,310 : width 16,140
alpha 17
left 17,50 : top 17,340
font_size 17,17
caption 17,"Tapez le code"
picture 18
left 18,400 : top 18,150
color 18,236,233,216
2d_target_is 18
2d_fill_color 0,0,0
2d_circle 52,52,52
2d_pen_color 200,200,200
2d_fill_color 200,200,200
2d_pen_width 2 : o=o/3
2d_circle 52,30,15
for i=1 to 10
 2d_line 46+i,40,41+i*2,88
next i : m=o
picture 19
width 19,2 : left 19,568 : top 19,20 : height 19,405
color 19,150,150,150
alpha 20
left 20,160 : height 20,14 : top 20,428
end
bon:
if text$(16)=str$(m)
 for j=3 to 14 : hide j : next j
 for j=15 to 18 : hide j : next j
 for i=2 to 550 step 2
  width 19,i
  left 19,570-i
  color 19,150,150,150
  wait 1
 next i
 2d_target_is 19
 2d_fill_color 150,150,150
 2d_rectangle 110,70,440,330
 2d_line 1,1,110,70
 2d_line 440,70,550,1
 2d_line 109,330,1,405
 2d_line 440,330,550,405
 caption 20,f$
 font_color 20,255,0,0
end_if
return
ed:
caption 20,m$
return
go:
beep
n=number_click
select n
 case 12 : n=2
 case 13 : text 16,""
 case 14 : gosub bon
end_select
if n<12
 text 16,text$(16)+str$(n-2)
end_if
t=t+1
if t=25 then gosub ed
return
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
flowerkinzy



Nombre de messages : 98
Date d'inscription : 23/09/2009

MessageSujet: Re: A la recherche d'un trésor   Dim 22 Aoû 2010 - 20:34

Ah ca, pour brouiller les pistes, jjn4 est fort!

Comment aurais-je pu trouver si je m'arretais a 3 chiffres (les seuls que je connaissais)

Donc, j'ai finalement trifouille le code et vu
d,abord: la surprise Shocked
puis que je n'etais pas loin( a 3 chiffres pres...)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1594
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 22 Aoû 2010 - 20:39

Ah, la triche, eh !
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: A la recherche d'un trésor   Dim 22 Aoû 2010 - 21:36

Bon, le trésor c'est pas grand chose !!!
Revenir en haut Aller en bas
jjn4

avatar

Nombre de messages : 1594
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 23 Aoû 2010 - 14:23

Ah, là, là, il y a la dette publique, et puis le déficit de la sécu, et puis...
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: A la recherche d'un trésor   Lun 23 Aoû 2010 - 19:23

Bon, je sais que quand même j'ai modifié le code Very Happy
Revenir en haut Aller en bas
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: A la recherche d'un trésor   Lun 23 Aoû 2010 - 20:09

ya même pas un grain de poussière !
c'est vraiment la dèche... Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
Contenu sponsorisé




MessageSujet: Re: A la recherche d'un trésor   

Revenir en haut Aller en bas
 
A la recherche d'un trésor
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» recherche d'une police de caractère
» [Résolu] Recherche d'un BON aspirateur de sites + formulaire informat
» recherche logiciel pour créer un site
» [résolu][Laguna 1 V6 24S boite manuelle] Recherche
» (résolu)recherches effectuées dans la barre déroulante"recherche" de Neuf

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Les inutilitaires-
Sauter vers: