Jump to content

Lord Nikon

Members
  • Content Count

    507
  • Joined

  • Last visited

Everything posted by Lord Nikon

  1. I wouldn't expect some pussy who stayed home with his mommy on halloween to know the difference between fireworks and firecrakers
  2. YOu don't know much about pyrotechnics Fireworks are things that display light things like fountains, roman candles, jumping jacks, certain bottle rockets. Firecrackers don't display anything other than a spark and they include things like mighty mites, mad dogs, dough boys, germans etc...Firecracker usually only contain one compound usually black powder where as fireworks contain many differen't types of powders and compounds for the light shows. Even if you got the powders out of fireworks they wouldn't just burn they wouldn't explode.
  3. Since when is it possible to blow up stuff with fireworks? Only firecrackers and germans can do that. Unless you gathered up the powder and made your own cherry bomb.
  4. You said you blew up pumpkins, with firecrackers not fireworks
  5. lol If anyone egged my car I'd run 'em over Didn't any of you do any fireworks?
  6. I didn't do anything I got alot of fireworks though. I still have 250 mighty mites(firecrackers) and 3 Caramel FOuntains left Some of my friends went trick or treating I went along a little. Most of the girls were playboy bunnies
  7. Thanks Nimbo, but you guys were a little late I answered it at school
  8. i gotta answer this Q: The sum of the first 6 terms of an arithmetic series is 447.The sum of the first 7 terms if 567. Determine first 4 terms of the series. Anyone know the answer?
  9. Ya real tragedy >_< My mom woke me up and I watched the second crash live on CBC I think
  10. Java is a nice language to make a FF extension. Instant Messaging stuff is easy too except I can't really do much since my firewalls are too secure and it's a hassle to enable/disable them. >_< We can always make an online game like Connect 4 where we could own each other online =P <- thats what Im making right now
  11. Wow me too we must be like twins xD xD 11111111oneoneoneone!!!!!!!!!!!! I also read "Sam's Teach Yourself C++ .NET in 21 Days" but it sucked aphnetworks.com because 90+% of the book talks about MFC to spite the fact that it's called "Sam's Teach Yourself C++ .NET in 21 Days" not Microsoft Foundation Classes.
  12. Ok I got the selections to this; And I can probably change a couple things if my mom gives me a $200 =D What do you think?
  13. I don't recall, and I probably wouldn't have known what a mobo is but I would know what a MotherBoard if said Mother Board and not mobo! lol I dono all I remember was it was a eVGA.
  14. Thank you And I remember my friend's comp has a AMD Athlon X2 4600, the 7900 g-Force GFC card, 2 gigs of ram I think, and 300 gig harddrive. Not sure about the very specifics.
  15. You should see my friends computer, it kicks aphnetworks.com. I just want to buy it from A-link it's no big deal. Buddy I remember your talking to me about computers last year, you barely know anything about the hardware. Really guys all I want is a quick list of the parts, you're just getting off topic and posting useless info
  16. Like I said I trust a-link more and I can get a discount since Im being referred by another customer. I just need someone to come up with quick list of hardware from that page that would fit my requirements I don't understand this stuff myself so Im asking you guys for help.
  17. My friend Eddy used this store and he got really good service and everything so I trust them and I don't want to order online either. Thanks for the Nero Tool thing Hopkin, worked great
  18. Alright so there's this computer hardware store close to where I live and their website has a Sys builder where you can make your own system and they show you the price at the bottom. Here's the sys builder address: http://www.a-link.ca/updatesystem.asp?syst...%20Own%20System Try to stay below $1000 cause I want to save enough money to get Microsoft Visual Studio .NET Im using my computer mainly for programming where I run like 3-4 debuggers at the same time which takes alot of RAM and memory. So I wanna have a 1 or 2 gigs of RAM and AMD Athlong 64 Dual Core 4200 or higher. Don't like get a high range GFX or sound card I won't use them So just basic stuff for sound and GFX =] As for the case I want something with some USB ports in the front. And I want CD Read/Write capabilities so I can burn CDs but I don't want to play DVDs and stuff so don't do anything for that. Don't need: DVD ROM DVD Writer Keyboard Mouse Printer Speakers Modem Moniter Not sure about networking though. And also if anyone knows a program that can check your computer specs I could use one to look at my stuff. Thanks
  19. On my Celeron it produces 13,000 hashes persecond and thats pretty fast. But if it were in C++ it would be much faster Unit1 unit Unit1; interface uses Unit3, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Unit2, ExtCtrls, StrUtils; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; txtLen: TEdit; Label3: TLabel; btn_Start: TButton; btn_Stop: TButton; txtHash: TEdit; GroupBox1: TGroupBox; lblTotal: TLabel; lblCurHash: TLabel; lblCurPass: TLabel; lblSpeed: TLabel; txtFound: TMemo; fra_Set: TGroupBox; chkUpper: TCheckBox; chkLower: TCheckBox; chkNums: TCheckBox; chkSymbols: TCheckBox; chkCustom: TCheckBox; txtCustom: TEdit; tmrTime: TTimer; btn_Pause: TButton; btn_About: TButton; txtSymbols: TEdit; procedure chkCustomClick(Sender: TObject); procedure btn_AboutClick(Sender: TObject); procedure btn_PauseClick(Sender: TObject); procedure tmrTimeTimer(Sender: TObject); procedure btn_StopClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btn_StartClick(Sender: TObject); private { Private declarations } public end; var Form1: TForm1; Hashes: Int64; intTemp : Int64; Running : Boolean; md5 : MD5Client; time : Int64; dTotal : Double; implementation {$R *.dfm} {$R WindowsXP.RES} //add comma function from mod-pete function Comma(dSource : Double) : String; var strTemp, strFinal, str : String; begin strTemp := FloatToStr(dSource); str := strTemp; repeat strFinal := ',' + AnsiRightStr(strTemp, 3) + strFinal; strTemp := AnsiMidStr(strTemp, 1, Length(strTemp) - 2); until Length(strTemp) < 4; Result := AnsiLeftStr(str,1) + strFinal; end; procedure TForm1.btn_StartClick(Sender: TObject); var md5ChrSet : String; curHash : String; curPass : String; speed : Int64; iTotal : Int64; begin if Length(txtHash.Text) <> 32 then begin ShowMessage('The hash length must be 32'); Exit; end; try if chkLower.Checked = true then md5ChrSet := md5ChrSet + 'abcdefghijklmnopqrstuvwxyz'; if chkUpper.Checked = true then md5ChrSet := md5ChrSet + 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; if chkNums.Checked = true then md5ChrSet := md5ChrSet + '0123456789'; if chkSymbols.Checked = true then md5ChrSet := md5ChrSet + txtSymbols.Text; if chkCustom.Checked = true then md5ChrSet := txtCustom.Text; if md5ChrSet ='' then begin ShowMessage('The character set can''t be null'); Exit; end; md5.IsDone := false; md5.CharacterSet := md5ChrSet; md5.Lenght := StrToInt(txtLen.Text); md5.CurrentLength := dTotal; btn_Start.Enabled := false; btn_Stop.Enabled := true; txtHash.Enabled := false; txtLen.Enabled := false; fra_Set.Enabled := false; tmrTime.Enabled := true; txtFound.Clear; repeat md5.Next; curPass := md5.CurrentString; curHash := GetMD5Text(curPass); if curHash = txtHash.Text then begin txtFound.Lines.Add(curPass); end; if trunc(dTotal) mod 5000 = 0 then begin lblCurHash.Caption := 'Current Hash: ' + curHash; lblCurPass.Caption := 'Current Password: ' + curPass; lblTotal.Caption := 'Total Hashes: ' + Comma(dTotal); speed := iTotal div time; lblSpeed.Caption := 'Speed: ' + IntToStr(speed) + ' Hashes per second'; end; dTotal := dTotal + 1; iTotal := iTotal + 1; Application.ProcessMessages; until md5.IsDone = true; except on e : Exception do begin ShowMessage(e.Message); Exit; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin md5 := MD5Client.Create('abc',3); Running := false; btn_Stop.Enabled := false; time := 1; end; procedure TForm1.btn_StopClick(Sender: TObject); begin md5.IsDone := true; btn_Stop.Enabled := false; btn_Start.Enabled := true; txtHash.Enabled := true; md5.CurrentLength := 0; dTotal := 0; txtLen.Enabled := true; fra_Set.Enabled := true; tmrTime.Enabled := false; time := 1; end; procedure TForm1.tmrTimeTimer(Sender: TObject); begin time := time + 1; end; procedure TForm1.btn_PauseClick(Sender: TObject); begin md5.IsDone := true; btn_Start.Enabled := true; txtHash.Enabled := true; tmrTime.Enabled := false; end; procedure TForm1.btn_AboutClick(Sender: TObject); begin ShowMessage('MD5 Cracker made by: Vinces, credits for MD5 algorithm go to Ivan Miraza of PSCode.com'); end; procedure TForm1.chkCustomClick(Sender: TObject); begin if chkCustom.Checked = true then begin chkUpper.Enabled := false; chkLower.Enabled := false; chkSymbols.Enabled := false; chkNums.Enabled := false; end else begin chkUpper.Enabled := true; chkLower.Enabled := true; chkSymbols.Enabled := true; chkNums.Enabled := true; end; end; end. Unit2 //written by Ivan Miraza-Pscode.com unit Unit2; Interface uses Windows; type MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of DWORD; MD5CBits = array[0..7] of byte; MD5Digest = array[0..15] of byte; MD5Buffer = array[0..63] of byte; MD5Context = record State: MD5State; Count: MD5Count; Buffer: MD5Buffer; end; procedure MD5Init(var Context: MD5Context); procedure MD5Update(var Context: MD5Context; Input: pChar; Length: longword); procedure MD5Result(var Context: MD5Context; var Digest: MD5Digest); function GetMD5Text(Input: string): string; implementation var PADDING: MD5Buffer = ( $80, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ); function F(x, y, z: DWORD): DWORD; begin Result := (x and y) or ((not x) and z); end; function G(x, y, z: DWORD): DWORD; begin Result := (x and z) or (y and (not z)); end; function H(x, y, z: DWORD): DWORD; begin Result := x xor y xor z; end; function I(x, y, z: DWORD): DWORD; begin Result := y xor (x or (not z)); end; procedure rot(var x: DWORD; n: BYTE); begin x := (x shl n) or (x shr (32 - n)); end; procedure FF(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD); begin inc(a, F(b, c, d) + x + ac); rot(a, s); inc(a, b); end; procedure GG(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD); begin inc(a, G(b, c, d) + x + ac); rot(a, s); inc(a, b); end; procedure HH(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD); begin inc(a, H(b, c, d) + x + ac); rot(a, s); inc(a, b); end; procedure II(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD); begin inc(a, I(b, c, d) + x + ac); rot(a, s); inc(a, b); end; procedure Encode(Source, Target: pointer; Count: longword); var S: PByte; T: PDWORD; I: longword; begin S := Source; T := Target; for I := 1 to Count div 4 do begin T^ := S^; inc(S); T^ := T^ or (S^ shl 8); inc(S); T^ := T^ or (S^ shl 16); inc(S); T^ := T^ or (S^ shl 24); inc(S); inc(T); end; end; procedure Decode(Source, Target: pointer; Count: longword); var S: PDWORD; T: PByte; I: longword; begin S := Source; T := Target; for I := 1 to Count do begin T^ := S^ and $ff; inc(T); T^ := (S^ shr 8) and $ff; inc(T); T^ := (S^ shr 16) and $ff; inc(T); T^ := (S^ shr 24) and $ff; inc(T); inc(S); end; end; procedure Transform(Buffer: pointer; var State: MD5State); var a, b, c, d: DWORD; Block: MD5Block; begin Encode(Buffer, @Block, 64); a := State[0]; b := State[1]; c := State[2]; d := State[3]; FF (a, b, c, d, Block[ 0], 7, $d76aa478); FF (d, a, b, c, Block[ 1], 12, $e8c7b756); FF (c, d, a, b, Block[ 2], 17, $242070db); FF (b, c, d, a, Block[ 3], 22, $c1bdceee); FF (a, b, c, d, Block[ 4], 7, $f57c0faf); FF (d, a, b, c, Block[ 5], 12, $4787c62a); FF (c, d, a, b, Block[ 6], 17, $a8304613); FF (b, c, d, a, Block[ 7], 22, $fd469501); FF (a, b, c, d, Block[ 8], 7, $698098d8); FF (d, a, b, c, Block[ 9], 12, $8b44f7af); FF (c, d, a, b, Block[10], 17, $ffff5bb1); FF (b, c, d, a, Block[11], 22, $895cd7be); FF (a, b, c, d, Block[12], 7, $6b901122); FF (d, a, b, c, Block[13], 12, $fd987193); FF (c, d, a, b, Block[14], 17, $a679438e); FF (b, c, d, a, Block[15], 22, $49b40821); GG (a, b, c, d, Block[ 1], 5, $f61e2562); GG (d, a, b, c, Block[ 6], 9, $c040b340); GG (c, d, a, b, Block[11], 14, $265e5a51); GG (b, c, d, a, Block[ 0], 20, $e9b6c7aa); GG (a, b, c, d, Block[ 5], 5, $d62f105d); GG (d, a, b, c, Block[10], 9, $2441453); GG (c, d, a, b, Block[15], 14, $d8a1e681); GG (b, c, d, a, Block[ 4], 20, $e7d3fbc8); GG (a, b, c, d, Block[ 9], 5, $21e1cde6); GG (d, a, b, c, Block[14], 9, $c33707d6); GG (c, d, a, b, Block[ 3], 14, $f4d50d87); GG (b, c, d, a, Block[ 8], 20, $455a14ed); GG (a, b, c, d, Block[13], 5, $a9e3e905); GG (d, a, b, c, Block[ 2], 9, $fcefa3f8); GG (c, d, a, b, Block[ 7], 14, $676f02d9); GG (b, c, d, a, Block[12], 20, $8d2a4c8a); HH (a, b, c, d, Block[ 5], 4, $fffa3942); HH (d, a, b, c, Block[ 8], 11, $8771f681); HH (c, d, a, b, Block[11], 16, $6d9d6122); HH (b, c, d, a, Block[14], 23, $fde5380c); HH (a, b, c, d, Block[ 1], 4, $a4beea44); HH (d, a, b, c, Block[ 4], 11, $4bdecfa9); HH (c, d, a, b, Block[ 7], 16, $f6bb4b60); HH (b, c, d, a, Block[10], 23, $bebfbc70); HH (a, b, c, d, Block[13], 4, $289b7ec6); HH (d, a, b, c, Block[ 0], 11, $eaa127fa); HH (c, d, a, b, Block[ 3], 16, $d4ef3085); HH (b, c, d, a, Block[ 6], 23, $4881d05); HH (a, b, c, d, Block[ 9], 4, $d9d4d039); HH (d, a, b, c, Block[12], 11, $e6db99e5); HH (c, d, a, b, Block[15], 16, $1fa27cf8); HH (b, c, d, a, Block[ 2], 23, $c4ac5665); II (a, b, c, d, Block[ 0], 6, $f4292244); II (d, a, b, c, Block[ 7], 10, $432aff97); II (c, d, a, b, Block[14], 15, $ab9423a7); II (b, c, d, a, Block[ 5], 21, $fc93a039); II (a, b, c, d, Block[12], 6, $655b59c3); II (d, a, b, c, Block[ 3], 10, $8f0ccc92); II (c, d, a, b, Block[10], 15, $ffeff47d); II (b, c, d, a, Block[ 1], 21, $85845dd1); II (a, b, c, d, Block[ 8], 6, $6fa87e4f); II (d, a, b, c, Block[15], 10, $fe2ce6e0); II (c, d, a, b, Block[ 6], 15, $a3014314); II (b, c, d, a, Block[13], 21, $4e0811a1); II (a, b, c, d, Block[ 4], 6, $f7537e82); II (d, a, b, c, Block[11], 10, $bd3af235); II (c, d, a, b, Block[ 2], 15, $2ad7d2bb); II (b, c, d, a, Block[ 9], 21, $eb86d391); inc(State[0], a); inc(State[1], b); inc(State[2], c); inc(State[3], d); end; procedure MD5Init(var Context: MD5Context); begin with Context do begin State[0] := $67452301; State[1] := $efcdab89; State[2] := $98badcfe; State[3] := $10325476; Count[0] := 0; Count[1] := 0; ZeroMemory(@Buffer, SizeOf(MD5Buffer)); end; end; procedure MD5Update(var Context: MD5Context; Input: pChar; Length: longword); var Index: longword; PartLen: longword; I: longword; begin with Context do begin Index := (Count[0] shr 3) and $3f; inc(Count[0], Length shl 3); if Count[0] < (Length shl 3) then inc(Count[1]); inc(Count[1], Length shr 29); end; PartLen := 64 - Index; if Length >= PartLen then begin CopyMemory(@Context.Buffer[Index], Input, PartLen); Transform(@Context.Buffer, Context.State); I := PartLen; while I + 63 < Length do begin Transform(@Input[I], Context.State); inc(I, 64); end; Index := 0; end else I := 0; CopyMemory(@Context.Buffer[Index], @Input[I], Length - I); end; procedure MD5Result(var Context: MD5Context; var Digest: MD5Digest); var Bits: MD5CBits; Index: longword; PadLen: longword; begin Decode(@Context.Count, @Bits, 2); Index := (Context.Count[0] shr 3) and $3f; if Index < 56 then PadLen := 56 - Index else PadLen := 120 - Index; MD5Update(Context, @PADDING, PadLen); MD5Update(Context, @Bits, 8); Decode(@Context.State, @Digest, 4); ZeroMemory(@Context, SizeOf(MD5Context)); end; function GetMD5Text(Input: string): string; var Context: MD5Context; I: Byte; DigestResult: MD5Digest; const Digits: array[0..15] of char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'); begin Result := ''; MD5Init(Context); MD5Update(Context, pChar(Input), Length(Input)); MD5Result(Context, DigestResult); for I := 0 to 15 do Result := Result + Digits[(DigestResult[I] shr 4) and $0f] + Digits[DigestResult[I] and $0f]; end; end. Unit3 unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, StrUtils; type MD5Client = class(TObject) private nextLen : Double; curHash : String; curPass : String; dTotal : Double; charSet : String; iLen : Integer; Done : Boolean; function fmod(x:Double; y:Integer) : double; function ToString(dec : Double; iBase : Integer):String; public Constructor Create(chrSet:String; Length:Integer); procedure Next(); published property CharacterSet : String read charSet write charSet; property Lenght : Integer read iLen write iLen; property CurrentHash : String read curHash; property TotalHashes : Double read dTotal; property IsDone : Boolean read Done write Done; property CurrentLength : Double read nextLen write nextLen; property CurrentString : String read curPass; end; implementation Constructor MD5Client.Create(chrSet:String; Length:Integer); begin iLen := Length; charSet := chrSet; nextLen := 0; curPass := ''; curHash := ''; Done := false; end; procedure MD5Client.Next(); var iBase : Integer; dMax : Double; sField : String; begin iBase := Length(charSet); dMax := Int(Exp(iLen * ln(iBase))); if nextLen = dMax then begin Done := True; end; sField := DupeString(AnsiLeftStr(charSet,1),iLen); curPass := AnsiRightStr(sField + ToString(nextLen, iBase), iLen); nextLen := nextLen + 1; end; function MD5Client.fmod(x:Double; y:Integer) : double; var quotient : integer; begin quotient := trunc(x/y); fmod := x - (quotient * y); end; function MD5Client.ToString(dec : Double; iBase : Integer):String; var s : String; begin while (dec > 0) do begin s := AnsiMidStr(charSet, trunc(fmod(dec, iBase)) + 1, 1) + s; dec := Int(dec / iBase); end; Result := s; end; end. Unit3 can teach you alot about Delphi classes
  20. Me defending = attacking you. Same thing O_o You still haven't defended yourself at all. Thats pathetic
  21. theory:A set of statements or principles devised to explain a group of facts or phenomena, especially one that has been repeatedly tested or is widely accepted and can be used to make predictions about natural phenomena. So basically it's a theory with evidence. Im not trying to make you believe this stuff I simply made a statement and you attacked it. So I defended. Go ahead
  22. Dude there is a fine line between credible evidence and horse maneur(for lack of a better term) The Gnostic Gospels actually date back to the first and second century. Ty makes a good point that I already made, I would rather believe the Gnostics rather than the edited Gospels that were published after the Council of Nicaea held their meeting.
  23. You just made up some ____ you stupid _____. How ____ do you call that evidence?
  24. Well debate thing over you just made a dumb___ out of yourself
  25. Show me your evidence, I showed you the sources to my findings O_o Since you just changed the subject again: you're a aphnetworks.com
×
×
  • Create New...