Truc utile pour proteger ses droits d'auteur en delphi

Télécharger le projet
Commenter

Description

Truc utile pour proteger ses droits d'auteur
J'ai recupere les codes de certains d'entre vous pour mes tests de connexion et divers
Dans la mesure ou ils n'auraient pas copie ces codes ailleurs,
et que leur travail est le fruit de leur sueur,
je suis tout dispose a offrir des avantages en nature,
un petit sejour en Tunisie par exemple.
Evidemment, il faudra que le futur programme -Gestion de phone-shops- tourne nickel,
et que mes commissions sur les communications rentrent !
Il y a un encore un boulot dingue, le programme (qui utilisera WinPCap) devra se connecter a un serveur sip,
et remplir On Line une base de donnees chez un provider php
pour garder une trace de toutes les communications et des sommes a se faire payer

Le programme ci-apres appelle une page asp dynamique qui verifie une liste
d'utilisateurs en ordre de licence
la page repond simplement dans un navigateur "no" sans les guillemets
si l'utilisateur ne dispose pas du login et password requis
sinon la page repond "ok345", 345 etant un numero de licence
Bon, ce n'est peut-etre pas genial, mais cela decourage le piratage je trouve

Source / Exemple : 


(extrait)
procedure ConnexionMain;
var
   lien : String;
begin
//Le veritable lien a ete masque ici
//La page dynamique peut etre en asp ou php, avec une liaison a une DB

lien := 'http://urldunsite/repertoirediscret/logon.asp?user=' + login + '&pass=' + password ;
  Logon.WebBrowser2.Navigate(lien);
end;

procedure TLogon.WebBrowser2DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  REPONSE, OK_NO : String;
  longueur, longmoins2, posok : Integer;
begin
   beep;
   // La page téléchargée est réduite en chaîne.
   REPONSE := WebBrowser2.OleObject.Document.Body.InnerHTML;
   // Le numero de licence est extrait de cette chaîne.
   longueur := Length(REPONSE);
   longmoins2 := (longueur - 2);
   posok := pos('k',REPONSE);
   if (posok = 0) then
     begin
       Edit6.Text := 'Pas en ordre de licence !';
       Button1.Enabled := true;
     end;
   if (posok = 2) then
     begin
       //Utile pour les tests
       //str(posok,OK_NO);
       //OK_NO := Copy(REPONSE,3,longmoins2);
       //Edit6.Text := OK_NO;
       Button1.Enabled := true;
       WebBrowser2.Stop;
       Form2.Show  //A desactiver pendant les tests
     end;
end;

Conclusion :


Je dois recommencer tout a partir de zero, le programme precedent realise en VisualBasic.NET
etant trop difficile a installer (framework de Microsoft posant trop de problemes)

Veuillez noter que je ne connais Delphi 6 que depuis 5 jours...

Projet en cours (Tunisie): http://windandsolarpow.populus.org/

Jean-Marc bk379122@skynet.be
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.