Emule / edonkey => iptoid & iptoid

Soyez le premier à donner votre avis sur cette source.

Vue 9 613 fois - Téléchargée 576 fois

Description

Ce programme, permet de connaitre son ID des reseaux eDonkey / eMule d'après son ip et vise vers ca :)

J'ai développer ce programme pour deux raison :

La première :
car un pot à moi à un routeur et je n'arrive jamais à connaitre son ip :/
même avec IPCONFIG, donc je lui demande son ID et avec mon prog je converti :)

La deuxième:
A titre indicatif :)

1.) On peut voir comment renverser une chaine de caractère (Script de : Japee)
2.) Convertir Hex -> Dec : Dec -> Hex
et ca peut être utile à quelq'un.

Voila j'éspère décevoir personne.

NOTE : Je viens juste de rencontrer un bug :
Quand on convertit IpToId, parfois l'id est egual à moins quelque chose.
Je ne sait pas pourquoi

j'ai essayer avec ma mule j'avais une id de 10 caractère et ca à pas voulu me traduire mon ip ca m'as afficher un message d'erreur.

Si quelqu'un à ce bug un jour, et si il veux bien regarder / modifier la source et me prévenir par mail (amokers@yahoo.fr) je le remercie d'avance.

Conclusion :


Je remercie encore Japee pour son aide dans les forum de DelphiFr.com.
et aussi DelphiFr.com pour toutes ses évolutions et ses sources ;)

Puis enfin les utilisateurs qui s'intérressent à mes sources.

Vous pouvez visiter mon site : www.delphi-projets.fr.st

Codes Sources

Ajouter un commentaire Commentaires
Messages postés
83
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
8 octobre 2008

Lol Merci et idem pour tous Bonne Année ;)

Au fait je voulais vous demander à tous, voullez vous bien votter pour mes sources, afin de voir ce quelles vallent ?

Merci
Messages postés
304
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
10 mars 2012

dans la même catégorie, il existe un très bon projet de "EMULE", en version dephi, mais l'auteur a avorté le projet, ce qui est dommage, car il a fait un travail remarquable, bien qu'assez maladroit, en effet ce dernier a voulu traduire du code c++ en delphi, tout en gardant le même style, à savoir les fenêtres en api ect..., et donc forcément le projet devient assez difficile a debugger, il faut reconsituer le puzzle mais bref..., si vous êtes interrésser par ce projet voici le lien
www.w3seek.de, je vous souhaite un très Joyeux Noël à tous et à toutes, ainsi que tout mes meilleurs voeux pour l'Année 2004, j'espère que vous avez été très sage cet Année sinon papa noël... ;)
Messages postés
308
Date d'inscription
mardi 11 juin 2002
Statut
Membre
Dernière intervention
26 septembre 2008

1-modifie la ligne 92

HID := IntToHex(StrToInt64(ID.Text),8);

StrToInt64 transfert " FFFFFFFF " comme il se doit
StrToInt transfert " FFFFFFFF" à -1 ...pas très correct

2-modifie la ligne 112

ID.Text := IntToStr(HexToInt(Temp));

3-StrUtils.ReverseString(sting);string
fait la job il me semble ?


4- utilise cette function HexToInt qui renvoi les valeur supposé

function HexToInt(HexStr: String): Int64;
var RetVar : Int64;
i : byte;
begin
HexStr := UpperCase(HexStr);
if HexStr[length(HexStr)] = 'H' then
Delete(HexStr,length(HexStr),1);
RetVar := 0;

for i := 1 to length(HexStr) do begin
RetVar := RetVar shl 4;
if HexStr[i] in ['0'..'9'] then
RetVar := RetVar + (byte(HexStr[i]) - 48)
else
if HexStr[i] in ['A'..'F'] then
RetVar := RetVar + (byte(HexStr[i]) - 55)
else begin
Retvar := 0;
break;
end;
end;
Result := RetVar;
end;


ça ira mieux après

ah oui j'oubliais ,évite d'inclure dans tes projets le chemin par défaut que tu as chez toi ,moi je ne détiens pas le répertoire c:programfilesdelphi7...
ce qui cré une erreur impossible de créer le fichier de sortie ,pour moi ça va mais les nouveaux ne seront pas capable de compilier (projet/ options/destination...=nil

2ie points je ne dispose pas des unité xpmanifest...,ça n'a aucune importance mais bon je dois supprimer tout ce qui a rapport à ces unité pour compiler ...

c'est très bien quand même !!! je rigole joyeuses fêtes
Yve
Messages postés
83
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
8 octobre 2008

Merci e1130
Messages postés
23
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
7 juin 2007

Le problème vien du fais que le programme utilise des variables type Integer qui ne peut prendre que certaine valeur, hor si on depasse ses valeurs, il en resulte des erreur.

Je reviendrai plus tard pour donner de plus complètes informations

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.