Código: Seleccionar todo

Error de Compilación:
No se encontró el metodo o el nombre de datos.

Código: Seleccionar todo

Const Cualquiercosa1 = " k29jSm2evjgfsjxXj24jw0tlLn4jhKAoMXZn2x "
Const Cualquiercosa2 = " WjJGelpHZGhabWR6WVdSbmRHVnljd2FzZGZhcX "
Const Cualquiercosa3 = " WVhOa1ptRnpOVFEyWVhOa2MyRmtabkZsZDNJJT "
Public Function srandom()
Dim asdf As String
Dim qwerty As Integer

asdf = Cualquiercosa1 + Cualquiercosa2 + Cualquiercosa3
For qwerty = 1 To 50
srandom = srandom & Mid$(asdf, Int((Rnd * Len(asdf)) + 1), 1)
Next qwerty
End Function

Private Sub Command1_Click()
With CD
.DialogTitle = " Selecciona el archivo a encriptar "
.Filter = " Aplicaciones EXE|*.exe"
.ShowOpen
End With
If Dir(CD.FileName) = vbNullString Then Exit Sub
Text1.Text = CD.FileName
End Sub

Private Sub Command2_Click()
Text2.Text = srandom
End Sub

Private Sub Command3_Click()
Dim Cosa As String
If Text1.Text = vbNullString Then
MsgBox " No esta! ", vbInformation, Me.Caption
Exit Sub
End If

With CD
.DialogTitle = " Selecciona la ruta donde guardar "
.Filter = "Aplicaciones EXE|*.exe "
.ShowSave
End With
Open App.Path & "\" & "Stub.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , Cosa
Close #1

Dim EOF As String
If Check1.Value = 1 Then EOF = ReadEOFData(Text1.Text)

Dim StubBin As String
Open Text1.Text For Binary As #1
StubBin = Space(LOF(1))
Get #1, , StubBin
Close #1

Dim RC4 As New clsRC4
Dim encriptacion As String

If Option1.Value = True Then
StubBin = RC4.EncryptString(StubBin, Text2.Text)
encriptacion = "RC4"
End If

Dim STUBDATOS As String
STUBDATOS = Stub & "[aquiestamos]" & StubBin & "[aquiestamos]" & Text2.Text
If Check1.Value = 1 Then Call WriteEOFData(CD.FileName, EOF)
Open CD.FileName For Binary As #1
Put #1, , STUBDATOS & "EseSoyYo"
Close #1

MsgBox "Encriptado!", vbInformation, Me.Caption

End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub