-
Header-Scanner
Moin ich such ein schlauen Skripter, der folgendes für mich machen kann. Das dort unter mir ist der Header einer gefälschten E-mail.
Code:
Return-Path: <scripts4free@cora.bescript.de>
X-Original-To: garrett-thief@arcor.de
Received: from cora.bescript.de (cora.bescript.de [80.***.231.66])
by mail-in-04.arcor-online.net (Postfix) with SMTP id 4CA1718D9D
for <garrett-thief@arcor.de>; Thu, 5 Aug 2004 13:58:52 +0200 (CEST)
Received: (qmail 27286 invoked by uid 81); 5 Aug 2004 11:58:52 -0000
Date: 5 Aug 2004 11:58:52 -0000
Message-ID: <040805135852.1091707132.bemail@cora.bescript.de>
X-Complaints-To: abuse@bescript.de
X-Sender-Info: scripts4free
To: garrett-thief@arcor.de
Subject: Hi das wollte ich dir sagen...
From: Finn <finn@arcor.de>
X-Mailer: beMail v. 0.1
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="BEMAIL=Part1=81bbb8e43849df6f619e7d32864a95c4"
Ich hätte nun gerne, dass ein PRogramm den unter "Return-Path: <***@**.de>" die E-Mailadresse herausschneidet und mit der unter "From: Finn <Finn@arcor.de> vergleicht und so entdecken kann, ob sie gefälscht ist oder nicht.
http://home.arcor.de/sven-seoman/header.png
Hier so könnte das aussehen hab das einfach so mit Paint designt.
-
Mit Delphi könnte man das relativ einfach realosieren. Eventuell könnt ich's für dich machen, vorasugesetzt das diese Zwei Zeilen immer an der Selben stelle stehen ist es sogar noch simpler. Wenn nicht, naja dann scannt man halt die ersten paar zeichen in der Reihe... Nun ja ich versuchs (!).
Hier, fertig. Projektdateien für Delphi 7 sind beigpackt. Hab sogar Kommentare daneben geschrieben (!).
http://ihrname.funpic.de/Files/Header.exe
Spendier dem Link einen Rechtsklick und ein "Speichern unter" ok?
PS: Ich gehe davon aus das die Zeilen immer gleich sind.
-
Ey cool, danke!http://www.multimediaxis.de/images/s.../old/sm_12.gif http://www.multimediaxis.de/images/s.../old/sm_12.gif
Allerdings steht das "From" nicht immer in der gleichen Zeile!
Ansonsten steht der Return-Path immer in derselben. Es müsste also nur das From gescannt werden. Wäre nett wenn du das noch machen könntest.
http://www.multimediaxis.de/images/s.../old/sm_12.gif http://www.multimediaxis.de/images/s.../old/sm_12.gif
edit: NOch was ich hab gründlich untersucht ^^
Die Spalte ist auch nicht immer gleich lang also: z.b. kann dort stehen:
From: Robert <Robert@**.de>
oder
From: <A-loch@***.de>
oder
From: Alter Dicker Mann <Dünnertyp@*.de>
oder
From; robert@robert.de <robert@rober.de>
http://www.multimediaxis.de/images/s.../old/sm_12.gif
Hier das ist zum Beispiel ein echter Header:
Code:
Return-Path: <Ranma23@gmx.de>
X-Original-To: garrett-thief@arcor.de
Received: from mail.gmx.net (mail.gmx.net [213.165.64.20])
by mail-in-01.arcor-online.net (Postfix) with SMTP id E62365E17
for <garrett-thief@arcor.de>; Thu, 5 Aug 2004 14:04:22 +0200 (CEST)
Received: (qmail 21906 invoked by uid 0); 5 Aug 2004 12:04:22 -0000
Received: from 212.7.138.48 by www18.gmx.net with HTTP;
Thu, 5 Aug 2004 14:04:22 +0200 (MEST)
Date: Thu, 5 Aug 2004 14:04:22 +0200 (MEST)
From: "Ranma Sauotome" <Ranma23@gmx.de>
To: garrett-thief@arcor.de
MIME-Version: 1.0
Subject: Hi das wollte ich dir sagen...
X-Priority: 3 (Normal)
X-Authenticated: #18918573
Message-ID: <30730.1091707462@www18.gmx.net>
X-Mailer: WWW-Mail 1.6 (Global Message Exchange)
X-Flags: 0001
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
-
Sorry... ich weis net weiter...
Ich dachte mir das ganze so:
Code:
for j := 0 to Header.Lines.Count do
Begin
Zeile.Text := Header.Lines[j];
if Zeile.Text[1] = 'F' then
Begin
if Zeile.Text[2] = 'r' then
Begin
if Zeile.Text[3] = 'o' then
Begin
if Zeile.Text[4] = 'm' then
Begin
if Zeile.Text[5] = ':' then
Begin
Zeile.Text := Header.Lines[j];
for i := 12 to Zeile.GetTextLen do
Begin
Von2 := Von2 + Zeile.Text[i];
End; // Das selbe nochmal für From:
End;
End;
End;
End;
End;
End;
Eventuell weis ein andere Delphi Progger es besser ;)
edit: Die Funktion um die Zeile von From: herauszubekommen...
-
Was funzt denn jetzt nicht?
