информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Spanning Tree Protocol: недокументированное применениеСтрашный баг в WindowsЗа кого нас держат?
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Очередное исследование 19 миллиардов... 
 Оптимизация ввода-вывода как инструмент... 
 Зловреды выбирают Lisp и Delphi 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / hacking
Имя Пароль
если вы видите этот текст, отключите в настройках форума использование JavaScript
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
взлом программы 17.05.03 21:49  Число просмотров: 1621
Автор: LCF Статус: Незарегистрированный пользователь
<"чистая" ссылка>
> Здравствуйте! Тема такая: есть надстройка к AUTOCAD ' у
> написана на Бейсике, эта надстройка просит регистрации
> (стоимость 4000р.)

ladno kogdato ia znuaiu probival poluchalos'
vozmi notepad dosovskii. i otkroi v dose etot VB.
ydachi
<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
<"чистая" ссылка>
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2025 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach