file_id.diz: TEAM TSRh 2003 date: 02-09-2003 ██▀▀▀▀▀▀▀▀▀▀▀█ ▀▀▀▀▓ █▀▀▀▀▀▀▀▀█ █▀▀█ █▀▀▀█ ▓█ █▀█ █▀█ █ ▄ ▀ █ █ █▀█ ░ █ █ █ █ ░ █ ▒▓▄█ ▓ █ █▄▄▓ █ ▀▀▀ ▓ █▄█ ▄▄▓ ▓ █▄█cXc▓ ▒█ █ ▄▄▄▄ ▀█▀▀█ ▒█ █ █▄▄▄▄ ▒█ █ █CPH█ / ░███ █ █▄▄█ █ ░█ █ █ ▄ █ ░███ █ ▄ █ / ▒███ █▓▄▄▄▄▄▄▓█ ▒█▄█ █▄▄▄█ ▒███ █▄▄▄█ HowTo deface Password protected VBA-projects [ENG] tutorial tsrh-tutor-vba.txt: ;================================================= var Program : Handmark MobileDB-Excel 1.5; Program URL : http ://www.handmark.com; ;================================================= Crack Subject : Short tutorial how to deface Password-Protected VBA-Projects; ;================================================= Using Tools : SoftIce, MS Office XP; ;================================================= begin 1st of all you must download and install mobiledbexcelwin.exe.. then istallation done - open ms excel and goto MobileDB\registration enter any shit in regdialog and press ok btn.. DAMN IT! failed to register :( press alt+f11 to open vb-editor and try to open MobiledbProject (MOBIL EDB.XLA) fuck! this shit is password protected.. now we must deface this protection. pun breakpoint to GetDlgItemTextA, enter any password and press ok in sice press f12 and u'll see: push eax push esi push edi call getdlgitemtexta lea eax,[ebp-20] <= we here! > after this command you can do 'd eax' and see entered pas sword push eax push 0EBh push edi call getwindowlonga push eax call xxxxxx test eax,eax jnz @rightpassword < some crap which show invalid password message and we must skip this shit > @rightpassword: < next pice of good code :) > so we must change jnz to jz or jmps and now we can open project w/o password : ) let's continue our cracking.. open MobiledbProject\modules\module1 -cut- Const MobileDBVersion = "1.5" 'Last Update: 03-25- 2002 Const MobileDBRelease = "0.0" Public Const gRegistrationString = "177556" '30i Public Const retailVersion = False ..<skipped>.. -cut- hmz... gRegistrationString is something very interesting ;).. open forms\userform3 - wow this is our regdialog.. dblclick on OK and... -cut- Private Sub Ok_Click() If RTrim(UserForm2.RegistrationString) = "" Then MsgBox ("A Registration String is Required") Else 'MsgBox "Registration String:" & gRegistrationString If UCase(RTrim(UserForm2.RegistrationString)) = gRegistrationString Th en UserForm2.Hide gUserPref.bRegistered = True WritePref MenuBars(xlWorksheet).Menus("&MobileDB") _ .MenuItems("Registration").Enabled = False Else MsgBox "This is an Invalid Registration String" End If End If End Sub -cut- this code just comparing entered serial with gRegistrationString.. gRegistrationString = "177556" => serial = "177556" ; DONE! end. ------------------------------------------------------------------------------ Nitrogen TSRh TeaM 21:26 (GMT +5) SEP-0 ;2-2003

Looking for real sex? Find someone now on the largest sex personals network. FREE signup! Post a FREE erotic ad w/5 photos, flirt in chatrooms, view explicit live Webcams, meet for REAL sex! 30,000 new photos every day! Find SEX now!