Conversion d'ip ....
Contenu du snippet
Conversion d'ip longue en ip "courte" et vice versa
par exemple
procedure Form1.Button1Click(Sender:Tobject);
var MaShortIp:Dword;
MaLongIp:String;
begin
MaShortIp:=LongIpToShortip('127.0.0.1');
MaLongIp:=ShortIpToLongIp(mashortip);
showmessage(inttostr(MaShortIp)+' correspond a l''ip '+MaLongIp);
end;
Ca peut rendre des services, ca permet de compacter les ip ....
Bon Coding...
ManChesTer.
par exemple
procedure Form1.Button1Click(Sender:Tobject);
var MaShortIp:Dword;
MaLongIp:String;
begin
MaShortIp:=LongIpToShortip('127.0.0.1');
MaLongIp:=ShortIpToLongIp(mashortip);
showmessage(inttostr(MaShortIp)+' correspond a l''ip '+MaLongIp);
end;
Source / Exemple :
Function longiptoshortip(ip:string):dword;
var sip:dword;
begin
sip:=strtoint(copy(ip,1,pos('.',ip)-1))*$1000000;
delete(ip,1,pos('.',ip));
sip:=sip+strtoint(copy(ip,1,pos('.',ip)-1))*$10000;
delete(ip,1,pos('.',ip));
sip:=sip+strtoint(copy(ip,1,pos('.',ip)-1))*$100;
delete(ip,1,pos('.',ip));
result:=sip+strtoint(ip);
end;
Function ShortIpToLongIp(sIp:dword):string;
var ip:string;
begin
ip:='.'+inttostr(sip mod $100);
sip:=sip shr 8;
ip:='.'+inttostr(sip mod $100)+ip;
sip:=sip shr 8;
ip:='.'+inttostr(sip mod $100)+ip;
sip:=sip shr 8;
result:=inttostr(sip mod $100)+ip;
end;
Conclusion :
Ca peut rendre des services, ca permet de compacter les ip ....
Bon Coding...
ManChesTer.
A voir également
- Conversion d'ip ....
- Tag ip session - Forum PHP
- Sécuriser l'authentification avec session ✓ - Forum C# / .NET
- IP - Forum C / C++ / C++.NET
- Ouvrir une session windows d'un pc sur le reseau local - Forum Visual Basic 6
- Comment connaître et mémoriser l'adresse IP des visiteurs de mo, site ✓ - Forum PHP
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.