Για το λόγο.. ότι θέλω να ξεκλειδώσω ένα πρόγραμμα σε 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
Κάποιος που μπορεί να βοηθήσει ????
Ευχαριστώ