Beiträge von Tigger1975

Tigger1975

Zitat von MatthiasG.

Carsten: Schau dir mal das hier an http://www.autoitscript.com/forum/index.php?showtopic=22838&hl=POP3+Mail

Ja Schön läuft genauso gut wie mein gefixtes ... aber das Problem mit der Subjekt codierung habe ich immer noch, dafür brauche ich hilfe.

Danke dennoch

Tigger1975

Hallo,

ich habe das alles grade mal ausprobiert, habe dabei die Funktion _pop3_getmailraw() gefixt diese liefert nun alle mail vollständig zurück.

Spoiler anzeigen

[autoit]

;===============================================================================
;
; Name: POP3 UDF
; Vorraussetzungen: TcpStartup () am Anfang des Skripts
; Beschreibung: Eine UDF um mit AutoIt auf einen POP3 Server zuzugreifen.
; Autor: Carsten8
;
;===============================================================================
Global $csocket
Global $sMsg
;===============================================================================
;
; Beschreibung: Verbindet sich zu einem POP3 Server und loggt sich ein.
; Parameter: $sServer - Adresse des Pop3-Servers
; $iPort - Port über den Verbunden werden soll (meistens 110)
; $sUser - Benutzername zum einloggen (bei ua. web.de ist es die E-Mail Adresse)
; $sPass - Passwort des E-Mail Accounts
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; Rückgabewerte: Erfolg: Gibt 1 zurück.
; Fehler: Gibt 0 zurück zu setzt @error:
; 1 = Timeout
; 2 = Server gab einen anderen Fehler zurück
; 3 = Konnte nicht zum Server verbinden (meist falsche Adresse oder Port)
; 4 = Benutzername und/oder Passwort falsch
;===============================================================================
Func _pop3_connect($sServer, $iPort, $sUser, $sPass, $timeout = 10000)
$csocket = TCPConnect($sServer, $iPort)
If @error = 1 Then
$csocket = TCPConnect(TCPNameToIP($sServer), $iPort)
EndIf
If $csocket = -1 Then
SetError(3)
Return 0
EndIf
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
Until StringLeft($Recv, 3) = "+OK"
TCPSend($csocket, "USER " & $sUser & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
Until StringLeft($Recv, 3) = "+OK"
TCPSend($csocket, "PASS " & $sPass & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(4)
Return 0
EndIf
Until StringLeft($Recv, 3) = "+OK"
Return $csocket
EndFunc
;===============================================================================
;
; Beschreibung: Gibt die Anzahl und die Größe der E-Mails auf dem Server zurück
; Parameter: $socket - Serversocket
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; Rückgabewerte: Erfolg: Setzt @error auf 0 und gibt ein Array mit folgenden Daten zurück:
; $array[0] = Anzahl der E-Mails
; $array[1] = Größe aller E-Mails in Bytes
; Fehler: Setzt @error auf 1 bei einem unbekannten Fehler (2 bei Timeout und gibt 0 zurück)
; und gibt den vom Server gesendeten Fehler zurück.
;===============================================================================
Func _pop3_info($socket, $timeout = 10000)
TCPSend($socket, "STAT" & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(2)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(4)
Return $recv
EndIf
Until StringLeft($Recv, 3) = "+OK"
$sTrim = StringTrimLeft($recv, 4)
$split = StringSplit($sTrim, " ")
Dim $aStat[2]
$aStat[0] = $split[1]
$aStat[1] = $split[2]
Return $aStat
EndFunc
;===============================================================================
;
; Beschreibung: Empfängt eine E-Mail mit ihrem Header
; Parameter: $socket - Serversocket
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; $iMail - Die Nummer der E-Meil zum Empfangen
; Rückgabewerte: Erfolg: Gibt die E-Mail zurück
; Fehler: Gibt 0 zurück und setzt @error bei einem Timeout auf 1 (bei anderen Fehlern 0)
;===============================================================================
Func _pop3_getmailraw($socket, $iMail, $timeout = 10000)
local $try = 5 , $recv = ""
TCPSend($socket, "RETR " & $iMail & @CRLF)
$iTimer = TimerInit ()
while not StringRegExp($recv,"\s[.]\s")
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv &= TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
if $try = 0 Then
SetError(0)
Return 0
Else
$try -= 1
TCPSend($socket, "RETR " & $iMail & @CRLF)
$recv = ""
EndIf
EndIf
wend
Return $recv
EndFunc
;===============================================================================
;
; Beschreibung: Löscht eine E-Mail vom Server
; Parameter: $socket - Serversocket
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; $iMail - Die Nummer der E-Meil zum Empfangen
; Rückgabewerte: Erfolg: Gibt 1 zurück
; Fehler: Gibt 0 zurück und setzt @error bei einem Timeout auf 1 (bei anderen Fehlern 0)
;===============================================================================
Func _pop3_deletemail($socket, $iMail, $timeout = 10000)
TCPSend($socket, "DELE " & $iMail & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(0)
Return 0
EndIf
Until StringLeft($recv, 3) = "+OK"
Return 1
EndFunc
;===============================================================================
;
; Beschreibung: Trennt die Verbindung zum Server
; Parameter: $socket - Serversocket
; Rückgabewerte: Keine
;===============================================================================
Func _pop3_disconnect($socket)
TCPSend($socket, "QUIT" & @CRLF)
TCPCloseSocket($socket)
EndFunc

[/autoit]

ich habe jetzt aber noch das Problem das der Subject irgentwie codiert ist, kann mir jemand sagen wie ich den string decoden kann

ich habe Ihn schon aus der Email Extraiert in einer Variable.

Spoiler anzeigen

[autoit]

Local $Subject = StringRegExp($Mail,"[Ss][Uu][Bb][Jj][Ee][Cc][Tt][\s]*:[\s]*(.+)\s",1)
if IsArray($Subject) then $Subject = $Subject[0]

[/autoit]

So sieht der Codierte subjekt aus

Spoiler anzeigen

Subject: =?utf-8?b?QmFja3VwIEV4ZWMtTWVsZHVuZzogQXVmdHJhZyBtaXQgQXVzbmFobQ==?=
=?utf-8?b?ZW4gYWJnZXNjaGxvc3NlbiAoU2VydmVyOiAiTkxSRUctREMxIikgKEF1ZnRyYQ==?=
=?utf-8?b?ZzogInTDpGdsaWNoIikg?=

Vielen Dank für eure Unterstützung.

Tigger1975

Zitat von Oscar

Würdest Du bitte diese Multi-Posts unterlassen!
Wenn Du Deinem Post noch etwas hinzufügen willst, benutze bitte den Bearbeiten-Button.

Ok ich unterlasse den Multipost, kannst du den was brauchbares zum Thema hinzufügen?

Edit:

Es geht.

Tigger1975

Hallo,

Zitat von dhacker

*hmmm* eigentlich nicht. Wie gesagt beide haben die gleiche Framework-Version und auch dieselben Einstellungen im IE (Java aktiviert bla blubb), aber ich vergleiche es sichershalber noch mal. Vielleicht seh ich auch den Wald vor lauter Bäumen nicht. :pinch:

Für weitere Tips bin ich trotzdem dankbar!!!

nur zur Info im error.log die unteren Zeilen zeigen nur das die Browser Fenster geschlossen wurden, auch das ist ein Zeichen das die Browser Fenster sauber gefunden werde.

Tigger1975

Hallo, ich habe das script geschrieben,

Zitat von Deepred

Zeile 71 ist glaub ich falsch.
Es müsste ObjCreate("Shell.Explorer.2") heißen

der Browser wird immer sauber gefunden es kommen nur keine Events am Script an.
Das kann also nicht das Problem sein.
allerdings hilft der hinweis dabei etwas weiniger Systemlast zu verursachen da dann nur die IEs gelistet werden.
Das Script läuft auch Tadellos mit IE 7. Nur bei manchen Rechner läuft es nicht.

Tigger1975

Zitat von Schnuffel

Hallo Tigger1975,
[autoit]
If Not FileExists($Settings) Then
MsgBox(16, $Progname, "Settings.ini kann nicht gefunden werden." & @CRLF & "Programm wird beendet.")
Exit (1)
EndIf
[/autoit]
keine Settings.ini --> Hilfe schwierig

Da hast du recht... muss auch nicht sein das das noch nachgebastelt wird.
hier also die Settings:

Spoiler anzeigen

[Settings]
Timer=60
Gui_Enable=1
Log=1
EnableTrayIcon=1

[Database]
# Noch nicht deffiniert

[Sites]
#Name (Unwichtig) = URL (Filterelement)
google = google.de/
1und1 = 1und1.de
www = www.de/
otuc = 192.168.10.67/

Tigger1975

Also OK ...
wer mir hier hilft wird von mir bezahlt, allerdings muss einer echte Lösung her ... sprich das Script läuft das weis ich ... ich möchte wissen warum es unter bestimmten Voraussetzungen nicht läuft.

ich setze ein Preis von 250€ aus, wer mir als erstes eine Lösung liefert die auch funktioniert bekommt von mir das Geld.
und Die Lösung kommt ins Forum.
Bitte alles im Forum keine PMs

Edit:
Hat sich erledigt Problem gelöst

Tigger1975

Zitat von msp-holzwurm

irgendwo auf der Kiste eine Datei (bei mir ist die z.B. transportuser.pw) dadrin liegt das verschlüsselte Passwort (das ist kein Problem mit Autoit), deine EXE kann das Passwort entschlüsseln und Du kannst ein weiteres Kommanda als "run as" laufen lassen oder die Netzlaufwerke verbinden.

Der Ansatz ist war nicht schlecht aber ein Admin Passwort auch Verschlüsselt auf systemen abzulegen an die jeder rann kann halte ich für absolut gefährlich... Besser ist einen Server zu Verwenden der sich aktiv an diesem Rechner anmeldet und Somit auch volle Berechtigung bekommt.

Tigger1975

Hallo, also für dich käme doch sowas in Frage:

http://also-edv-beratung.de/2009020669/loe…stallation.html
und
http://www.openrollit.net/cms/front_content.php?idcat=2

das in Kombination mit Autoit und du kannst getrost die Füsse hochlegen.

Wenn du bei diesen Themen Hilfe brauchst....

Tigger1975

So Jetzt habe ich das getestet,

nachdem ich die Zeilen:

DllStructSetData($stCertificate,1,$Certificate)
DllStructSetData($stSource,1,$Source)

editiert habe und das noch eingebaut habe:

Dim $Key = _FileReadBin("server.privkey")
$stKey = DllStructCreate("byte[" & BinaryLen($Key) & "]")
DllStructSetData($stKey,1,$Key)

läuft zwar was aber als Ergebnis bekomme ich nur eine Reihe von Nullen.
kann es sein das die dll nicht in der Lage ist aus der DLLStrukt die Source und den Key zu ziehen, wobei sie ja das Ergebis Strukt auch manipuliert, ich werde datraus nicht schlau.

Spoiler anzeigen

[autoit]

; Beispiel:
Dim $Certificate = _FileReadBin("server.pubkey")
$stCertificate = DllStructCreate("byte[" & BinaryLen($Certificate) & "]")
DllStructSetData($stCertificate,1,$Certificate)

[/autoit] [autoit][/autoit] [autoit]

Dim $Key = _FileReadBin("server.privkey")
$stKey = DllStructCreate("byte[" & BinaryLen($Key) & "]")
DllStructSetData($stKey,1,$Key)

[/autoit] [autoit][/autoit] [autoit]

Dim $Source = StringToBinary("Das ist ein Probetext",4)
$stSource = DllStructCreate("byte[" & BinaryLen($Source) & "]")
DllStructSetData($stSource,1,$Source)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$result_size = BinaryLen($Source)*2
If $result_size < 255 Then $result_size = 255
Dim $stResult = DllStructCreate("byte[" & $result_size & "]")

[/autoit] [autoit][/autoit] [autoit]

$Success = _RSA_encrypt($stSource, $stResult, $stCertificate)
$result = DllStructGetData($stSource,1)

[/autoit] [autoit][/autoit] [autoit]

Dim $Source = $result
$stSource = DllStructCreate("byte[" & BinaryLen($Source) & "]")
DllStructSetData($stSource,1,$Source)

[/autoit] [autoit][/autoit] [autoit]

$Success = _RSA_encrypt($stSource, $stResult, $stkey)
MsgBox(0,"",DllStructGetData($stResult,1))

[/autoit] [autoit][/autoit] [autoit]

; $stSource - Binary oder DLLStruct
; $stResult - DLLStruct für das Ergebnis (ausreichend Platz in bytes)
; $stPbKeyContent - DLLStruct mit dem PubKey als Inhalt
Func _RSA_encrypt(ByRef $stSource, ByRef $stResult, ByRef $stPubkeyContent)
; Prog@ndy
Local $result = DllCall("rsa_dll.dll", "long", "RSA_encrypt", _
"ptr", DllStructGetptr($stSource), "ulong", DllStructGetSize($stSource), _
"ptr", DllStructGetptr($stResult), "ulong", DllStructGetSize($stResult), _
"ptr", DllStructGetptr($stPubkeyContent), "ulong", DllStructGetSize($stPubkeyContent) _
)
Return $result[1]
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _RSA_decrypt(ByRef $stSource, ByRef $stResult, ByRef $stPubkeyContent)
; Prog@ndy
Local $result = DllCall("rsa_dll.dll", "long", "RSA_decrypt", _
"ptr", DllStructGetPtr($stSource), "ulong", DllStructGetSize($stSource), _
"ptr", DllStructGetPtr($stResult), "ulong", DllStructGetSize($stResult), _
"ptr", DllStructGetPtr($stPubkeyContent), "ulong", DllStructGetSize($stPubkeyContent) _
)
Return $result[1]
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _FileReadBin($Filename)
; Prog@ndy
Local $File = FileOpen($Filename,16)
If @error Then Return SetError(1)
Local $data = FileRead($File)
FileClose($File)
Return $data
EndFunc

[/autoit]

Hier nochmal die Passende DLL dazu:

Tigger1975

Kann mir denn hier keine helfen?
Es muß doch jemanden geben der schonmal events von IE abgefangen hat immerhin gibt es in der hilfe ein ganzes testscript.

Es ist blos eins was ich nicht verstehe bei mir am Rechner funktioniert das auch super an einem anderen Rechner gleiche IE Version gleicher WinXP SP, auch mit dem Neuesten IE und SP hat es problemlos Funktioniert.

Tigger1975

Gibt es denn Niemanden hier der mir Helfen kann eine Dll einzubinden...

Tigger1975

Zitat von peethebee

Nimm daher für "richtige" Anwendungen lieber ein anderes Plugin :).

Genau darum geht es mir ja ich möchte ja eine anderes Plugin verwenden aber damit Stützt Autoit immer ab .

Zitat von peethebee

Schöne Grüße aus dem Urlaub,
peethebee

Schönen Urlaub

Tigger1975

Hallo,

gibt es die Möglichkeit Autoit, Autoit Beta und SciTe via SVN zu Downloaden und Auf stand zu halten?

Irgendwie finde ich dazu keine richtigen Infos.

Danke.
Gruß
Alex

Tigger1975

Zitat von Deepred

>Oder ist das ein Plugin?

Nein das habe ich schon Probiert, das ist mir zu langsam, ich brauche alleine für ein 256er Key ca. 3 Min um Ihn zu berechnen. Die DLL die ich meine habe ich in einem Demo Projekt getestet und die arbeitet mit 2048er keys und das auch noch schnell.

Tigger1975

Zitat von progandy

Dein Auruf ist auf jeden Fall falsch, aber was ist das für ne DLL? Ohne Funktionsdefinition kann niemand sagen, was falsch ist.

Die DLL findet man hier und alle Definitionen dazu

und so wird sie für ein VB Projekt definiert.

Spoiler anzeigen

Code

Attribute VB_Name = "Module1"
Option Explicit




'declare public DLL function
'unsigned long __stdcall RSA_encrypt(unsigned char *source, unsigned long source_size,
'                                	unsigned char *result, unsigned long result_size,
'                                	unsigned char *pubkey_content, unsigned long pubkey_content_size);
'unsigned long __stdcall RSA_decrypt(unsigned char *source, unsigned long source_size,
'                                	unsigned char *result, unsigned long result_size,
'                                	unsigned char *prikey_content, unsigned long prikey_content_size);
'unsigned long __stdcall RSA_sign(unsigned char *source, unsigned long source_size,
'                             	unsigned char *result, unsigned long result_size,
'                             	unsigned char *prikey_content, unsigned long prikey_content_size);
'unsigned long __stdcall RSA_verify(unsigned char *source, unsigned long source_size,
'                               	unsigned char *result, unsigned long result_size,
'                               	unsigned char *pubkey_content, unsigned long pubkey_content_size);
'
'// rsa_keys.c
'unsigned long __stdcall RSA_generate_keys(unsigned char *privatekey, unsigned char *publickey,
'                                      	unsigned long *privatekey_length, unsigned long *publickey_length);




'Public Const DLL_path As String = "C:\WINDOWS\¹ÙÅÁ È¸é\HMAXF RSA VB\HMAXF RSA VB\HMAXF RSA VB\HMaxFRSA\Release\HMaxFRSA.dll"




Public Declare Function RSA_encrypt Lib "rsa_dll.dll" _
            	(ByRef Source As Byte, ByVal Source_size As Long, _
             	ByRef Target As Byte, ByVal Target_size As Long, _
             	ByRef Certificate As Byte, ByVal Certificate_size As Long) As Long


Public Declare Function RSA_decrypt Lib "rsa_dll.dll" _
            	(ByRef Source As Byte, ByVal Source_size As Long, _
             	ByRef Target As Byte, ByVal Target_size As Long, _
             	ByRef Certificate As Byte, ByVal Certificate_size As Long) As Long

Public Declare Function RSA_verify Lib "rsa_dll.dll" _
            	(ByRef Source As Byte, ByVal Source_size As Long, _
             	ByRef Target As Byte, ByVal Target_size As Long, _
             	ByRef Certificate As Byte, ByVal Certificate_size As Long) As Long

Public Declare Function RSA_sign Lib "rsa_dll.dll" _
            	(ByRef Source As Byte, ByVal Source_size As Long, _
             	ByRef Target As Byte, ByVal Target_size As Long, _
             	ByRef Certificate As Byte, ByVal Certificate_size As Long) As Long

Public Declare Function RSA_generate_keys Lib "rsa_dll.dll" _
            	(ByRef Key As Byte, ByRef Certificate As Byte, _
             	ByRef Key_size As Long, ByRef Certificate_size As Long) As Long


Public Declare Function HMaxF_RSA_version Lib "rsa_dll.dll" (ByRef Target As Byte, ByVal Target_size As Long) As Long




'delare public variable
Public FileHandle As Integer


Public SourceFile As String
Public TargetFile As String
Public KeyFile As String
Public CertificateFile As String


Public SourceBytes() As Byte
Public TargetBytes() As Byte
Public KeyBytes() As Byte
Public CertificateBytes() As Byte


Public SourceLength As Long
Public TargetLength As Long
Public KeyLength As Long
Public CertificateLength As Long


Public StartTime As Long
Public FinishTime As Long


Public Op_Mode As Long
Public Result As Long ' return value

Alles anzeigen

Tigger1975

Hallo Prajoss,

so wie sich das liest versuchst du so eine Art Slider zu bauen,
wenn ja warum verwendest du denn keine Slider?

$Slider1 = GUICtrlCreateSlider(112, 80, 150, 45)

zudem könntest du mit Events arbeiten mit Assigen und Arrays:

Spoiler anzeigen

[autoit]

Func _BuildGui($FrameX, $FrameY)
Global $ButtonGui = GUICreate($ProgName & " Buttons", $FrameX, $FrameY, -1, -1, BitOR($WS_POPUP, $WS_CLIPSIBLINGS))
GUISetFont(8.5,-1,-1,"Arial",$ButtonGui)
$FrameY -= 15
Local $InnerFrame = 16
Local $InnerFrame2 = $InnerFrame / 2
Local $InnerFrame4 = $InnerFrame / 4
Local $cols
Local $Rows
Local $Buttons = UBound($ButtonSettings)
Select
Case $Buttons = 1
$cols = 1
$Rows = 1
Case $Buttons = 2
$cols = 1
$Rows = 2
Case $Buttons = 3
$cols = 1
$Rows = 3
Case IsInt($Buttons / 2)
$cols = 2
$Rows = $Buttons / 2
Case IsInt($Buttons / 3)
$cols = 3
$Rows = $Buttons / 3
Case IsInt(($Buttons + 1) / 3)
$cols = 3
$Rows = ($Buttons + 1) / 3
Case Else
$cols = 2
$Rows = ($Buttons + 1) / 2
EndSelect

Local $BSizeX = (($FrameX - $InnerFrame) / $cols) - $InnerFrame4
If $Buttons >= 12 Then
If $BSizeX > 150 Then
$cols *= 2
$Rows /= 2
$BSizeX = (($FrameX - $InnerFrame) / $cols) - $InnerFrame4
EndIf
EndIf
Local $BSizeY = (($FrameY - $InnerFrame) / $Rows) - $InnerFrame4
Local $PosX = $InnerFrame2
Local $PosY = $InnerFrame2
$h = 0
While 1
For $i = 1 To $Rows
For $j = 1 To $cols
Assign("Button" & $h, GUICtrlCreateButton($ButtonSettings[$h][0], $PosX, $PosY, $BSizeX, $BSizeY, 0), 2)
$PosX += $BSizeX + $InnerFrame4
$h += 1
If $h = UBound($ButtonSettings) Then ExitLoop
Next
$PosX = $InnerFrame2
$PosY += $BSizeY + $InnerFrame4
If $h = UBound($ButtonSettings) Then ExitLoop
Next
If $h = UBound($ButtonSettings) Then ExitLoop
WEnd
GUICtrlCreateLabel($CopyRightLable, $PosX, $PosY)
GUICtrlSetFont(-1, $InnerFrame2, -1, -1)
Global $Tastatur = GUICtrlCreateButton("", $FrameX - $InnerFrame2 - 28 ,$FrameY - $InnerFrame2 , 28 , 20, $BS_ICON)
GUICtrlSetImage($Tastatur, $TExe, 0)
GUISetState(@SW_SHOW)
EndFunc ;==>_BuildGui

[/autoit]

Tigger1975

Hallo,
ich habe Versuch eine DLL einzubinden bin aber leider gescheitert , leider stürzt mir autoit ab, und ich komme nicht dahinter warum.
Könnte einer von euch mal darüberschauen und mir sagen was ich falsch mache?

ich habe hier nur mal eine Funktion abgebildet ich denke alle anderen werden ganz genau das gleich Problem haben.

[autoit]

# Unter Verwendung von hmaxf_rsa_gui_vb_source_code