1 Ανοίξτε το αρχείο του κώδικα VB6 που θέλετε να χρησιμοποιήσετε για να δημιουργήσετε την τιμή keygen . Μπορεί να είναι οποιοδήποτε αρχείο που φιλοξενεί URL shortener κωδικό υπηρεσία σας . Συνήθως, μπορείτε να τοποθετήσετε αυτόν τον κώδικα στην ενότητα υποβολή της φόρμας όταν το website σας αναγνώστη υποβάλλει τον τομέα για μείωση . 2
Ορίστε τα γράμματα του αλφαβήτου που θέλετε να χρησιμοποιήσετε για να δημιουργήσετε το string . Ο πίνακας που δημιουργείτε συνεργάτες κάθε γράμμα με έναν αριθμό και αυτοί οι αριθμοί ανακτήσει ένα τυχαίο γράμμα από τον πίνακα . Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε τη σειρά των γραμμάτων :
Δημ. LettersArray Όπως Char ( ) LettersArray = " abcdefghijklmnopqrstuvwxyz "
εικόνων 3
Δημιουργήστε μια μεταβλητή συμβολοσειράς να περιέχει την τυχαιοποιημένη γράμματα? αυτή η συμβολοσειρά γίνεται τελικά επέστρεψε αξία keygen σας , αλλά θα πρέπει να βρόχο μέσω κάθε γράμμα και να ανακτήσει ένα χαρακτήρα που είναι προσαρτημένη στην μεταβλητή συμβολοσειράς . Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε τη μεταβλητή :
Dim keygen Όπως String
4
Δημιουργήστε μια θηλιά που παράγει τυχαία έναν αριθμό και χρησιμοποιεί τον αριθμό αυτό για να ανακτήσετε ένα έγγραφο από το χαρακτήρα πίνακα. Μετά την επιστολή ξαναβρεθεί, να επισυναφθεί στο « keygen " μεταβλητή . Ο παρακάτω κώδικας δημιουργεί τη συμβολοσειρά URL :
Για i = 0 έως 10Randomize ( ) Random1 = Rnd ( ) keygent = keygen & LettersArray ( Random1 ) Loop
5
Εκτυπώστε το παράγεται κορδόνι στην ιστοσελίδα . Για παράδειγμα , εάν η υπηρεσία shortener σας έχει τον τομέα " domain.com , " οι παρακάτω κώδικα εκτυπώνει το keygen URL που δημιουργήθηκε για την συντομευμένη διεύθυνση URL :
Response.Write " http://domain.com /" & keygen
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα