begin process at 2010 03 13 00:20:57
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Delphi

 > 

Divers

 > 

Débutant(e)

 > 

Question URGENTE, merci de m'aider


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Question URGENTE, merci de m'aider

mercredi 4 avril 2007 à 17:14:01 | Question URGENTE, merci de m'aider

Hamhama007

Bonjour
Je voulai d'abors vous dire que je ne connai rien en Delphi et tous ce qui est programmation...
En recherchant une fois sur votre site quelque chose pour proteger mon CD contre le gravure, je suis tomber sur ce 'message' :
http://www.delphifr.com/codes/PROTECTION-CONTRE-COPIE-SUR-CD_11892.aspx

j'ai déja perdu 2 cd  en essayant ce qu'il y est ecrit alors je me suis dis qu'il falait peut-etre changer quelque chose dans la 'Source' que vous trouverez ci-dessous:

 Source

  • Procedure craye_file_inc;
  • var j : int64;
  • buf : array[word] of byte;
  • St : TFileStream;
  • begin
  • for j:=0 to 32766 do
  • buf[j]:=byte(j); // ne pas crayé un fichier de moins de 32k
  • st:=Tfilestream.create('Protection.dat',fmCreate);
  • for j:=0 to 10 do
  • st.write(Buf,Sizeof(Buf));
  • st.free;
  • end;
  • // dans votre programme
  • Function CheckIfOriginalCd:Boolean
  • var f : thandle;
  • b : array[0..500] of byte;
  • lus : integer;
  • Totlus : Int64;
  • begin
  • result:=false;
  • Totlus:=0;
  • ifnot fileexist('Protection.dat') then exit;
  • f:=Filecreate('Protection.dat',fmRead);
  • while true do
  • begin
  • try
  • Fileread(f,b,lus);
  • exept
  • break;
  • end;
  • totlus:=totlus+lus;
  • if lus=0 then
  • break;
  • end;
  • if filesize('Protection.dat')<>Totlus then
  • if attributs, time etc etc... then
  • result:=true;
  • end;

Je voulais que vous m'aider un peu sur cette source et ce que je dois en faire
Merci beaucoup



Le Temp C'est De L'argent;
Economisez Les Deux...
mercredi 4 avril 2007 à 17:49:11 | Re : Question URGENTE, merci de m'aider

Matt 261

Membre Club
Salut,

déjà, la prochaine fois, met un titre explicite à ton topic.

Ensuite : si tu es débutant en Delphi, je te recommende de commencer par des codes simples avant de finir par détruire tous tes CD !

@+
 Matt


La paresse est la mère du génie...
mercredi 4 avril 2007 à 17:51:04 | Re : Question URGENTE, merci de m'aider

Matt 261

Membre Club
Ah oui, et si tu pouvais réduire la taille de ta signature, ce serait sympa aussi ! (nous n'avons pas encore de problèmes de vue !)

@+
 Matt


La paresse est la mère du génie...
http://www.delphilab.com
mercredi 4 avril 2007 à 17:53:55 | Re : Question URGENTE, merci de m'aider

japee

Membre Club Administrateur CodeS-SourceS
Salut,

- question urgente,
- j'ai déjà perdu 2 cd...

Ho... arrête tout de suite, là. Tu vas  (ni) heu bousiller tous tes CD de Céline Dion !
mercredi 4 avril 2007 à 17:59:51 | Re : Question URGENTE, merci de m'aider

Matt 261

Membre Club
Ah bein ça alors !

Japee serait-il passé modo ? Bon... bon je sais, ça fait un moment que je n'ai pas fait de coucous mais ça alors c'est une bonne nouvelle !

Ca veut dire qu'on va avoir droit à des tartes au comcombr' plus souvent alors ?

@+
 Matt


La paresse est la mère du génie...
http://www.delphilab.com
mercredi 4 avril 2007 à 18:13:31 | Re : Question URGENTE, merci de m'aider

japee

Membre Club Administrateur CodeS-SourceS
Ouais, Matt. Une fois par semaine, au moins...
mercredi 4 avril 2007 à 18:13:35 | Re : Question URGENTE, merci de m'aider

Hamhama007

Je sais que je dois commencer par prendre des cours en Delphi
Mais...
C'EST URGENT!!!
Merci
Le Temp C'est De L'argent;
Economisez Les Deux...
mercredi 4 avril 2007 à 18:21:33 | Re : Question URGENTE, merci de m'aider

Matt 261

Membre Club
@ Japee : mdr ! Je vais essayer de me libérer plus souvent alors !

@ Hamhama : la signature hamhama, le bouton pour la taille, là, devant tes yeux ...!



La paresse est la mère du génie...
http://www.delphilab.com
mercredi 4 avril 2007 à 18:59:42 | Re : Question URGENTE, merci de m'aider

Francky23012301

Membre Club
Bon : tu demandes de l'aide tellement gentiment, que l'on va t'aider :

*Prendre une tarte o concombre et la manger entièrement.
*Péter trois fois.
*Prendre une plume de faisaon fraichement tuée et se la mettre dans les fesses.
*Faire quatre sauts en avant et 5 en arrière, le tout en faisant le crie du dindon.
*Ensuite retirer la plume délicatement.
*Sonner chez son voisin et lui faire renifler la plume.
*Profiter de son évanouissement pour lui couper un bout de cheveux.
*Prendre son poisson rouge et le passer au Mixer.
*Prier la Déese HounKouLouKou

HounKouLouKou, toi la déesse des plumes dans le cul
Offre moi ton esprit;
Offre moi ton courage;
Ofrre moi ton savoir
Fasse que le code de Manchester fonctionne

Répeter cette incantation toute la nuit en pensant à faire un mouvement de rotation dans le sens des aiguilles d'une montre avec la plume et un mouvenemnt de triangle avec les cheveux.

Finir le rituel en avalant le poisson fraichment mixer.

Normalement dans 6 mois, le code devrait fonctionner.

mercredi 4 avril 2007 à 20:21:55 | Re : Question URGENTE, merci de m'aider

cirec

Membre Club Administrateur CodeS-SourceS
@ Matt
voir même des tartes avec double comcombr'


 
@+
Cirec


1 2 3

Cette discussion est classée dans : protection, dat, buf, st, totlus


Répondre à ce message

Sujets en rapport avec ce message

CONCOURS!!! CONCOURS!!! [ par sebrs1 ] Salut à tous les programmeurs delphi.j'organise un petit concours sur mon site.delphiprog.fr.stc pas un concour tres dur mais vous pouvez y mettre tou Fonction pour séparer des champs dans une chaine [ par belkin ] Bonjour,Existe-t-il une fonction qui permet de séparer des champs dans une chaine ?Exemple : MaVariable := '123_456.dat';Je veux séparer le 123 et 456 Protection d'un logiciel contre la copie [ par bfouad ] Bonjour,je désire connaître quels sont les méthodes existantes pour proteger un logicel contre la copie ?Merci. CONCOURS sur delphiprog.fr.st [ par sebrs1 ] Comme il n'y a pas eu encore de concours sur delphifr je me suis dis qu'il FALLAIT en faire un pour tester les competences de ses visiteurs. Le concou CONCOURS sur delphiprog.fr.st [ par sebrs1 ] Comme il n'y a pas eu encore de concours sur delphifr je me suis dis qu'il FALLAIT en faire un pour tester les competences de ses visiteurs. Le concou PROG-Zone.fr.st - Le site de tous les langages de programmation [ par sebrs1 ] Salut à tout le monde, je viens de faire un nouveau site concernant tout les langages de programmations (ou presque :)), je vous en supplie, allez-y p Concours sur Prog-zone.fr.st [ par sebrs1 ] Prog-zone vous propose un concours dans le langage de votre choix. Si ça vous interesse :prog-zone.fr.st@+Sebrs1PS (qui ne signifie pas playstation :- protection de repertoir (dossier) pas en reseau [ par skiso ] sq en peut proteger un repertoir si oui comment? pb avec pointeur [ par moffer ] voila je suis un peu nouveau sur delphi et je me demande pourquoi ce code ne fonctionne pasprocedure TForm1.Button1Click(Sender: TObject);var Buf: St nouveau forum informatique ! [ par rhodan51 ] bonjour à tous,je viens de créer un nouveau forum informatique sur divers languages de prgrammation et je cherche des personnes ayant de bonnes notion


Nos sponsors


Appels d'offres

Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,562 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales