Ako si vyrobiť URL Keygen vo VB6

keygen generuje náhodné hodnotu reťazca , ktorá vám zobrazí vaše čitateľa . Ak hostiť URL Shortener služby , musíte vytvoriť náhodne generovanú hodnotu , ktorá obsahuje doménu , na ktoré sa generované URL body . Môžete náhodne generovať reťazec ľubovoľnej dĺžky vo Visual Basic 6 s cieľom uľahčiť generáciu keygen URL služby . Služba využíva funkciu VB6 " Rnd " generovať náhodné číslo , ktoré odkazuje na písmeno v abecede . Pokyny dovolená 1

Otvorte súbor VB6 kódu , ktorý chcete použiť na generovanie hodnoty keygen . To môže byť ľubovoľný súbor , ktorý je hostiteľom vašej URL Shortener servisného kódu . Typicky , umiestnite tento kód v podaní časti formulára , keď vaše webové stránky čitateľ predkladá doménu pre skrátenie .
2

Definujte písmen abecedy , ktoré chcete použiť pre generovanie reťazca . Polia môžete vytvoriť spoločníkmi každé písmeno s číslom a tieto čísla načítať náhodný list od poľa . Pridajte nasledujúci kód na vytvorenie poľa písmen :

Dim LettersArray ako Char ) LettersArray = " ABCDEFGHIJKLMNOPQRSTUVWXYZ " (
3

Vytvorte reťazcové premenné obsahovať randomizovanej listy , tento reťazec nakoniec stane vaším vrátená hodnota keygen , ale musíte prechádzať každé písmeno a získať postavu , ktorá je pripojená k reťazcové premenné . Pridajte nasledujúci kód na vytvorenie premennej :

Dim keygen As String
Stránka 4

vytvoriť slučku , ktorá náhodne generuje čísla a používa toto číslo načítať list od poľa znakov . List je po vyvolané , pripojiť ho k " keygen " premenné . Nasledujúci kód generuje URL reťazec :

i = 0 10Randomize ( ) Random1 = Rnd ( ) keygent = keygen & LettersArray ( Random1 ) Loop
5

Vytlačte si vygenerovaný reťazec na webovej stránke . Napríklad , ak vaše skracovač služba má doménu " domain.com , " nasledujúci kód vypíše URL keygen vytvorené pre skrátené URL :

Response.Write " http://domain.com /" a keygen

• Predchádzajúca strana: Ako nahradiť textové pole s inou , ktorá vyplní údaje vo VB6 
• Ďalšia strana: Knižnica šifrovanie pre VBA