De flesta kommersiella programvaror använder någon form av slumpmässiga nycklar för att autentisera och registrera en legitim kopia när programmet är installerat . Vanligtvis är detta en serie av slumpmässiga bokstäver grupperade i olika antal bokstäver . Till exempel kan du se denna sekvens : DXUWB-GPHQE-CCNYQ-QFHAT-ZFBLO på en licensierad program . Specialiserad mjukvara kallade Key Generators, eller keygen skapar dessa koder men du kan göra din egen med bara 16 rader med Visual Basic -kod
1 .
Starta ett nytt projekt i Visual Basic , välja " Standard . EXE " mall i listan som erbjuds under " File " och " Nytt projekt . "Klicka på "Fil ", " Spara projekt som " och namn både form och projektet " MyKeyGen " när du ombeds .
2 .
Lägg
en " CommandButton kontroll i den öppna formen genom att dubbelklicka på denna kontroll i verktygslådan till vänster på skärmen . Denna kontroll är en ikon formad som en liten rektangel . Normalt är det den tredje kontrollen anges i högra kolumnen i verktygslådan . Lägg till en etikett till den form på samma sätt . Etiketten ikonen är ett stort bokstaven "A " i verktygslådan .
3 .
Klicka på den nya " Kommando1 "knappen nu i formuläret för att fokusera på sina fastigheter i "Egenskaper " panel till höger. Dubbelklicka på " ( namn) " egendom för att markera standardnamnet " Kommando1 . " Ändra detta namn till " keygen " . Klicka på rubriken egendom och ändra det till " Generate Key " . Klicka på den nya Label1 i formuläret och göra dessa ändringar i dess egenskaper .
radera bildtexten namn
Bläddra nedåt i fastigheter listan tills du hittar " Höjd " och ändra detta till 500 .
Bläddra till slutet av fastigheterna och ändra " Bredd " till 1200 .
4 .
Klicka på "Visa " i huvud Visual Basic -menyn längst upp och valde " kod ". Detta öppnar fönstret Kod där du ska skriva dessa rader exakt som de visas :
Option Base 1
Option Explicit
Private Sub KeyGen_Click ( )
Dim n As Integer
Dim KeyGen (26) As Long
Dim NEWKEY , FinalKey As String
Slumpa
för n=1 till 26
keygen ( n)=Int (RND * 26 ) + 1
keygen ( n)=keygen ( n ) + 64
NEWKEY=Chr $ ( keygen ( n ) )
FinalKey=FinalKey + NEWKEY
Nästa
FinalKey=Vänster ( FinalKey , 5 ) + "- " + Mid ( FinalKey , 6 , 5) + "- " + Mid ( FinalKey , 11 , 5) + "- " + Mid ( FinalKey , 17 , 5 )
Label1 . Caption=FinalKey
End Sub
5 .
Spara projektet genom att klicka på " File " och " Spara projekt. " Tryck på " F5 "för att köra programmet . Deklarationerna på raderna som börjar " Dim " ange hur programmet variabler används . " KeyGen (26) " skapar en array av variabler med 26 möjligheter och " Option Base 1 " säkerställer den första av de 26 är numrerade ett . " Slumpa " genererar en ny slumptalsfrö varje gång programmet körs . Resten av linjer skapar en serie av slumptal , som sedan omvandlas till bokstäver . Eftersom ASCII -kod för alfabetet börjar med ASCII 65 , måste vi lägga till 64 på varje slumptal före ombildningen. I slutändan är en lista över fyra uppsättningar slumpmässiga bokstäver åtskilda av bindestreck skapas och visas i rutan Etikett .
Previous:nothing Next:vad är meningen med en prolog programmeringsspråk