Προσπαθώ να καταλάβω …. Τι κάνουν οι παρακάτω εντολές σε .. VB6

[gioklis]

Προσπαθώ να καταλάβω …. Τι κάνουν οι παρακάτω  εντολές σε .. VB6

Για το λόγο .. ότι θέλω να ξεκλειδώσω ένα  πρόγραμμα σε VB6 που δουλεύει με το παρακάτω  σύστημα ….

Όταν καλείς  το αρχείο  ….  . Exe, …. Σου δίνει ένα    6 ψήφιο    κωδικό …   και περιμένει από εσένα να του δώσεις ένα άλλο …  6 ψήφιο   αντί κωδικό    βγαλμένο από των πρώτο που σου έχει δώσει … για να ανοίξει …

Πχ  το αρχείο έχει την  εντολή  

var_ret_1 = InStr(1, KeyCode, "-", 0)

If var_ret_1 <> 0 Then GoTo loc_004EA122

'Referenced from: 004EA119

………………..

var_28 = var_28 & Chr$(CLng(500 - Hex(Mid(KeyCode, 1, var_ret_1(1)))))

var_ret_1 = var_ret_1 + 0001h

……………………………

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

………………………

Set var_24 = CreateObject("wscript.shell", 0)

var_24 = Me.RegWrite

… κλπ ..

Κάποιος που μπορεί να βοηθήσει   ????

Ευχαριστώ 

[NikosKallithea]

Δεν είναι εντολές, είναι κάποιες variable που τις συγκρίνει με κάτι

[defacer]

Forget it, δεν υπάρχει περίπτωση να κάτσει να ασχοληθεί κάποιος αρκετά για να το κάνει reverse αυτό.

[Fat4Life]

Σταμάτησα να διαβάζω στο VB6.