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
» 3D_LINE How to ?
par papydall Aujourd'hui à 6:51

» mise a jour calculatrice
par joeeee2017 Hier à 23:00

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» Convertisseur de base 10 de 2 à 36
par gigi75 Sam 14 Oct 2017 - 21:54

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

» Mise à jour PANOMAND
par jean_debord Mar 26 Sep 2017 - 11:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
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 : 1601
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 : 1601
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 : 1601
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 :: Les inutilitaires-
Sauter vers: