Option Explicit
'=================================================
' º Nombre    : mParseKeys.bas
' º Version   : 2.0
' º Autor     : Milton Candelero
' º Alias     : ElementalCode
' º Pais      : Argentina
' º Fecha     : 13/OCT/2011
' º Dedicado a: El amor de mi vida
' º Licencia  : GNU PUBLIC LICENCE v.3 (Or higher)
'=================================================
'    This file is part of Open Nod32 Keyfinder.
'
'    Open Nod32 Keyfinder is free software: you can redistribute it and/or modify
'    it under the terms of the GNU General Public License as published by
'    the Free Software Foundation, either version 3 of the License, or any later version.
'
'    Open Nod32 Keyfinder is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU General Public License for more details.
'
'    You should have received a copy of the GNU General Public License
'    along with Open Nod32 Keyfinder.  If not, see <http://www.gnu.org/licenses/>.
 
Function ParseKeys(ByVal sHTML As String, ByRef sUser() As String, ByRef sPass() As String)
    'Constantes para los patterns de busqueda
    Const USERPATTERN As String = "(?:EAV|TRIAL|ESS)-\d{8}"
    Const PASSPATTERN As String = "(?:[pP]?assword:? |[pP]?assword:?|nod32key:)(\w{10})"
    'Declarar variables para RegExp
    Dim oREuser As RegExp
    Dim oREpass As RegExp
    'Variables para las colecciones de resultados
    Dim oMCuser As MatchCollection
    Dim oMCpass As MatchCollection
    'Variables para las coincidencias
    Dim oMuser As Match
    Dim oMpass As Match
    'Variables para los indices de las strings de salida _
    y previamente la cantidad de repeticiones (ahorro variables)
    Dim cU As Byte
    Dim cP As Byte
 
    'Crear los objetos del RegExp User y analizar
    Set oREuser = New RegExp
    With oREuser
        .Global = True
        .Pattern = USERPATTERN
        Set oMCuser = .Execute(sHTML)
    End With
 
    'Crear los objetos del ExpReg Pass y analizar
    Set oREpass = New RegExp
    With oREpass
        .Global = True
        .Pattern = PASSPATTERN
        Set oMCpass = .Execute(sHTML)
    End With
 
    'Dimensionar el array
    cU = oMCuser.Count - 1
    ReDim sUser(cU) As String
    cU = 0 ' Vuelvo a cero para seguir usando esta variable.
 
    'Guardar Resultados user
    For Each oMuser In oMCuser
        sUser(cU) = oMuser
        cU = cU + 1
    Next
 
    'Dimensionar el array
    cP = oMCpass.Count - 1
    ReDim sPass(cP) As String
    cP = 0 ' Vuelvo a cero para seguir usando esta variable.
 
    'Guardar Resultados pass
    For Each oMpass In oMCpass
        sPass(cP) = oMpass.SubMatches(0)
        cP = cP + 1
    Next
 
    'Destruir RegExp para ahorrar memoria y porque queda lindo :D
    Set oREuser = Nothing
    Set oREpass = Nothing
End Function
 

for red = 0 to 255
  for green = 0 to 255
    for blue = 0 to 255
      Text1.forecolor = RGB(red, green, blue)
      doevents
    next blue
  next green
next red
 

Option Explicit
 
'Code by Elemental Code
'Proof of concept
'SELF CRC32 CHECK
'Make sure nobody tampers with your software
'Dedicated, as always, to my Girlfriend <3
'Argentina 24/1/2012
 
Sub Main()
    Dim bArray() As Byte 'Byte Array With the code.
    Dim MySelf As String 'My exe file
    Dim mymixedcode As String 'all the bin together
    Dim MyCode() As String ' The splitted code
    Dim lCrC32 As Long 'the CRC32
    Dim clsCRC32 As New cCRC32
 
    'Get my own exe file in a way invisible to kaspersky (Fuck you)
    MySelf = Chr$(101) & Chr$(120) & Chr$(101) & Chr$(46) & StrReverse(App.EXEName) & Chr$(92) & StrReverse(App.Path)
 
    'Get my Binary code
    Open StrReverse(MySelf) For Binary As #1
    mymixedcode = Space(LOF(1))
    Get #1, , mymixedcode
    Close #1
 
    'Split My code
    MyCode() = Split(mymixedcode, "[#@$|$@#]")
    '0 My file | 1 Right CRC32
 
    'Convert to Byte array
    bArray() = StrConv(MyCode(0), vbFromUnicode)
 
    'Get CRC32
    lCrC32 = clsCRC32.GetByteArrayCrc32(bArray)
 
    'Compare CRC32
    If Hex(lCrC32) = MyCode(1) Then
        MsgBox "Success!!" & vbCrLf & "CRC32 Match, You are using the ORIGINAL Software" & vbCrLf & "Press OK to launch the application", vbExclamation, "SELF CRC32 Checker v 0.1"
        'Show your Form HERE!!
    Else
        MsgBox "ERROR: CRC32 MISSMATCH!!" & vbCrLf & "CRC32 Missmatch means this file was edited!!" & vbCrLf & "GET THE ORIGINAL ONE NOW!!", vbCritical, "SELF CRC32 Checker v 0.1"
    End If
End Sub

[#@$|$@#]

[#@$|$@#]5186AC9D

http://www.mediafire.com/?2qb7tnzkt9gu159