karcrack por favor explica lo del csrss.exe
Suena rustico
Suena rustico
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúUsuario:Contraceña@SitioWebOCosoConWeb.com
Public Function PE4_eCode(Optional ByVal lCifras As Long = 3) As Double
Dim Nueves As Double
Dim Factor As Double
Dim i As Double
Dim y As Double
If lCifras < 1 Then Exit Function 'anti negativos.
Nueves = 10 * (10 ^ (lCifras - 1)) - 1
Factor = 9 * (10 ^ (lCifras - 1))
PE4_eCode = Nueves * Factor
For i = Nueves To 1 Step -2
If i Mod 11 = 0 Then 'Karcrack logic :D
For y = Nueves To Factor Step -2
PE4_eCode = i * y
If PE4_eCode = StrReverse(PE4_eCode) Then Exit Function
Next
End If
Next
End Function