Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

writting unix password cracker in perl lithuanian language

by mr2 (Friar)
on Apr 15, 2002 at 23:54 UTC ( #159373=perltutorial: print w/replies, xml ) Need Help??

<html> <head> <title>writting unix password cracker in perl</title> </head>
<body bgcolor="#FFFFFF" text="#000000"> ... as ...

data : 2002
autorius : mr2
Url : http://mr2lt.cjb.net
@mail : mr2@xxx.lt ( Sub : mr2-cgi )

... niekas nenorejo mirti ...

si informacija yra pazintinio tipo ... uz sios informacijos panaudojima
as ... kaip autorius neatsakingas ir tikrai nepritariu sios informacijos
panaudojimui nelegaliems reikaliukams ... taigi pries kazka
darydami ... pirma gerai pagalvokite ir tik po to darykite ...
tikiuosi pasirinksite teisinga kelia ;) ...

... apie ...

inete pilna unix password'u cracking irankiu ... vieni dirba po unix ... kiti
po win operacinem sistemom ... kodelgi mum patiem nepasidarius perl'inio
unix password cracking tool'zo ... ir jei turi shell'a (su cgi/perl) kaskur inete ...
kodelgi juo nepasinaudojus (zinoma tada kai jo prireikia ;) ) ... juk shell'o
privalumas yra tas kad tau nereikes istisa para palikinet ijunkto savo kompo
su paleistu unix password cracker'iu ... ir ziuret kad kasnors nesusidometu
paleistaja programa ...

... irankiai ...

si skiltis cia nereikalinga ... bet pamaniau pareklamuosiu nebloga
"Visual Perl Editor v2.5" programa leidziancia redaguoti skriptus parasytus
perl ... window$'uose ... nezinau kaip jum bet asmeniskai man taip patogiau
... ja galima tikrinti klaidas ... zodziu daryti su PERL skriptais viska ...
ka paprastai darau po linux ...

jei susidomejote ... jos adresas tinkle : http://kakoulidis.homepage.com/perl.html
(crack'o (tiksliau loader'io) paieskokit astalavistoj ... jis butinas ;) )

vos nepamirsau ... jum prireiks passwd bei wordlist'o ;)

... varom ...

------------------------------- cut there -------------------------------

# (tradiciskai) jusu perl'o vieta diske
#!/usr/bin/perl

# pradedam darba
print ("\npradedu ...\n");

# $slapt_sar=slaptazodziu failas (passwd)
$slapt_sar = "passwd.txt";

# $zod_sar=wordlistas su daugybe slaptazodziu (eiluteje po viena)
$zod_sar = "wordlist.txt";

# atidarom slaptazodziu faila ir isrenkame login'us bei koduotus slaptazodzius
open (PASWORDS,$slapt_sar) || die "neatidarau slaptazodziu failo !!!";
while (<PASWORDS>) {
($vardas,$koduotas,$uid,$gid,$cos,$home,$shell)=split( /:/);

# issaukiam funkcija kuri bando surasti tinkanti slaptazodi
&ieskot_passwd; }

# po viso darbo uzdarom slaptazodziu faila
close (PASWORDS);

# baigiam darba
print ("\nbaigta ...\n");
exit;

# na stai ir pati slaptazodziu ieskojimo funkcija
sub ieskot_passwd {

# atidarom wordlist'a
open (WORDLIST,$zod_sar) || die "neatidarau wordlist\'o !!!";

# imam visus jame esancias eilutes
@eilutes=<WORDLIST>;

# uzdarom wordlist'a
close (WORDLIST);

# imam po atskira eilute (is wordlist'o) ir nukertam 'LF' (eilutes pabaigos zenkla)
foreach $eilute (@eilutes) {
chomp($eilute);

# koduojam slaptazodi
$bandomasis=crypt($eilute,$koduotas);

# jei sugeneruotas kodas==tikrasis ... reiskias radom slaptazodi
if ("$bandomasis" eq "$koduotas") { print "\nradau: user $vardas password $eilute"; } }
}

------------------------------- cut there -------------------------------

... papildymai ...

aisku jus galit pakoreguot si skripta pvz : kad neradus ne vieno slaptazodzio ... skriptas
apie tai pranestu darbo pabaigoje ... uzrasytu gautus rezultatus i faila ... dar galima pakeisti
zodziu skaityma is wordlist'o ... nes siuo metodu visas zodinelis eina i atminti ... aisku gerai
jei zodinelis nedidelis ... bet paprastai taip nebuna ;) ... betkokiu atveju pradzia jau yra ... o
skripto tobulinimu uzsiimkite patys ... good luck ...

</body> </html>
  • Comment on writting unix password cracker in perl lithuanian language

Replies are listed 'Best First'.
why?
by mr2 (Friar) on Apr 16, 2002 at 19:39 UTC
    i'd like to hear your opinion. why do you rate this tutorial "-" ? because it's not in english? because it's illeagal? (it's jus my own research i wanted to share ... & you look at me as some kind of scriptkiddie)
      Personally, I love seeing stuff in other languages like if ($bandomasis eq $koduotas). However, the last thing that I would want is for our beloved PM to be seen as a resource for crackers.
      ()-()
       \"/
        `                                                   ` 
      
        it was'nt written for crackers. it's just a technology that crackers use to bruteforse unix passwords ... don't you think it's interesting? (it was written by me not as a resource ... bus as the simple explaniation for people how it works ...)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://159373]
help
Chatterbox?
[ambrus]: Corion: two very hard things about presentations I should try to work on if I have twenty times as much free time as in real life are:
[Corion]: That's why I like HTML - it makes it relatively easy to resize stuff. Resizing with Powerpoint is much harder, or at least, I remember it being that way
[ambrus]: (a) good sans serif fonts optimized for slides in a projector with coverage of the symbols needed for mathematical formulas in a sans serif font matching the text font well, and
[ambrus]: (b) a good presentation system that lets the presenter quickly interactively edit the slides live during a presentation, to combine the advantages of blackboard and overhead slide styles in modern tech
[Corion]: Heh - in university, I cheated on (a) by doing blackboard presentations using chalk. But those were 2 hour presentations, not quick/essential/ reduced presentations where you want to show something quick
[ambrus]: (either on just one screen or two screens). this is necessary because
[ambrus]: overhead slide plus blackboard is inconvenient because the lighting conditions are different and they require separate areas you can't quickly repartition, and typing on keyboard is faster and more convenient than writing on a blackboard
[Corion]: (b) would be cool. I've thought about this doing Pod editing, and even simply regenerating/live updating the browser makes things much more interactive
[ambrus]: modern computers have way enough processing power to allow this, at least for geeks who are willing to spend a few weeks to learn a tricky new user interface like vim
[Corion]: ambrus: Well, for mathematical notation, I find blackboard much more convenient than a computer. But when inserting text or moving text around, the computer wins obviously

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (11)
As of 2017-09-26 10:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (293 votes). Check out past polls.

    Notices?