Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
|
Найди какой нить VB Decompiler - будет легче :-) 11.05.03 22:16 Число просмотров: 1652
Автор: amirul <Serge> Статус: The Elderman
|
|
|
|
<hacking>
|
взлом программы 11.05.03 20:31
Автор: serfer Статус: Незарегистрированный пользователь
|
Здравствуйте! Тема такая: есть надстройка к AUTOCAD ' у написана на Бейсике, эта надстройка просит регистрации (стоимость 4000р.)
В теле программы я обнаружил такой набор символов:
≥ ≥ ≥0 ≥H ≥` ≥x ╢ ┬±╕ ±≥σ≡σ≥ⁿ. ┬√ ≤Γσ≡σφ√?' ■α $ Define message. ' α 3 Define buttons. ╢ ╬≈Φ±≥Φ≥ⁿ ≈σ≡≥σµ ' α Define title. ╢ DEMO.HLP' α Define Help file.¼ Φ' α
Define topic α context. α Display message. ■ $ ' £ α User chose Yes. ╢ Yes '
α Perform some action. B@ ╢ _.erase ╢ All B@ d α User chose No. ╢ No'
α Perform some action. k P o H ûÉ B@ ╢ _hide B@ o ° û╨ ╔ "Φ α 8**************╟α∙Φ≥α ε≥ φσ±αφΩ÷ΦεφΦ≡εΓαφφεπε Σε±≥≤∩α: α # ╧≡εΓσ≡Ωα ∩εΣδΦφφε±≥Φ ΩεΣα Γ ⌠αΘδσ: α ╩≡Φ∩≥ ─α≥√: α ( 'Dim MyDate, MyDay, MyMonth, MyYear, zzz α 'MyDate = Date α 4 'MyDay = Day(MyDate) ' MyDay contains current day α 'MyMonth = Month(MyDate) α 'MyYear = Year(MyDate) α % 'zzz = (MyDay * MyMonth + MyYear) * 9 α ╩εφσ÷ Ω≡Φ∩≥α Σα≥√α 'Dim MyChar, provpar α G 'Open "c:\windows\torg.sec" For Input As #1 ' Open file for reading. α 8 'MyChar = Input(6, #1) ' Read next character of data. α 'Close #1 ' Close file.α 'provpar = zzz ] ≥ ≥( ] ≥@ φ ╢ Scripting.FileSystemObject$ * . $ φ ╢ c: $% 0 $% . $% , . & &! 2' ( α ''MsgBox ss α ─δ ─σ∞ε-Γσ≡±ΦΦ: ] ≥X ≥p ╢ c:\base\vba\torg.sec¼ ½ ╠ α / Open file for reading. ¼ ¼ $ ╚ ' 4α Read next character of data. ¼ V α Close file. (' 6 6$ < $ : $ 8 4$ < $ : $ 8 £ α 0 ╩εφσ÷ ε∩σ≡α÷ΦΘ ∩ε Γ√ΓσΣσφΦ■ ∩≡επ≡α∞∞√ Φτ ±≥≡ε . B@@ d B@B k α Ü D╪ ú "╨ α Mainform.BackColor = &HFF& B@@ ú Dÿ α %**************╩εφσ÷ Ω≡Φ∩≥α τα∙Φ≥√. o ` ûê ╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ ∞ ∩σ≡σ B@ ≡α±≈σo Z ûα ╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ ∩≡ΦΓα≥ B@ φφ√∞ Σ╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ Φφα ╦─ B@ H0 ╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ N¼ B@ $ : ╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ Z8 o B@ nd Sub B@ εδεΩ Γ╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ ╩εδΦ≈o ΦL ╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ < $ ╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ f ╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ Ω≡Φ∩≥╢ - ┬ Σσ∞εΓσ≡±ΦΦ Σαφφα ⌠≤φΩ÷Φ φσ ∩≡σΣ≤±∞ε≥≡σφα. A@ h8 α prigel = prigel + USHIR1 * 2ⁿ £ α Else' ε α End Ifε ] ≥P6 ] ≥6 ] ≥x6 ] ≥á6 ] ≥╚6 ] ≥5 ] ≥07 ] ≥É5 ] ≥á< ] ≥╕5 α
─δ Ωα±±√:k û╪] ! B@ ' ≥: ╖ ( ▄' ≥: ┌! J Ç £ o (δ û8
как я понимаю это сравнение введенного ключа с заложенным изначально
я попробывал его собрать вот что получилось:
порядок серийника - (Dim MyDate, MyDay, MyMonth, MyYear, zzz )
MyDate = Date;
MyDay = Day(MyDate);
MyMonth = Month(MyDate) ;
MyYear = Year(MyDate);
zzz = (MyDay * MyMonth + MyYear) * 9;
---------------------------------------------------
MyDate = 11052003 = 11052003
MyDay = 6*(11052003) = 66312018
MyMonth = 5*(11052003) = 55260015
MyYear = 2003*(11052003) = 22137162009
zzz = (66312018*55260015+22137162009)*9 = 32979827218700511
11052003+66312018+55260015+22137162009+32979827218700511= 32979849488486556
но что то не получается :-/
кто имел опыт влома VBA либо обхода его защиты, помогите разобраться
в чем дело.
|
|
взлом программы 17.05.03 21:49
Автор: LCF Статус: Незарегистрированный пользователь
|
> Здравствуйте! Тема такая: есть надстройка к AUTOCAD ' у
> написана на Бейсике, эта надстройка просит регистрации
> (стоимость 4000р.)
ladno kogdato ia znuaiu probival poluchalos'
vozmi notepad dosovskii. i otkroi v dose etot VB.
ydachi
|
|
Найди какой нить VB Decompiler - будет легче :-) 11.05.03 22:16
Автор: amirul <Serge> Статус: The Elderman
|
|
|
|
|
подробно о проекте
Анализ криптографических сетевых...
