Προσπαθώ να καταλάβω …. Τι κάνουν οι παρακάτω εντολές σε .. VB6
Posted: Mon Jul 04, 2016 7:15 pm
Προσπαθώ να καταλάβω. Τι κάνουν οι παρακάτω εντολές σε.. VB6
Για το λόγο.. ότι θέλω να ξεκλειδώσω ένα πρόγραμμα σε VB6 που δουλεύει με το παρακάτω σύστημα.
Όταν καλείς το αρχείο.. Exe,. Σου δίνει ένα 6 ψήφιο κωδικό και περιμένει από εσένα να του δώσεις ένα άλλο 6 ψήφιο αντί κωδικό βγαλμένο από των πρώτο που σου έχει δώσει για να ανοίξει
Πχ το αρχείο έχει την εντολή
κλπ..
Κάποιος που μπορεί να βοηθήσει ????
Ευχαριστώ
Για το λόγο.. ότι θέλω να ξεκλειδώσω ένα πρόγραμμα σε VB6 που δουλεύει με το παρακάτω σύστημα.
Όταν καλείς το αρχείο.. Exe,. Σου δίνει ένα 6 ψήφιο κωδικό και περιμένει από εσένα να του δώσεις ένα άλλο 6 ψήφιο αντί κωδικό βγαλμένο από των πρώτο που σου έχει δώσει για να ανοίξει
Πχ το αρχείο έχει την εντολή
Code: Select all
var_ret_1 = InStr(1, KeyCode, "-", 0)
If var_ret_1 <> 0 Then GoTo loc_004EA122
'Referenced from: 004EA119
Code: Select all
var_28 = var_28 & Chr$(CLng(500 - Hex(Mid(KeyCode, 1, var_ret_1(1)))))
var_ret_1 = var_ret_1 + 0001h
Code: Select all
var_5C = UserCode
var_18 = var_18 & CStr(CInt((500 - Val("&H" & CStr(Asc(CStr(Mid(UserCode, 0, 1)))))))) & "-"
GoTo loc_004E9E77
'Referenced from: 004E9E88
Code: Select all
Set var_24 = CreateObject("wscript.shell", 0)
var_24 = Me.RegWrite
Κάποιος που μπορεί να βοηθήσει ????
Ευχαριστώ