Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [Fake] Générateur de code donateur Omerta 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 - 13:15 (2011)    Sujet du message: [Fake] Générateur de code donateur Omerta VB.net Répondre en citant

Omerta est un mmprg qui demande des code donateur afin de pouvoir avoir des option supplémentaire, clic etc...

http://www.barafranca.fr/








  1. Public Class Form1  
  2.   
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         TextBox1.Text = Int(Rnd() * 10)  
  5.         Select Case TextBox1.Text  
  6.             Case 0  
  7.                 TextBox1.Text = "521ba90d"  
  8.             Case 1  
  9.                 TextBox1.Text = "244jh20d"  
  10.             Case 2  
  11.                 TextBox1.Text = "488cd45d"  
  12.             Case 3  
  13.                 TextBox1.Text = "qd44dc45"  
  14.             Case 4  
  15.                 TextBox1.Text = "s2242fd4"  
  16.             Case 5  
  17.                 TextBox1.Text = "sd5475sd"  
  18.             Case 6  
  19.                 TextBox1.Text = "d1s42d2f"  
  20.             Case 7  
  21.                 TextBox1.Text = "d242sdf4"  
  22.             Case 8  
  23.                 TextBox1.Text = "5dsws335"  
  24.             Case 9  
  25.                 TextBox1.Text = "d1s3d1s3"  
  26.             Case 10  
  27.                 TextBox1.Text = "d5s3d54s"  
  28.         End Select  
  29.     End Sub  
  30.   
  31.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  32.         Close()  
  33.     End Sub  
  34. End Class  





Code de la version 2





  1. Option Strict Off  
  2. Option Explicit On  
  3. Public Class Form2  
  4.     Inherits System.Windows.Forms.Form  
  5.     Dim i As Short  
  6.     Dim pass As String  
  7.     Dim charactere(35) As String  
  8.   
  9.     Private Const AW_BLEND = &H80000  
  10.     Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Int32, ByVal dwTime As Int32, ByVal dwFlags As Int32) As Boolean  
  11.     Dim winHide As Integer = &H10000  
  12.     Dim winBlend As Integer = &H80000  
  13.   
  14.     Private Sub generate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles generate.Click  
  15. Citation: Randomize()  
  16.         pass = ""  
  17.         i = 0  
  18.         While (i <= 7)  
  19.             passpass = pass & charactere(CShort(Rnd() * 35))  
  20.             ii = i + 1  
  21.         End While  
  22.         passpassword.Text = pass  
  23.         My.Computer.Clipboard.Clear()  
  24.         My.Computer.Clipboard.SetText(password.Text)  
  25.     End Sub  
  26.   
  27.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  28.         AnimateWindow(Me.Handle.ToInt32, CInt(1500), winHide Or winBlend)  
  29.         Me.Close()  
  30.         Form1.Close()  
  31.     End Sub  
  32.   
  33.     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  34.         charactere(0) = "a"  
  35.         charactere(1) = "b"  
  36.         charactere(2) = "c"  
  37.         charactere(3) = "d"  
  38.         charactere(4) = "e"  
  39.         charactere(5) = "f"  
  40.         charactere(6) = "g"  
  41.         charactere(7) = "h"  
  42.         charactere(8) = "i"  
  43.         charactere(9) = "j"  
  44.         charactere(10) = "k"  
  45.         charactere(11) = "l"  
  46.         charactere(12) = "m"  
  47.         charactere(13) = "n"  
  48.         charactere(14) = "o"  
  49.         charactere(15) = "p"  
  50.         charactere(16) = "q"  
  51.         charactere(17) = "r"  
  52.         charactere(18) = "s"  
  53.         charactere(19) = "t"  
  54.         charactere(20) = "u"  
  55.         charactere(21) = "v"  
  56.         charactere(22) = "w"  
  57.         charactere(23) = "x"  
  58.         charactere(24) = "y"  
  59.         charactere(25) = "z"  
  60.         charactere(26) = "0"  
  61.         charactere(27) = "1"  
  62.         charactere(28) = "2"  
  63.         charactere(29) = "3"  
  64.         charactere(30) = "4"  
  65.         charactere(31) = "5"  
  66.         charactere(32) = "6"  
  67.         charactere(33) = "7"  
  68.         charactere(34) = "8"  
  69.         charactere(35) = "9"  
  70.     End Sub  
  71. End Class  




_________________


Revenir en haut
Publicité






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