Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [Fake]RootSQL avec installeur et contrat de licence VB.net ::

 
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: Mer 14 Déc - 12:48 (2011)    Sujet du message: [Fake]RootSQL avec installeur et contrat de licence VB.net Répondre en citant

Voici un exemple de fake avec installeur et contrat d'utilisateur final et serial.














Code source de l'installeur



  1. Public Class Form1  
  2.   
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         Label1.Visible = False  
  5.         Label2.Visible = False  
  6.         Label3.Visible = False  
  7.         RichTextBox1.Visible = True  
  8.         Button1.Visible = False  
  9.         Button3.Visible = True  
  10.         RadioButton1.Visible = True  
  11.         RadioButton2.Visible = True  
  12.     End Sub  
  13.   
  14.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  15.         Dim a As Integer  
  16.         a = MsgBox("Vouvlez vous vraiment fermer l'application", vbOKCancel, "Attention!!!!!")  
  17.         If a = vbOK Then  
  18.             Me.Close()  
  19.         End If  
  20.     End Sub  
  21.   
  22.     Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged  
  23.         If RadioButton1.Checked = True Then  
  24.             Button3.Enabled = True  
  25.         Else  
  26.             Button3.Enabled = False  
  27.         End If  
  28.     End Sub  
  29.   
  30.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  31.         RichTextBox1.Visible = False  
  32.         RadioButton1.Visible = False  
  33.         RadioButton2.Visible = False  
  34.         Label4.Visible = True  
  35.         TextBox1.Visible = True  
  36.         Button3.Visible = False  
  37.         Button4.Visible = True  
  38.   
  39.     End Sub  
  40.   
  41.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  
  42.         If TextBox1.Text = "serial" Then  
  43.             Label4.Visible = False  
  44.             TextBox1.Visible = False  
  45.             ProgressBar1.Visible = True  
  46.             Timer1.Start()  
  47.             Label12.Visible = True  
  48.             Label13.Visible = True  
  49.         Else  
  50.             MsgBox("Licence incorrecte", MsgBoxStyle.Information, "Attention !")  
  51.         End If  
  52.   
  53.     End Sub  
  54.   
  55.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  56.         ProgressBar1.Increment(1)  
  57.         If ProgressBar1ProgressBar1.Value = ProgressBar1.Maximum Then  
  58.   
  59.         End If  
  60.         If ProgressBar1.Value = 10 Then  
  61.             Label5.Visible = True  
  62.         End If  
  63.         If ProgressBar1.Value = 20 Then  
  64.             Label5.Visible = False  
  65.             Label6.Visible = True  
  66.         End If  
  67.         If ProgressBar1.Value = 30 Then  
  68.             Label6.Visible = False  
  69.             Label7.Visible = True  
  70.         End If  
  71.         If ProgressBar1.Value = 40 Then  
  72.             Label7.Visible = False  
  73.             Label8.Visible = True  
  74.         End If  
  75.         If ProgressBar1.Value = 60 Then  
  76.             Label8.Visible = False  
  77.             Label9.Visible = True  
  78.         End If  
  79.         If ProgressBar1.Value = 80 Then  
  80.             Label9.Visible = False  
  81.             Label10.Visible = True  
  82.         End If  
  83.         If ProgressBar1.Value = 90 Then  
  84.             Label10.Visible = False  
  85.             Label11.Visible = True  
  86.         End If  
  87.         If ProgressBar1.Value = 100 Then  
  88.             Label11.Visible = False  
  89.             Label12.Visible = False  
  90.             Label13.Visible = False  
  91.             ProgressBar1.Visible = False  
  92.             Button4.Visible = False  
  93.             Button2.Visible = False  
  94.             Button5.Visible = True  
  95.             Label14.Visible = True  
  96.             CheckBox1.Visible = True  
  97.         End If  
  98.     End Sub  
  99.   
  100.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click  
  101.         If CheckBox1.Checked = True Then  
  102.             Form2.Show()  
  103.             Me.Visible = False  
  104.         Else  
  105.             Me.Close()  
  106.         End If  
  107.   
  108.     End Sub  
  109. End Class  


Revenir en haut
Publicité






MessagePosté le: Mer 14 Déc - 12:48 (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