Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRYPTEUR D'IP


Information sur la source

Catégorie :Maths Niveau : Débutant Date de création : 27/12/2003 Date de mise à jour : 27/12/2003 10:59:21 Vu / téléchargé: 2 519 / 231

Note :
Aucune note

Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

Description

Salut,voila ce code permet de crypter son ip crypter c'est beaucoup dire je veux dire c'est crypter comme sa lol...
Breff l'expliquation de sa « système décimal ou systeme en base b »
L'on va prendre comme exemple : 152.156.231.213
Sois en système décimal :
152 *256(exposant 3) = 2550136832
156 *256(exposant 2) = 10223616
231 *256(exposant 1) = 59136
213 *1                       = 213

Si on additionne tous sa donc 2550136832+10223616+59136+213 = 2560419797

Héé oui,en effet cette fonction assez connue peux permettre un ping ou autre...
Genre Demarrer>Executer...>cmd>Ping VOTRE IP CRYPTER.
Et bien vous abtonez votre vrai ip.
Vous me direz a quoi sa va servire etc...m'en fou toute facon ++
Bonne prog

 

Source

  • Private Sub Command1_Click()
  • On Error Resume Next
  • a = Text1
  • c = Text1 * 16777216 'On multiplie le texte 1 par ce nombre car c'est = a 256*256*256
  • Text5 = c
  • a = Text2
  • c = Text2 * 65536 ' meme chose cette fois utilisant 256*256
  • Text6 = c
  • a = Text3
  • c = Text3 * 256 ' *256
  • Text7 = c
  • a = Text4
  • c = Text4 * 1 ' *1
  • Text8 = c
  • End Sub
  • Private Sub Command2_Click()
  • Text9.Text = Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8) 'Une addition qui crypte l'ip
  • Caption = "Ton ip crypter est " + Text9 + " by c00ol" 'Changer la caption de la form apres cryptage
  • End Sub
  • Private Sub Form_Load()
  • Label2 = Winsock1.LocalIP 'pour connaitre l'ip de notre pc!
  • End Sub
Private Sub Command1_Click()
On Error Resume Next
a = Text1
c = Text1 * 16777216 'On multiplie le texte 1 par ce nombre car c'est = a 256*256*256
Text5 = c
a = Text2
c = Text2 * 65536 ' meme chose cette fois utilisant 256*256
Text6 = c
a = Text3
c = Text3 * 256 ' *256
Text7 = c
a = Text4
c = Text4 * 1 ' *1
Text8 = c
End Sub

Private Sub Command2_Click()
Text9.Text = Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8) 'Une addition qui crypte l'ip
Caption = "Ton ip crypter est " + Text9 + "  by c00ol" 'Changer la caption de la form apres cryptage
End Sub

Private Sub Form_Load()
Label2 = Winsock1.LocalIP 'pour connaitre l'ip de notre pc!
End Sub

Conclusion

Fin (-; bayyyy ++
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de c00ol le 27/12/2003 00:38:25

Vos commentaires sont les bienvenus,insulte tous...toute facon chaqun sa facon...
++ bonn prog:d

signaler à un administrateur
Commentaire de carabidule le 27/12/2003 00:47:58

S'est un débus lol mais tu aprendera que tu peu fair bien plus simple :

text5 = (val(text1)*256) + (val(text2)*256) + (val(text3)*256) +(val(text4)*1)

;) Tchao

signaler à un administrateur
Commentaire de pwoc le 27/12/2003 09:58:18

C'est la methode qu'utilise EMule pour définir les ID

signaler à un administrateur
Commentaire de Sipadan le 27/12/2003 12:24:36

Intéressent, mais quelle est la façon de s'en servir sur le net. http://1375367498 ne marche pas!

signaler à un administrateur
Commentaire de blabla le 27/12/2003 18:55:51

moi je trouve ca bien , bon ya 1 moi jais demander a une charmante femme qui est sur ce site et elle ma tres bien espliquer ( je te remerci encore :) .
donc ouais c cool mais le projet que je voulais faire c un decrypteur moi ....mais jais pu de temp et la prog et moi lol c pas tro sa :P

Bonne continuation ++

signaler à un administrateur
Commentaire de kimmelf2 le 28/12/2003 02:24:10

euh ... carabidule, ton truc n'est pas bon !

text5 = val(text4) + 256 * (val(text3) + 256 * (val(text2) + 256 * val(text1)))

signaler à un administrateur
Commentaire de doppel2000 le 30/12/2003 10:13:48

--> carabidule & kimmelf2 :

Pour l'ip A.B.C.D l'ip en décimal est :

A * 256^3 + B*256^2 + C*256 + D

--> Sipadan

Si si ça fonctionne. Tu as du mal calculé ;)

signaler à un administrateur
Commentaire de ofeelfree le 05/01/2004 16:16:42

c = Text4 * 1 ...

un peu d'algorithmique que diable...

signaler à un administrateur
Commentaire de c00ol le 05/01/2004 17:28:19

héhé mai noter:/ les commentaires c bien mai bon jémerai un peu de poin:$ enfin lol...
Oué en effet vous reson même si quelqun de vous se son tromper dans leur calcul...Aller ciao;)

signaler à un administrateur
Commentaire de jambonbeure le 23/04/2004 19:19:07

bonjour,

moi j'aimerais simplement savoir par quel moyen tu crypte ton ip stp ? j'ai télécharger ton zip mais il y a seulement un url, un .txt de code source et 3 fichier bribes, donc aucun exe dedant, rien pour me permettre de crypter l'ip, donc si vous pouviez m'expliquez svp la procédure ?
merci d'avance

Amicalement

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,125 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.