Date de pérenption

Sur un programme y a t-il la possibilité de faire une genre de version d'essaie qui fait que le programme a une date donné ne fonctionne plus?
Sa serai géniale car j'ai mon prof de Latin qui s'acharne sur moi et il ma demandé de lui arranger les peti programmes que je lui avait fait grâce a vous^^ et donc je me demandé si je pourrais lui rajouté cette petite option

Merci d'avance...


PS: Ou carrément le supprimer...

Ben... tu peux toujours en début de programme demander la date du jour (DATE$) et la comparer avec une date donnée, et quitter si elle est supérieure.
Mais bon, c'est une protection assez primaire, et facile à contourner si on regarde l'exécutable.
Si ça doit être plus subtil, il faut peut-être mettre la date sous forme codée, à un endroit inattendu etc... c'est facile d'imaginer un tas de solutions, qui ne résisteraient pas à un expert, mais ça peut être suffisant.

un petit .bat devrai sufir
tu fait un .bat qui d'installe quand tu lance l'installateur , tu fais en sorte qu'il se lance a chaque demmarage en checkant l'heure systeme et si elle est superieur a par ex une semiane apres l'installation ca vire le programme (je ais des virus de ce genre au lycee pour souler les documentalistes ^^)
bon apres faut voir si ca marche :p
je t'ai donné les instruction a toi de les convertir en dos

(un .bat est un fichier d'execution rapide dos
par ex:
tu ouvre bloc note tu tape
Start
hello.bat
tu l'enregistre (nomme le hello.bat) en selectionnant l'option tout type de fichier et ut renomme l'extension en .bat
et lance le
Ca ouvre des fenetres dos en boucles jusqu'a L'OVERFLOW ^^
bon bref exemple simple a toi de trouver la combinaison pour faire u systeme de suppresion arrivé a peremption ^^)

Pourquoi faire simple quand on peut faire compliqué ?

Réponse a JL35 :
Je vais essayer d'exploiter cette technique...
Merci

Réponse a lagman_basic_4_erver:
Je ne comprend pas trop comment exploiter ton .bat
d'ailleur se que je peut faire pour le faire ***** c'est justement charger se fichier le problème c'est que c'est mon prof et je ne pourais pas lui faire croire que se n'est pas de ma faute ^^

PS : Ton exemple et une vrai tare >< j'ai mit de tant a comprendre comment l'arrêter ( j'ai essayer ctrl+alt+suppr mais y en a trop ^^)

Citation :

Ben... tu peux toujours en début de programme demander la date du jour (DATE$) et la comparer avec une date donnée, et quitter si elle est supérieure

.

comment faire pour entrer un date? par exemple hier on met 08/12/2008 ? parce que moi sa me fais une erreur si je met ça donc comment formuler une date?
ne faudrait il pas plutôt compté les jours à partir de date$ ?
Mais c'est pareil comment entrer un certain de nombre de jour ????

c'est le "virus" qui soule les documentaliste a mon cdi ^^
sinon pour le virer clic droit sur la barre fermer le groupe ^^
sinon ba essaye l'exemple de JL35 ^^

t'inquiète pas c'est se que j'avais fait^^
et je sans que je vais faire le coup de l'ordi qui beugue au CDI

Tu peux faire par exemple, en supposant que la date limite est le 1er février 2009 (il faut mettre dans l'ordre aaaammjj pour pouvoir comparer les dates):

Code:

dim d$, vl, va
d$= "20090201": vl = VAL(d$): ' REM date limite souhaitée
d$ = DATE$: REM date actuelle (de la forme jj/mm/aaaa)
d$ = MID$(d$, 7, 4) + MID$(d$, 4, 2) + MID$(d$, 1, 2)
va = VAL(d$)
IF va > vl THEN PRINT "Date limite dépassée": END

Attention, c'est un exemple simpliste, mais à toi d'imaginer mieux.

Ok je vais essayer se code et l'amélioré quand j'aurais le temps en tout cas merci =)

Et ce n'est pas une raison pour mettre la panique dans l'informatique de l'école, il y a bien assez de raisons naturelles pour ça sans en rajouter.
Et puis je suis peut-être vieux jeu, mais ce genre de blagues ne m'amuse pas du tout, c'est déjà bien assez embêtant en soi.
Ce n'est pas mieux et plus gratifiant de faire des choses constructives qui facilitent la vie des gens plutôt que l'inverse ?

Citation :

Et puis je suis peut-être vieux jeu, mais ce genre de blagues ne m'amuse pas du tout, c'est déjà bien assez embêtant en soi.

Je ne vous trouve pas vieux jeux mais plutôt adulte donc raisonnable (Vous avez raisons mais ce n'est juste qu'une petite blague...)

J'ai l'impression que sa ne marche pas car j'avais créer une execution hier soir qui devait ne plus marché aujourd'hui se qui n'est pas le cas...? Aurais-je mal oublier de changer quelque chose?

ba ouais mais quand tu fais des choses constructives il s'en foutent
On te dis que c'est bien d'un ton cireux puis le gars se barre -_-
et puis ils n'avaient qu' a pas bloquer les sites interessant

bon bref pour revenir au sujet :
tu pourrais essayer de detailer je n'ai pas reussi a saisir le sens des mids ^^
(je sais c'est pas ma question mais j'aimerai bien comprendre aussi )

Oui c'est vrai que moi non plus je ne comprend pas trop comment fonctionne mid$, pourtant j'ai été voir le manuel de références...

Lutcho74 a écrit:

J'ai l'impression que sa ne marche pas car j'avais créer une execution hier soir qui devait ne plus marché aujourd'hui se qui n'est pas le cas...? Aurais-je mal oublier de changer quelque chose?

En faite j'avais justement changé quelque chose qu'il ne fallait pas changé

Bon, dans l'ordre:

Code:

b$ = MID$(a$, x, n)

permet d'extraire de la chaîne de caractères a$ la chaîne b$ située à l'index x et de longueur n.
Par exemple, si a$ = "Au clair de la lune",

Code:

MID$(a$, 4, 8)

donnera "clair de".

Pour comparer des dates, plutôt que de comparer successivement les années, puis les mois, puis les jours, il est plus rapide de convertir les dates sous forme de chaînes, en nombres.
DATE$ renvoie la date sous la forme "09/12/2008", et pour la mettre en forme de nombre à comparer il faut mettre par ordre d'importance d'abord l'année, puis le mois, puis le jour.
D'où l'utilisation de MID$ pour extraire de DATE$ l'année (2008), le mois (02) le jour (09) et les mettre bout à bout: "20081209", ce qui donne (VAL(chaîne)) le nombre 20081209.

NB: DATE$ renvoie bien la date sous la forme JJ/MM/AAAA, et non pas MM/DD/YY comme indiqué dans le Manuel de Référence.

ok , j'ai compris en fait cela sert a selectionnez une chaine et a la comparer ?

Ca sert à comparer deux chaînes, savoir laquelle est plus grande que l'autre.
Mais comme Panoramic (contrairement à QBasic) ne permet par de comparer deux chaînes (à part tester l'égalité), il faut préalablement les transformer en nombres.

D'accord merci ca risque de m'etre utile dans mes programmes ^^

C'est bon j'ai compris merci JL35