aqui el codigo:
Código
Public Function Check(name) '405410 Dim var_30 As ProgressBar loc_00405496: var_AC = Len(name) loc_004054D0: Set var_30 = Me loc_004054D7: var_30 = var_30.ControlDefault loc_004054E0: var_eax = %fobj loc_004054ED: var_2C = var_30.OLEDropMode loc_0040550C: var_30.OLEDropMode = var_2C loc_0040553E: var_A0 = Len(name) loc_00405550: If 00000001h > 0 Then GoTo loc_0040571C loc_00405599: Set var_30 = var_74 loc_004055A0: var_30 = var_30.ControlDefault loc_004055A9: var_eax = %fobj loc_004055D0: var_78 = name loc_004055E8: var_2C = CStr(Mid(name, vbNull, 1)) loc_004055F5: Asc(var_2C) = Asc(var_2C) + 000Bh loc_00405605: var_20 = Asc(var_2C) loc_0040562F: Len(name) = Len(name) + 00000013h loc_0040563A: Len(name) = Len(name) * var_20 loc_00405643: Len(name) = Len(name) + var_20 loc_00405655: Len(name) = Len(name) + Len(name) loc_0040565E: var_20 = Len(name) loc_00405664: var_88 = var_1C loc_0040567F: var_78 = var_20 loc_00405697: var_2C = CStr(Str(var_20)) loc_004056A4: var_48 = StrReverse(var_2C) loc_004056DD: var_1C = var_1C & Trim(StrReverse(var_2C)) loc_0040570C: 00000001h = 00000001h + di loc_00405717: GoTo loc_00405549 loc_0040571C: 'Referenced from: 00405550 loc_00405728: var_24 = var_1C loc_00405737: If Len(var_24) < 12 Then GoTo loc_00405761 loc_0040574E: Mid(var_24, 6, 2) = var_00402754 loc_0040575F: Mid(var_24, 12, 2) = var_00402754 loc_00405761: 'Referenced from: 00405737 loc_0040576E: var_78 = var_24 loc_004057A2: var_28 = Left(var_24, 17) loc_004057AA: GoTo loc_004057E9 loc_004057B0: If var_4 = 0 Then GoTo loc_004057BB loc_004057BB: 'Referenced from: 004057B0 loc_004057C7: var_eax = %fobj loc_004057E8: Exit Sub loc_004057E9: 'Referenced from: 004057AA End Function
muchas gracias de antemano.