SpareNet Servers Advertising & Link Exchange

اطلاعیه

بستن
هیچ اطلاعیه ای هنوز ایجاد نشده است .

Source Codes VB6 Obfuscator

بستن
X
 
  • فیلتر
  • زمان
  • نمایش
پاک کردن همه
نوشته‌های جدید

  • Source Codes VB6 Obfuscator

    Module1.bas
    [PHP] Option Explicit Public Function CheckLicense1() As Boolean 'Only Public to show it doesn't matter. CheckLicense1 = True End Function Private Sub Main() With New Security If CheckLicense1() And .CheckLicense2() Then MsgBox "Ok" Else MsgBox "Failed", vbOKOnly Or vbExclamation End If End With End Sub [/PHP]
    Security.cls
    [PHP] Option Explicit Public Function CheckLicense2() As Boolean CheckLicense2 = True End Function [/PHP]

    When compiled to native code and dumped you get:
    [PHP] 00000980 ················ ················ ················ ······@········· 000009C0 <·@·,·@········· ,·@··f····vN·r·· '·?···········@· ··············@· 00000A00 ················ ··@·······@····· ··@·····t·@····· ················ 00000A40 ··@·····L·@····· ········|·@····· p·@············· <·@·Module1·Secu 00000A80 rity····Project1 ················ +=····h··8··+3q· ·-··|>·C·····\·· 00000AC0 *=····h··8··+3q· ······bM··j··$2R !=····h··8··+3q· Class···P··gv··· 00000B00 ·3··+3o·VBIntern al····@········· ··········@·4#@· ··········2·Chec 00000B40 kLicense2·····@· ············O·k· ········F·a·i·l· e·d·····VBA6.DLL 00000B80 ····__vbaFreeObj ····__vbaObjSetA ddref···__vbaFre eVarList····__vb 00000BC0 aVarDup·__vbaHre sultCheckObj···· __vbaNew····__vb aObjSet·······@· 00000C00 ····`·@········· ·······`··@····· ·········#······ ··@···········@· 00000C40 ················ ······@···@·8#@· ······@········· ··········@····· [/PHP]
    Note that both Security and CheckLicense2 appear in the dump of the compiled EXE. However CheckSecurity1 does not!
صبر کنید ..
X