VB08 -- Tutoriel -- Le Random

Par tutos-tools-actus le 21 Décembre 2010 à 15:18

VB08 -- Tutoriel -- Le Random

Dans ce tutoriel, je vais vous montrer comment coder un Random, il est aussi utilisé dans les RAT, les Keyloggers...

Ce tutoriel est en VIsual Basic 2008, par Atrocity.

Public Class Form1
    ' Dans ce tutoriel présenté par Atrocity, je vais vous montrer comment coder un Random.
    ' Il générera des symboles, des nombres, des lettres capitales et des lettres minuscules.
    ' Visual Basic 2008 - http://tutos-tools-actus.doomby.com/

    Dim lowercase = "abcdefghijklmnopqrstuvwxyz" ' Lettres minuscules
    Dim capitals = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   ' Lettres capitales
    Dim numbers = "0123456789"                    'Les nombres
    Dim symbols = "!@#$%^&*()_+=-,./?><\][';:{}|" ' Les symboles

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = "" ' Cette TextBox2 donnera le Random généré.
        Dim contains = ""
        If CheckBox1.Checked = True Then contains &= capitals
        If CheckBox2.Checked = True Then contains &= lowercase
        If CheckBox3.Checked = True Then contains &= numbers
        If CheckBox4.Checked = True Then contains &= symbols
        If contains.Length = 0 Then Exit Sub
        Dim randoms As New Random
        For lengh As Integer = 1 To TextBox1.Text
            Dim rndnum = randoms.Next(1, contains.Length)
            Dim strs = Mid(contains, rndnum, 1)
            TextBox2.Text &= strs
        Next
    End Sub
End Class

votre commentaire
C# -- Matrix

Par tutos-tools-actus le 21 Décembre 2010 à 15:16

C# -- Matrix

Comment faire un affichage en C# 2010 en Console à la matrix, simple...

using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace m7tr1x { class Program { static void Main(string[] args) { Console.Title = "tH3 M7tr1x"; Console.ForegroundColor = ConsoleColor.DarkBlue; Console.WindowLeft = Console.WindowTop = 0; Console.WindowHeight = Console.BufferHeight = Console.LargestWindowHeight; Console.WindowWidth = Console.BufferWidth = Console.LargestWindowWidth; #if readkey Console.WriteLine("H1T 7NY K3Y T0 C0NT1NU3 =/"); Console.ReadKey(); #endif Console.CursorVisible = false; int width, height; int[] y; int[] l; Initialize(out width, out height, out y, out l); int ms; while (true) { DateTime t1 = DateTime.Now; MatrixStep(width, height, y, l); ms = 10 - (int)((TimeSpan)(DateTime.Now - t1)).TotalMilliseconds; if (ms > 0) System.Threading.Thread.Sleep(ms); if (Console.KeyAvailable) if (Console.ReadKey().Key == ConsoleKey.F5) Initialize(out width, out height, out y, out l); } } static bool thistime = false; private static void MatrixStep(int width, int height, int[] y, int[] l) { int x; thistime = !thistime; for (x = 0; x < width; ++x) { if (x % 11 == 10) { if (!thistime) continue; Console.ForegroundColor = ConsoleColor.White; } else { Console.ForegroundColor = ConsoleColor.DarkGreen; Console.SetCursorPosition(x, inBoxY(y[x] - 2 - (l[x] / 40 * 2), height)); Console.Write(R); Console.ForegroundColor = ConsoleColor.Green; } Console.SetCursorPosition(x, y[x]); Console.Write(R); y[x] = inBoxY(y[x] + 1, height); Console.SetCursorPosition(x, inBoxY(y[x] - l[x], height)); Console.Write(" "); } } private static void Initialize(out int width, out int height, out int[] y, out int[] l) { int h1; int h2 = (h1 = (height = Console.WindowHeight) / 2) / 2; width = Console.WindowWidth - 1; y = new int[width]; l = new int[width]; int x; Console.Clear(); for (x = 0; x < width; ++x) { y[x] = r.Next(height); l[x] = r.Next(h2 * ((x % 11 != 10) ? 2 : 1), h1 * ((x % 11 != 10) ? 2 : 1)); } } static Random r = new Random(); static char R { get { int t = r.Next(10); if (t <= 2) return (char)('0' + r.Next(10)); else if (t <= 4) return (char)('a' + r.Next(27)); else if (t <= 6) return (char)('A' + r.Next(27)); else return (char)(r.Next(32, 255)); } } public static int inBoxY(int n, int height) { n = n % height; if (n < 0) return n + height; else return n; } } }

votre commentaire
VB.net -- 3 thèmes

Par tutos-tools-actus le 21 Décembre 2010 à 15:14

VB.net -- 3 thèmes

Imports System.Drawing.Drawing2D
'Controls created by Aeonhack
'http://www.youtube.com/aeonhack
Public Class Draw
    Shared Sub Gradient(ByVal g As Graphics, ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
        Dim R As New Rectangle(x, y, width, height)
        Using T As New LinearGradientBrush(R, c1, c2, LinearGradientMode.Vertical)
            g.FillRectangle(T, R)
        End Using
    End Sub
    Shared Sub Blend(ByVal g As Graphics, ByVal c1 As Color, ByVal c2 As Color, ByVal c3 As Color, ByVal c As Single, ByVal d As Integer, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
        Dim V As New ColorBlend(3)
        V.Colors = New Color() {c1, c2, c3}
        V.Positions = New Single() {0, c, 1}
        Dim R As New Rectangle(x, y, width, height)
        Using T As New LinearGradientBrush(R, c1, c1, CType(d, LinearGradientMode))
            T.InterpolationColors = V : g.FillRectangle(T, R)
        End Using
    End Sub
End Class
'Pearl Theme
Public Class PTheme : Inherits Control
    Private _TitleHeight As Integer = 25
    Public Property TitleHeight() As Integer
        Get
            Return _TitleHeight
        End Get
        Set(ByVal v As Integer)
            If v > Height Then v = Height
            If v < 2 Then Height = 1
            _TitleHeight = v : Invalidate()
        End Set
    End Property
    Private _TitleAlign As HorizontalAlignment
    Public Property TitleAlign() As HorizontalAlignment
        Get
            Return _TitleAlign
        End Get
        Set(ByVal v As HorizontalAlignment)
            _TitleAlign = v : Invalidate()
        End Set
    End Property
    Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
        Dock = 5
        If TypeOf Parent Is Form Then CType(Parent, Form).FormBorderStyle = 0
        MyBase.OnHandleCreated(e)
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        If New Rectangle(Parent.Location.X, Parent.Location.Y, Width - 1, _TitleHeight - 1).IntersectsWith(New Rectangle(MousePosition.X, MousePosition.Y, 1, 1)) Then
            Capture = False : Dim M = Message.Create(Parent.Handle, 161, 2, 0) : DefWndProc(M)
        End If : MyBase.OnMouseDown(e)
    End Sub
    Dim C1 As Color = Color.FromArgb(240, 240, 240), C2 As Color = Color.FromArgb(230, 230, 230), C3 As Color = Color.FromArgb(190, 190, 190)
    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Using B As New Bitmap(Width, Height)
            Using G = Graphics.FromImage(B)
                G.Clear(Color.FromArgb(245, 245, 245))

                Draw.Blend(G, Color.White, C2, C1, 0.7, 1, 0, 0, Width, _TitleHeight)

                G.FillRectangle(New SolidBrush(Color.FromArgb(80, 255, 255, 255)), 0, 0, Width, CInt(_TitleHeight / 2))
                G.DrawRectangle(New Pen(Color.FromArgb(100, 255, 255, 255)), 1, 1, Width - 3, _TitleHeight - 2)

                Dim S = G.MeasureString(Text, Font), O = 6
                If _TitleAlign = 2 Then O = Width / 2 - S.Width / 2
                If _TitleAlign = 1 Then O = Width - S.Width - 6
                G.DrawString(Text, Font, New SolidBrush(C3), O, CInt(_TitleHeight / 2 - S.Height / 2))

                G.DrawLine(New Pen(C3), 0, _TitleHeight, Width, _TitleHeight)
                G.DrawLine(Pens.White, 0, _TitleHeight + 1, Width, _TitleHeight + 1)
                G.DrawRectangle(New Pen(C3), 0, 0, Width - 1, Height - 1)

                e.Graphics.DrawImage(B.Clone, 0, 0)
            End Using
        End Using
    End Sub
End Class
Public Class PButton : Inherits Control
    Sub New()
        ForeColor = C3
    End Sub
    Private State As Integer
    Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
        State = 1 : Invalidate() : MyBase.OnMouseEnter(e)
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        State = 2 : Invalidate() : MyBase.OnMouseDown(e)
    End Sub
    Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
        State = 0 : Invalidate() : MyBase.OnMouseLeave(e)
    End Sub
    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        State = 1 : Invalidate() : MyBase.OnMouseUp(e)
    End Sub
    Dim C1 As Color = Color.FromArgb(240, 240, 240), C2 As Color = Color.FromArgb(230, 230, 230), C3 As Color = Color.FromArgb(190, 190, 190)
    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Using B As New Bitmap(Width, Height)
            Using G = Graphics.FromImage(B)
                If State = 2 Then
                    Draw.Gradient(G, C2, Color.WhiteSmoke, 1, 1, Width, Height)
                Else
                    Draw.Gradient(G, Color.WhiteSmoke, C2, 1, 1, Width, Height)
                End If

                If State < 2 Then G.FillRectangle(New SolidBrush(Color.FromArgb(80, 255, 255, 255)), 0, 0, Width, CInt(Height * 0.3))

                Dim S = G.MeasureString(Text, Font)
                G.DrawString(Text, Font, New SolidBrush(ForeColor), Width / 2 - S.Width / 2, Height / 2 - S.Height / 2)
                G.DrawRectangle(New Pen(C3), 0, 0, Width - 1, Height - 1)

                e.Graphics.DrawImage(B.Clone, 0, 0)
            End Using
        End Using
    End Sub
End Class
Public Class PProgress : Inherits Control
    Private _Value As Integer
    Public Property Value() As Integer
        Get
            Return _Value
        End Get
        Set(ByVal value As Integer)
            _Value = value : Invalidate()
        End Set
    End Property
    Private _Maximum As Integer = 100
    Public Property Maximum() As Integer
        Get
            Return _Maximum
        End Get
        Set(ByVal value As Integer)
            If value = 0 Then value = 1
            _Maximum = value : Invalidate()
        End Set
    End Property
    Dim C1 As Color = Color.FromArgb(240, 240, 240), C2 As Color = Color.FromArgb(230, 230, 230), C3 As Color = Color.FromArgb(190, 190, 190)
    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim V As Integer = Width * _Value / _Maximum
        Using B As New Bitmap(Width, Height)
            Using G = Graphics.FromImage(B)
                Draw.Gradient(G, C2, C1, 1, 1, Width - 2, Height - 2)
                G.DrawRectangle(New Pen(C2), 1, 1, V - 3, Height - 3)
                Draw.Gradient(G, C1, C2, 2, 2, V - 4, Height - 4)

                G.FillRectangle(New SolidBrush(Color.FromArgb(50, 255, 255, 255)), 2, 2, V - 4, CInt(Height / 2) - 2)
                G.DrawRectangle(New Pen(C3), 0, 0, Width - 1, Height - 1)

                e.Graphics.DrawImage(B.Clone, 0, 0)
            End Using
        End Using
    End Sub
End Class
'Modern Theme
Public Class MTheme : Inherits Control
    Private _TitleHeight As Integer = 25
    Public Property TitleHeight() As Integer
        Get
            Return _TitleHeight
        End Get
        Set(ByVal v As Integer)
            If v > Height Then v = Height
            If v < 2 Then Height = 1
            _TitleHeight = v : Invalidate()
        End Set
    End Property
    Private _TitleAlign As HorizontalAlignment = 2
    Public Property TitleAlign() As HorizontalAlignment
        Get
            Return _TitleAlign
        End Get
        Set(ByVal v As HorizontalAlignment)
            _TitleAlign = v : Invalidate()
        End Set
    End Property
    Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
        Dock = 5
        If TypeOf Parent Is Form Then CType(Parent, Form).FormBorderStyle = 0
        MyBase.OnHandleCreated(e)
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        If New Rectangle(Parent.Location.X, Parent.Location.Y, Width - 1, _TitleHeight - 1).IntersectsWith(New Rectangle(MousePosition.X, MousePosition.Y, 1, 1)) Then
            Capture = False : Dim M = Message.Create(Parent.Handle, 161, 2, 0) : DefWndProc(M)
        End If : MyBase.OnMouseDown(e)
    End Sub
    Dim C1 As Color = Color.FromArgb(74, 74, 74), C2 As Color = Color.FromArgb(63, 63, 63), C3 As Color = Color.FromArgb(41, 41, 41), _
    C4 As Color = Color.FromArgb(27, 27, 27), C5 As Color = Color.FromArgb(0, 0, 0, 0), C6 As Color = Color.FromArgb(25, 255, 255, 255)
    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Using B As New Bitmap(Width, Height)
            Using G = Graphics.FromImage(B)
                G.Clear(C3)

                Draw.Gradient(G, C4, C3, 0, 0, Width, _TitleHeight)

                Dim S = G.MeasureString(Text, Font), O = 6
                If _TitleAlign = 2 Then O = Width / 2 - S.Width / 2
                If _TitleAlign = 1 Then O = Width - S.Width - 6
                Dim R As New Rectangle(O, (_TitleHeight + 2) / 2 - S.Height / 2, S.Width, S.Height)
                Using T As New LinearGradientBrush(R, C1, C3, LinearGradientMode.Vertical)
                    G.DrawString(Text, Font, T, R)
                End Using

                G.DrawLine(New Pen(C3), 0, 1, Width, 1)

                Draw.Blend(G, C5, C6, C5, 0.5, 0, 0, _TitleHeight + 1, Width, 1)

                G.DrawLine(New Pen(C4), 0, _TitleHeight, Width, _TitleHeight)
                G.DrawRectangle(New Pen(C4), 0, 0, Width - 1, Height - 1)

                e.Graphics.DrawImage(B.Clone, 0, 0)
            End Using
        End Using
    End Sub
End Class
Public Class MButton : Inherits Control
    Sub New()
        ForeColor = Color.FromArgb(65, 65, 65)
    End Sub
    Private State As Integer
    Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
        State = 1 : Invalidate() : MyBase.OnMouseEnter(e)
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        State = 2 : Invalidate() : MyBase.OnMouseDown(e)
    End Sub
    Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
        State = 0 : Invalidate() : MyBase.OnMouseLeave(e)
    End Sub
    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        State = 1 : Invalidate() : MyBase.OnMouseUp(e)
    End Sub
    Dim C1 As Color = Color.FromArgb(31, 31, 31), C2 As Color = Color.FromArgb(41, 41, 41), C3 As Color = Color.FromArgb(51, 51, 51), _
    C4 As Color = Color.FromArgb(0, 0, 0, 0), C5 As Color = Color.FromArgb(25, 255, 255, 255)
    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Using B As New Bitmap(Width, Height)
            Using G = Graphics.FromImage(B)
                G.DrawRectangle(New Pen(C1), 0, 0, Width - 1, Height - 1)

                If State = 2 Then
                    Draw.Gradient(G, C2, C3, 1, 1, Width - 2, Height - 2)
                Else
                    Draw.Gradient(G, C3, C2, 1, 1, Width - 2, Height - 2)
                End If

                Dim O = G.MeasureString(Text, Font)
                G.DrawString(Text, Font, New SolidBrush(ForeColor), Width / 2 - O.Width / 2, Height / 2 - O.Height / 2)

                Draw.Blend(G, C4, C5, C4, 0.5, 0, 1, 1, Width - 2, 1)

                e.Graphics.DrawImage(B.Clone, 0, 0)
            End Using
        End Using
    End Sub
End Class
Public Class MProgress : Inherits Control
    Private _Value As Integer
    Public Property Value() As Integer
        Get
            Return _Value
        End Get
        Set(ByVal value As Integer)
            _Value = value : Invalidate()
        End Set
    End Property
    Private _Maximum As Integer = 100
    Public Property Maximum() As Integer
        Get
            Return _Maximum
        End Get
        Set(ByVal value As Integer)
            If value = 0 Then value = 1
            _Maximum = value : Invalidate()
        End Set
    End Property
    Dim C1 As Color = Color.FromArgb(31, 31, 31), C2 As Color = Color.FromArgb(41, 41, 41), C3 As Color = Color.FromArgb(51, 51, 51), _
    C4 As Color = Color.FromArgb(0, 0, 0, 0), C5 As Color = Color.FromArgb(25, 255, 255, 255)
    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim V As Integer = Width * _Value / _Maximum
        Using B As New Bitmap(Width, Height)
            Using G = Graphics.FromImage(B)
                Draw.Gradient(G, C2, C3, 1, 1, Width - 2, Height - 2)
                G.DrawRectangle(New Pen(C2), 1, 1, V - 3, Height - 3)
                Draw.Gradient(G, C3, C2, 2, 2, V - 4, Height - 4)

                G.DrawRectangle(New Pen(C1), 0, 0, Width - 1, Height - 1)

                e.Graphics.DrawImage(B.Clone, 0, 0)
            End Using
        End Using
    End Sub
End Class
'Electron Theme
Public Class ETheme : Inherits Control
    Private _TitleHeight As Integer = 25
    Public Property TitleHeight() As Integer
        Get
            Return _TitleHeight
        End Get
        Set(ByVal v As Integer)
            If v > Height Then v = Height
            If v < 2 Then Height = 1
            _TitleHeight = v : Invalidate()
        End Set
    End Property
    Private _TitleAlign As HorizontalAlignment = 2
    Public Property TitleAlign() As HorizontalAlignment
        Get
            Return _TitleAlign
        End Get
        Set(ByVal v As HorizontalAlignment)
            _TitleAlign = v : Invalidate()
        End Set
    End Property
    Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
        Dock = 5
        If TypeOf Parent Is Form Then CType(Parent, Form).FormBorderStyle = 0
        MyBase.OnHandleCreated(e)
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        If New Rectangle(Parent.Location.X, Parent.Location.Y, Width - 1, _TitleHeight - 1).IntersectsWith(New Rectangle(MousePosition.X, MousePosition.Y, 1, 1)) Then
            Capture = False : Dim M = Message.Create(Parent.Handle, 161, 2, 0) : DefWndProc(M)
        End If : MyBase.OnMouseDown(e)
    End Sub
    Dim C1 As Color = Color.FromArgb(0, 70, 114), C2 As Color = Color.FromArgb(0, 47, 78), C3 As Color = Color.FromArgb(0, 34, 57), _
    C4 As Color = Color.FromArgb(0, 30, 50)
    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Using B As New Bitmap(Width, Height)
            Using G = Graphics.FromImage(B)
                G.Clear(C3)

                Draw.Blend(G, C2, C3, C1, 0.5, 1, 0, 0, Width, _TitleHeight)

                G.FillRectangle(New SolidBrush(Color.FromArgb(15, 255, 255, 255)), 1, 1, Width - 2, CInt(_TitleHeight / 2) - 2)
                G.DrawRectangle(New Pen(Color.FromArgb(35, 255, 255, 255)), 1, 1, Width - 3, _TitleHeight - 2)

                Dim S = G.MeasureString(Text, Font), O = 6
                If _TitleAlign = 2 Then O = Width / 2 - S.Width / 2
                If _TitleAlign = 1 Then O = Width - S.Width - 14
                Dim V = CInt(_TitleHeight / 2 - (S.Height + 4) / 2)

                Draw.Gradient(G, C3, C2, O, V, S.Width + 8, S.Height + 4)
                G.DrawRectangle(New Pen(C3), O, V, S.Width + 7, S.Height + 3)

                Dim R As New Rectangle(O + 4, CInt(_TitleHeight / 2 - S.Height / 2), S.Width, S.Height)
                Using T As New LinearGradientBrush(R, C1, C2, LinearGradientMode.Vertical)
                    G.DrawString(Text, Font, T, R)
                End Using

                G.DrawRectangle(New Pen(C1), 1, _TitleHeight + 1, Width - 3, Height - _TitleHeight - 3)

                G.DrawLine(New Pen(C4), 0, _TitleHeight, Width, _TitleHeight)
                G.DrawRectangle(New Pen(C4), 0, 0, Width - 1, Height - 1)
                e.Graphics.DrawImage(B.Clone, 0, 0)
            End Using
        End Using
    End Sub
End Class

votre commentaire
Windows Informations KEYS REGISTRE

Par tutos-tools-actus le 21 Décembre 2010 à 15:13

Windows Informations KEYS REGISTRE

Windows Information|=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion=ProductName|=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion=CSDVersion|Registered Owner=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion=RegisteredOwner|Registered Organization=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion=RegisteredOrganization

@Stake L0pht CrackLC5|Unlock Code=HKEY_CURRENT_USER\Software\@stake\LC5\Registration=Unlock Code
3D Mark 2001|Name=HKEY_LOCAL_MACHINE\SOFTWARE\MadOnion.com\Registration2001=3DMarkRegName|Key=HKEY_LOCAL_MACHINE\SOFTWARE\MadOnion.com\Registration2001=3DMarkRegKey
ACDSee 3.1|key=HKEY_LOCAL_MACHINE\SOFTWARE\ACD Systems\ACDSeeG=LicenseNumber
ACDSee 9.x|User=HKEY_LOCAL_MACHINE\Software\ACD Systems\ACDSee\90=UserName|Serial=HKEY_LOCAL_MACHINE\Software\ACD Systems\ACDSee\90=LicenseNumber
Acronis True Image|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Acronis\TrueImage\Registration=standard
Adobe Acrobat 6|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Adobe Acrobat\6.0\Registration=SERIAL
Adobe Acrobat 7|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Adobe Acrobat\7.0\Registration=SERIAL
Adobe Acrobat 8.x|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Adobe Acrobat\8.0\Registration=SERIAL
Adobe Photoshop 7|Serial=HKEY_LOCaL_MACHINE\SOFTWARE\Adobe\Photoshop\7.0\Registration=SERIAL
Advanced Direct Remailer (ADR =>2.20) |Key=HKEY_LOCAL_MACHINE\SOFTWARE\Tweak Marketing\Advanced Direct Remailer\Registration=code
Advanced Direct Remailer (ADR <=2.18) |Key=HKEY_LOCAL_MACHINE\SOFTWARE\Elcom\Advanced Direct Remailer\Registration=code
After Effects 7|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\After Effects\7.0\Registration=NAME|Company=HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\After Effects\7.0\Registration=COMPAN|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\After Effects\7.0\Registration=Serial
Alcohol 120% 1.9.x|Name=HKEY_CURRENT_USER\Software\Alcohol Soft\Alcohol 120%\Info=UserName|Key=HKEY_CURRENT_USER\Software\Alcohol Soft\Alcohol 120%\Info=ServerKey
Alcohol 120% 1.9.2|Name=HKEY_CURRENT_USER\Software\Alcohol Soft\Alcohol 120%\Info=UserName|Company=HKEY_CURRENT_USER\Software\Alcohol Soft\Alcohol 120%\Info=Company|Serial=HKEY_CURRENT_USER\Software\Alcohol Soft\Alcohol 120%\Info=SerialNo
Anno 1701|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Sunflowers\Anno 1701=SerialNo
AutoCAD 2000,2002|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R15.0\ACAD-1:409\=SerialNumber
AutoCAD 2004|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.0\ACAD-201:409\=SerialNumber
AutoCAD LT 2000|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD LT\R2000\ACLT-1:409\=SerialNumber
AutoCAD LT 2005|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD LT\R10\ACLT-301:409\=SerialNumber
AutoCAD LT 2002|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD LT\R8\ACLT-1:409\=SerialNumber
AutoCAD LT 2002i|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD LT\R7\ACLT-1:409\=SerialNumber
AutoCAD LT 2004|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD LT\R9\ACLT-201:409\=SerialNumber
AutoCAD LT 98|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD LT\R5.0\ACLT-2452551:43869540\=SerialNumber
AutoCAD Mechanical 2000i|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R15.0\ACAD-7:409\=SerialNumber
Axailis IconWorkshop 6.0|Key=HKEY_CURRENT_USER\Software\Axialis\IconWorkshop\registration=ProductKey
Battlefield 1942|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942\ergc=
Battlefield 1942 Road To Rome|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\egrc=
Battlefield 1942 Secret Weapons of WWII|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 Secret Weapons of WWII\ergc=
Battlefield Vietnam|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield Vietnam\ergc=
Beyond TV 4|Key=HKEY_LOCAL_MACHINE\SOFTWARE\SnapStream Media\Beyond TV\=ProductKey
Beyond TV 4 Link|Key=HKEY_LOCAL_MACHINE\SOFTWARE\SnapStream Media\Beyond TV\=NetworkLicense
Beyond Media|Key=HKEY_LOCAL_MACHINE\SOFTWARE\SnapStream Media\Beyond Media\=ProductKey
BitComet Acceleration Patch|=HKEY_LOCAL_MACHINE\SOFTWARE\BitComet Acceleration Patch=Serial
Black and White|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Black and White\ergc=
Borland Delphi 6|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Delphi\6.0=LMLIC|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Delphi\6.0=LMKEY
Borland Delphi 7|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Delphi\7.0=LMLIC|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Delphi\7.0=LMKEY
Call of Duty 2|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 2=codkey
Chrome|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\techland\'Chrome'=serialnumber
Command and Conquer: Generals|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Generals\ergc=
Command and Conquer: Generals Zero Hour|Key=HKEY_LOCAL_MACHINE\SOFTWARE\electronic arts\ea games\command and conquer generals zero hour\ergc=
Command and Conquer: Tiberian Sun|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\westwood\tiberian sun=serial
Command and Conquer: Red Alert|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\westwood\red alert=serial
Command and Conquer: Red Alert 2|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Red Alert 2=Serial
Command and Conquer: Red Alert 2 Yuri's Revenge|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Yuri's Revenge=Serial
Command and Conquer 3: Tiberium Wars|=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Command and Conquer 3\ergc=
Company of Heroes|Version=HKEY_LOCAL_MACHINE\SOFTWARE\THQ\Company of Heroes=Version|Key=HKEY_LOCAL_MACHINE\SOFTWARE\THQ\Company of Heroes=ProductKey
Company of Heroes|Key=HKEY_LOCAL_MACHINE\Software\THQ\Company of Heroes\=CoHProductKey
Counter-Strike (Retail)|Key=HKEY_CURRENT_USER\Software\Valve\CounterStrike\Settings=CDKey
Crysis|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\Electronic Arts\Crysis\ergc=
Cyberlink PowerDVD|Version=HKEY_LOCAL_MACHINE\SOFTWARE\CyberLink\PowerDVD\BuildInfo=Ver|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Cyberlink\PowerDVD=CDKey
Dell Service Tag|Service Tag=HKEY_LOCAL_MACHINE\SOFTWARE\Dell Computer Corporation\SysInfo=SerialNumber
DVD Profiler|First Name=HKEY_CURRENT_USER\Software\InterVocative Software\DVD Profiler=RegFName|Last Name=HKEY_CURRENT_USER\SoftWare\InterVocative Software\DVD Profiler=RegLName|Key=HKEY_CURRENT_USER\Software\InterVocative Software\DVD Profiler=RegKey
Elaborate Bytes Clone DVD|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Elaborate Bytes\CloneDVD\Key=Key
FIFA 2002|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2002\ergc=
FIFA 2003|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2003\ergc=
Freedom Force|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Distribution\Freedom Force\ergc=
Futuremark 3DMark2001|Name=HKEY_LOCAL_MACHINE\SOFTWARE\MadOnion.com\Registration2001=3DMarkRegName|Key=HKEY_LOCAL_MACHINE\SOFTWARE\MadOnion.com\Registration2001=3DMarkRegKey
Futuremark 3DMark2003|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Futuremark\3DMark03=KeyCode
Futuremark 3DMark2005|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Futuremark\3DMark05=KeyCode
Futuremark 3DMark2006|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Futuremark\3DMark06=KeyCode
Futuremark PCMark2005|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Futuremark\PCMark05=KeyCode
GetDataBack|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Runtime Software\GetDataBack\License=Name|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Runtime Software\GetDataBack\License=Key
GetDataBack for NTFS|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Runtime Software\GetDataBackNT\License=Name|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Runtime Software\GetDataBack\License=Key
GetRight|GetRight or GetRight Pro=HKEY_LOCAL_MACHINE\SOFTWARE\Headlight\GetRight=Which|Program Version=HKEY_CURRENT_USER\Software\Headlight\GetRight=InstalledVersion|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Headlight\GetRight=GRCode
Global Operations|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Global Operations\ergc=
Gunman Chronicles|Key=HKEY_CURRENT_USER\Software\Valve\Gunman\Settings=Key
Half-Life|Key=HKEY_CURRENT_USER\Software\Valve\Half-Life\Settings=Key
HDD State Inspector|Key=HKEY_LOCAL_MACHINE\SOFTWARE\AltrixSoft\HDD State Inspector=Key
Hidden & Dangerous 2|Key=HKEY_LOCAL_MACHINE\Software\Illusion Softworks\Hidden & Dangerous 2=key
IGI 2: Covert Strike|Key=HKEY_LOCAL_MACHINE\Software\IGI 2 Retail=CDKey
Industry Giant 2|Key=HKEY_CURRENT_USER\Software\JoWooD\InstalledGames\IG2=prvkey
Internet Download Manager|First Name=HKEY_LOCAL_MACHINE\Software\Internet Download Manager=FName|Lase Name=HKEY_LOCAL_MACHINE\Software\Internet Download Manager=LName|Email=HKEY_LOCAL_MACHINE\Software\Internet Download Manager=Email|Serial=HKEY_LOCAL_MACHINE\Software\Internet Download Manager=Serial
James Bond 007 Nightfire|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\James Bond 007 Nightfire\ergc=
Legends of Might and Magic|Customer Number=HKEY_CURRENT_USER\Software\3d0\Status=CustomerNumber
LimeWire Acceleration Patch|=HKEY_LOCAL_MACHINE\SOFTWARE\LimeWire Acceleration Patch=Serial
MagicISO|Key=HKEY_CURRENT_USER\Software\MagicISO=RegSerialKey|Name=HKEY_CURRENT_USER\Software\MagicISO=RegUserName
mIRC|Username=HKEY_CURRENT_USER\Software\mIRC\UserName=|Key=HKEY_CURRENT_USER\Software\mIRC\License=
Medal of Honor: Allied Assault|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault\egrc=
Medal of Honor: Allied Assault: Breakth|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Breakthrough\ergc=
Medal of Honor: Allied Assault: Spearhe|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Spearhead\ergc=
Mindjet MindManager 7 Pro| Key=HKEY_LOCAL_MACHINE\SOFTWARE\Mindjet\MindManager\7\Registration=LicenseKey
Nascar Racing 2002|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2002\ergc=
Nascar Racing 2003|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2003\ergc=
Naturally Speaking 8|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\ScanSoft\NaturallySpeaking8\Activation=SerialNumber
Need For Speed Hot Pursuit|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need For Speed Hot Pursuit\egrc=
Nero Burning Rom 5|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero - Burning Rom\Info=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero - Burning Rom\Info=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero - Burning Rom\Info=Serial5
Nero Burning Rom 6|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero - Burning Rom\Info=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero - Burning Rom\Info=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero - Burning Rom\Info=Serial6
Nero Burning Rom 6|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Families\Nero 6\Info=Serial6_*
Nero Burning Rom 7|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Families\Nero 7\Info=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Families\Nero 7\Info=Company|Version=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Families\Nero 7\Info=Version|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Families\Nero 7\Info=Serial7_*
NewsBin Pro 5x|First Name=HKEY_CURRENT_USER\Software\DJI Interprises\Newsbin50\RegNew=FirstName|LastName=HKEY_CURRENT_USER\Software\DJI Interprises\Newsbin50\RegNew=LastName|Key=HKEY_CURRENT_USER\Software\DJI Interprises\Newsbin50\RegNew=Code1
NHL 2002|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2002\ergc=
NHL 2003|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2003\ergc=
Norton Antivirus 2006|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\CCPD-LC\KStore\00000082\0000001e\0000004a=Key
Norton PartitionMagic 8.x|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Norton PartitionMagic\8.0\UserInfo=Name|Company=HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Norton PartitionMagic\8.0\UserInfo=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Norton PartitionMagic\8.0\UserInfo=SerialNumber
NOX|Serial=HKEY_LOCAL_MACHINE\Software\Westwood\NOX=Serial
O&O BlueCon 5|Name=HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\OOBlueConPro=User|Company=HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\OOBlueConPro=Company|Serial=HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\OOBlueConPro=SerialNo
O&O CleverCache 6|Name=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O CleverCache\6.0=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O CleverCache\6.0=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O CleverCache\6.0=SerialNo
O&O Defrag 8|Name=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O Defrag\8.0\Pro\licenses=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O Defrag\8.0\Pro\licenses=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O Defrag\8.0\Pro\licenses=SerialNo
O&O DiskImage 1|Name=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O DiskImage\1.0\Pro\licenses=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O DiskImage\1.0\Pro\licenses=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O DiskImage\1.0\Pro\licenses=SerialNo
O&O DiskRecovery 3|Name=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O DiskRecovery\3.0=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O DiskRecovery\3.0=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O DiskRecovery\3.0=SerialNo
O&O DriveLED 2|Name=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O DriveLED\2.0=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O DriveLED\2.0=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O DriveLED\2.0=SerialNo
O&O SafeUnErase 2|Name=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O UnErase\2.0=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O UnErase\2.0=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O UnErase\2.0=SerialNo
O&O SafeErase 2|Name=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O Safeerase\2.0=User|Company=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O Safeerase\2.0=Company|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\O&O\O&O Safeerase\2.0=SerialNo
Padus DiscJuggler|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Padus\DiscJuggler\Settings=User|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Padus\DiscJuggler\Settings=Registration
Passware 8.x|Name=HKEY_CURRENT_USER\Software\Passware\Passware Kit Enterprise\8\Registration=Name|Serial=HKEY_CURRENT_USER\Software\Passware\Passware Kit Enterprise\8\Registration=Serial|License=HKEY_CURRENT_USER\Software\Passware\Passware Kit Enterprise\8\Registration=License
PC Icon Editor|Name=HKEY_CURRENT_USER\Software\Program4Pc\PC Icon Editor=Name|Key=HKEY_CURRENT_USER\Software\Program4Pc\PC Icon Editor=Key
PowerQuest PartitionMagic|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\PowerQuest\PartitionMagic\8.0\UserInfo=SerialNumber
Pro Evolution Soccer 6|Code=HKEY_LOCAL_MACHINE\SOFTWARE\KONAMIPES6\PES6=code
Quake 4|Key=HKEY_LOCAL_MACHINE\SOFTWARE\id\Quake 4=CDKey
Ravenshield|Key=HKEY_LOCAL_MACHINE\Software\Red Storm Entertainment\RAVENSHIELD=CDKey
ReplayConverter|Key=HKEY_LOCAL_MACHINE\SOFTWARE\ReplayConverter=RegCode
Registy Mechanic|Name=HKEY_LOCAL_MACHINE\SOFTWARE\PCTools\Registry Mechanic\Settings Owner=Name|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\PCTools\Registry Mechanic\Settings LicenseKey=serial
Roxio My DVD 8 Premier|=HKEY_LOCAL_MACHINE\SOFTWARE\roxio\Registration\RoxioCentral=RoxioCentral_SN
S.T.A.L.K.E.R. - Shadow of Chernobyl|Name=HKEY_LOCAL_MACHINE\Software\GSC Game World\STALKER-SHOC=InstallUserName|Key=HKEY_LOCAL_MACHINE\Software\GSC Game World\STALKER-SHOC=InstallCDKEY
SecurDataStor v6|License Key (Machine)=HKEY_LOCAL_MACHINE\Software\encryptX\SecurDataStor v6\Registration=License|License Key (User)=HKEY_CURRENT_USER\Software\encryptX\SecurDataStor v6\Registration=License
SecurDataStor v6 CD-Media|Media Key (Machine)=HKEY_LOCAL_MACHINE\Software\encryptX\SecurDataStor v6\Registration=m0|Media Key (User)=HKEY_CURRENT_USER\Software\encryptX\SecurDataStor v6\Registration=m0
Shogun: Total War: Warlord Edition|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Shogun Total War - WarlordEdition\ergc=
Sims, The|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims\ergc=
Sims, The Living Large|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Livin' Large\ergc=
Sims, The House Party|Key=HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims House Party\ergc=
Sims, The 2 Family Fun Stuff|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Family Fun Stuff\ergc=
Sims, The 2 Glamour Life Stuff|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Glamour Life Stuff\ergc=
Sims, The 2 Nightlife|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Nightlife\ergc=
Sims, The 2 Open for Business|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Open for Business\ergc=
Sims, The 2 Pets|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Pets\ergc=
Sims, The 2 Seasons|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Seasons\ergc=
Sims, The 2 University|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 University\ergc=
SimCity 4 Deluxe|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Maxis\SimCity 4 Deluxe\ergc=
Slysoft AnyDVD|Key=HKEY_LOCAL_MACHINE\SOFTWARE\SlySoft\AnyDVD\Key=Key
Slysoft CloneCD|Key=HKEY_LOCAL_MACHINE\SOFTWARE\SlySoft\CloneCD\Key=Key
Smartversion |Key=HKEY_CURRENT_USER\Software\SmartVersion=RegistrationCode
Soldiers Of Anarchy|Key=HKEY_CURRENT_USER\Software\Silver Style Entertainment\Soldiers Of Anarchy\Settings=CDKey
Sonic Record Now!|=HKEY_LOCAL_MACHINE\SOFTWARE\Sonic\Registration\RecordNow=RecordNow_SN
Sony Vegas 6|=HKEY_LOCAL_MACHINE\SOFTWARE\Sony Media Software\Vegas\6.0\License=CurrentKey
Splinter Cell - Chaos Theory|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Ubisoft\Splinter Cell Chaos Theory\Keys=DiscKey_SCCT
Stardock|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Stardock\ComponentManager\Stardock\odp=Serial No
SuperCleaner|Name=HKEY_CURRENT_USER\Software\SuperCleaner\Registration=Name|Key=HKEY_CURRENT_USER\Software\SuperCleaner\Registration=Code
Symantec Norton Internet Security 2007|=HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\CCPD-LC\KStore\00000082\00000049\000000b9=Key
Tag&Rename|Name=HKEY_CURRENT_USER\Software\Softpointer\Tag&Rename\Config=Name|Key=HKEY_CURRENT_USER\Software\Softpointer\Tag&Rename\Config=cbVQFFtoTagReplaseUnde
Techsmith Camtasia Studio 3.0|Name=HKEY_LOCAL_MACHINE\SOFTWARE\TechSmith\Camtasia Studio\3.0=RegisteredTo|Key=HKEY_LOCAL_MACHINE\SOFTWARE\TechSmith\Camtasia Studio\3.0=RegistrationKey
Techsmith Camtasia Studio 4.0|Key=HKEY_LOCAL_MACHINE\SOFTWARE\TechSmith\Camtasia Studio\4.0=RegistrationKey
Techsmith SnagIt 8.0|Name=HKEY_CURRENT_USER\Software\TechSmith\SnagIt\8=RegisteredTo|Key=HKEY_CURRENT_USER\Software\TechSmith\SnagIt\8=RegistrationKey
Techsmith SnagIt 8.1|Name=HKEY_LOCAL_MACHINE\Software\TechSmith\SnagIt\8=RegisteredTo|Key=HKEY_LOCAL_MACHINE\Software\TechSmith\SnagIt\8=RegistrationKey
Techsmith SnagIt 7|Name=HKEY_LOCAL_MACHINE\Software\TechSmith\SnagIt\7=RegisteredTo|Key=HKEY_LOCAL_MACHINE\Software\TechSmith\SnagIt\7=RegistrationKey
The Gladiators|Key=HKEY_CURRENT_USER\Software\Eugen Systems\The Gladiators=RegNumber
TGTSoft StyleXP|Key=HKEY_LOCAL_MACHINE\SOFTWARE\TGT Soft\StyleXP=RegKey
TMPGEnc Plus 2.5|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Pegasys Inc.\TMPGEnc Plus\2.5=UserName|Company=HKEY_LOCAL_MACHINE\SOFTWARE\Pegasys Inc.\TMPGEnc Plus\2.5=CompanyName|Serial=HKEY_CURRENT_USER\SOFTWARE\Pegasys Inc.\TMPGEnc Plus\2.5=SerialID
Tobit ClipIncPlayer 4|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Tobit\Tobit ClipInc\Server\Setup=LicenseNo
Trend Micro PC-cillin Antivirus 11|Key=HKEY_LOCAL_MACHINE\SOFTWARE\TrendMicro\PC-cillin=register no.
Trend Micro PC-cillin Antivirus 2007|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\TrendMicro\AntiVirus\15=SerialNo
TuneUP 2006|Name=HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\5.0=UserName|Company=HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\5.0=Company|Key=HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\5.0=RegCode
TuneUP 2007|Name=HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\6.0=UserName|Company=HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\6.0=Company|Key=HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\6.0=RegCode
Unreal Tournament 2003|Key=HKEY_LOCAL_MACHINE\Software\Unreal Technology\Installed Apps\UT2003=CDKey
Unreal Tournament 2004|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Unreal Technology\Installed Apps\UT2004=CDKey
VMware Server|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\VMware, Inc.\VMware Server\License.vs.1.0-00=Serial
VMware Workstation 5.0|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Vmware, Inc.\Vmware Workstation\License.ws.5.0=Serial
VSO BlindWrite 6|Key=HKEY_CURRENT_USER\Software\VSO\BW6=LicenseKey
VSO ConvertX to DVD|Version=HKEY_CURRENT_USER\Software\VSO\ConvertXToDVD\NetUpdate=NetUpdate_LastVersion|Key (Machine)=HKEY_LOCAL_MACHINE\SOFTWARE\VSO\ConvertXtoDVD\=LicenseKey|Key (User)=HKEY_CURRENT_USER\Software\VSO\ConvertXToDVD\=LicenseKey
VSO ConvertXtoDVD|Version=HKEY_CURRENT_USER\Software\VSO\ConvertXToDVD\NetUpdate=NetUpdate_LastVersion|Key=HKEY_CURRENT_USER\Software\VSO\ConvertXToDVD\=LicenseKey
Westwood Alarmstufe Rot 2|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Red Alert 2=Serial
Westwood Alarmstufe Rot 2 Yuri's Revenge|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Yuri's Revenge=Serial
Westwood Tiberian Sun|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Tiberian Sun=Serial
Winamp 5|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft\Winamp\=regname|Key=HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft\Winamp\=regkey
WinImage|Name=HKEY_CURRENT_USER\Software\WinImage=NameRegistered|Key=HKEY_CURRENT_USER\Software\WinImage=CodeRegistered
WinPatrol|Key=HKEY_LOCAL_MACHINE\SOFTWARE\BillP Studios\WinPatrol=RegNumber
Winzip|Name (Machine)=HKEY_LOCAL_MACHINE\Software\Nico Mak Computing\WinZip\Winini=Name1|Name (User)=HKEY_CURRENT_USER\Software\Nico Mak Computing\WinZip\Winini=Name1|Key (Machine)=HKEY_LOCAL_MACHINE\Software\Nico Mak Computing\WinZip\Winini=SN1|Key (User)=HKEY_CURRENT_USER\Software\Nico Mak Computing\WinZip\Winini=SN1
WS FTP|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\WS_FTP=SerialNumber
ZoneAlarm|Name=HKEY_LOCAL_MACHINE\SOFTWARE\Zone Labs\ZoneAlarm\Registration\=RegisteredOwner|Company=HKEY_LOCAL_MACHINE\SOFTWARE\Zone Labs\ZoneAlarm\Registration\=RegisteredOrganization|Serial=HKEY_LOCAL_MACHINE\SOFTWARE\Zone Labs\ZoneAlarm\Registration\=SerialNum

1 commentaire
VB.net - Avoir le nom de la carte graphique

Par tutos-tools-actus le 21 Décembre 2010 à 15:12

VB.net - Avoir le nom de la carte graphique

Bonjour à tous, aujourd'hui, je vais vous apprendre à avoir le nom de votre carte graphique, j'ai pu m'apercevoir que c'est une question assez fréquente chez les nouveaux programmeurs mais également dans les forums de programmations. Dans ce cours, je donnerais les fonctions en anglais (pour trouver plus rapidement dans la Boite à Outils).

Tout d'abord, ouvrez Visual Basic 2008, donnez un nom à votre projet pour ce cours.

Vous allez voir, c'est très simple en faites à réaliser ce cours dont je vous donne .

1) Dans un premier temps, mettez une textbox1 et un button1 sur la form1.

2) Maintenant que c'est fait, allez dans Projet puis dans Ajouter une référence.

3) Recherchez System.Management

4) Puis faites ensuite OK.

5) Rajoutez ce code source :

6) Voilà, maintenant, vous savez comment faire

votre commentaire

VB.net - Créer un Keygen

Par tutos-tools-actus le 21 Décembre 2010 à 15:10

VB.net - Créer un Keygen

Bonjour à tous, aujourd'hui, je vais vous apprendre une chose très basic à coder en vb.net (2008).

Un keygen, waouuu Mr. Green .

1) Ouvrez Microsoft Visual Basic 2008.

2) Fichier - Nouveau Projet et prenez Application Windows Forms

3) Mettez 2 boutons et 1 Textbox1 sur la Form1. Mettez les éléments à l'endroit dont vous voulez. Vous pouvez aussi rajouter un Label pour mettre un titre à votre keygen.

4) Voilà, vous avez déjà fait une petite partie du keygen.

5) Commençons à le coder Mr. Green

6) Cliquez sur le Bouton 1 qui se nommera "Générer la Key".

7) Placez le code suivant :

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = Int(Rnd() * 3) 'Chagez le nombre 3 en mettant le nombre de case dont vous mettrez.

        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "1330-1215-7402-0353-1916-5536"
            Case 1
                TextBox1.Text = "1330-1596-4269-9244-5634-0766"
            Case 2
                TextBox1.Text = "1330-1712-7218-4269-0651-0792"
            Case 3
                TextBox1.Text = "1330-1739-7114-3476-2537-0680"

    End Sub
End Class