Need to read an online text file.(Solved)

personoid · June 22, 2009

Is this possible? Or is my syntax wrong?

$Password = FileReadLine("http://h1.ripway.com/Blaine/test.txt")
If $Password <> "password" Then
    PersonFuncInvalid()
Else

It returns the invalid result each time.

I believe it's because i can't read an online file.

But i also believe that i have to use file open to open this. but i've checked example after example in the help file with several different syntax arrangements to no avail. Can someone help me do what i want this to do?

Local $sPassword = _INetGetSource("http://h1.ripway.com/Blaine/Password.txt")
If StringStripWS($sPassword, 2) <> "PersonSpamHax.exe" Then
    PersonSpamzInvalid()
Else

This worked well. Thank you for your help.

Edited January 21, 2013 by personoid

Valuater · June 22, 2009

This is how we do it.... This is how we do it... babae!!

InetGet("http://h1.ripway.com/Blaine/test.txt", @ScriptDir & "\Dump.txt")

$Password = FileReadLine(@ScriptDir & "\Dump.txt")
If $Password = "password" Then
    MsgBox(4096, "OK", "Sucess!!      ", 5)
Else
    ; nada
EndIf

... old song

8)

personoid · June 22, 2009

This is how we do it.... This is how we do it... babae!!

InetGet("http://h1.ripway.com/Blaine/test.txt", @ScriptDir & "\Dump.txt")

$Password = FileReadLine(@ScriptDir & "\Dump.txt")
If $Password = "password" Then
    MsgBox(4096, "OK", "Sucess!!      ", 5)
Else
    ; nada
EndIf

... old song

8)

Thank you very much. I can apply this if all else fails. But the idea is, It's a password. Is there anyway to read it without saving a copy to a chosen place? I know it'll be readable from the dump file but i need to read it without it being easily accessible...

Basically it's supposed to be invisible to my users. It deletes if the password is incorrect...

Valuater · June 22, 2009

Save it to an unfamiliar place... Read it... Then Delete it!!

$DunpFile = @TempDir & "\Dump.txt" ; use unknown location

; this only takes seconds
InetGet("http://h1.ripway.com/Blaine/test.txt", $DunpFile)
$Password = FileReadLine($DunpFile)
FileDelete($DunpFile)

If $Password = "password" Then
    MsgBox(4096, "OK", "Sucess!!      ", 5)
Else
    ; nada
EndIf

8)

DCCD · June 22, 2009

Else

#include <INet.au3>
ConsoleWrite(_INetGetSource('http://h1.ripway.com/Blaine/test.txt'))

.

Valuater · June 22, 2009

Those work... I always try to watch my "overhead" too!

CODE

#include-once

#include <Date.au3>

; ------------------------------------------------------------------------------

;

; AutoIt Version: 3.0

; Language: English

; Description: Functions that assist with Internet.

;

; ------------------------------------------------------------------------------

;===============================================================================

;

; Function Name: _GetIP()

; Description: Get public IP address of a network/computer.

; Parameter(s): None

; Requirement(s): Internet access.

; Return Value(s): On Success - Returns the public IP Address

; On Failure - -1 and sets @ERROR = 1

; Author(s): Larry/Ezzetabi & Jarvis Stubblefield

;

;===============================================================================

Func _GetIP()

Local $ip, $t_ip

If InetGet("http://checkip.dyndns.org/?rnd1=" & Random(1, 65536) & "&rnd2=" & Random(1, 65536), @TempDir & "\~ip.tmp") Then

$ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp"))

FileDelete(@TempDir & "\~ip.tmp")

$ip = StringTrimLeft($ip, StringInStr($ip, ":") + 1)

$ip = StringTrimRight($ip, StringLen($ip) - StringInStr($ip, "/") + 2)

$t_ip = StringSplit($ip, '.')

If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then

Return $ip

EndIf

If InetGet("http://www.whatismyip.com/?rnd1=" & Random(1, 65536) & "&rnd2=" & Random(1, 65536), @TempDir & "\~ip.tmp") Then

$ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp"))

FileDelete(@TempDir & "\~ip.tmp")

$ip = StringTrimLeft($ip, StringInStr($ip, "Your ip is") + 10)

$ip = StringLeft($ip, StringInStr($ip, " ") - 1)

$ip = StringStripWS($ip, 8)

$t_ip = StringSplit($ip, '.')

If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then

Return $ip

EndIf

SetError(1)

Return -1

EndFunc ;==>_GetIP

;===============================================================================

;

; Function Name: _INetExplorerCapable()

; Description: Convert a string to IE capable line

; Parameter(s): $s_IEString - String to convert to a capable IExplorer line

; Requirement(s): None

; Return Value(s): On Success - Returns the converted string

; On Failure - Blank String and @error = 1

; Author(s): Wes Wolfe-Wolvereness <Weswolf at aol dot com>

;

;===============================================================================

;

Func _INetExplorerCapable($s_IEString)

If StringLen($s_IEString) <= 0 Then

Return ''

SetError(1)

Else

Local $s_IEReturn

Local $i_IECount

Local $n_IEChar

For $i_IECount = 1 To StringLen($s_IEString)

$n_IEChar = '0x' & Hex(Asc(StringMid($s_IEString, $i_IECount, 1)), 2)

If $n_IEChar < 0x21 Or $n_IEChar = 0x25 Or $n_IEChar = 0x2f Or $n_IEChar > 0x7f Then

$s_IEReturn = $s_IEReturn & '%' & StringRight($n_IEChar, 2)

Else

$s_IEReturn = $s_IEReturn & Chr($n_IEChar)

EndIf

EndFunc ;==>_INetExplorerCapable

;===============================================================================

;

; Function Name: _INetGetSource()

; Description: Gets the source from an URL without writing a temp file.

; Parameter(s): $s_URL = The URL of the site.

; Requirement(s): DllCall/Struct & WinInet.dll

; Return Value(s): On Success - Returns the source code.

; On Failure - 0 and sets @ERROR = 1

; Author(s): Wouter van Kesteren.

;

;===============================================================================

Func _INetGetSource($s_URL, $s_Header = '')

If StringLeft($s_URL, 7) <> 'http://' And StringLeft($s_URL, 8) <> 'https://' Then $s_URL = 'http://' & $s_URL

Local $h_DLL = DllOpen("wininet.dll")

Local $ai_IRF, $s_Buf = ''

Local $ai_IO = DllCall($h_DLL, 'int', 'InternetOpen', 'str', "AutoIt v3", 'int', 0, 'int', 0, 'int', 0, 'int', 0)

If @error Or $ai_IO[0] = 0 Then

DllClose($h_DLL)

SetError(1)

Return ""

EndIf

Local $ai_IOU = DllCall($h_DLL, 'int', 'InternetOpenUrl', 'int', $ai_IO[0], 'str', $s_URL, 'str', $s_Header, 'int', StringLen($s_Header), 'int', 0x80000000, 'int', 0)

If @error Or $ai_IOU[0] = 0 Then

DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IO[0])

DllClose($h_DLL)

SetError(1)

Return ""

EndIf

Local $v_Struct = DllStructCreate('udword')

DllStructSetData($v_Struct, 1, 1)

While DllStructGetData($v_Struct, 1) <> 0

$ai_IRF = DllCall($h_DLL, 'int', 'InternetReadFile', 'int', $ai_IOU[0], 'str', '', 'int', 256, 'ptr', DllStructGetPtr($v_Struct))

$s_Buf &= StringLeft($ai_IRF[2], DllStructGetData($v_Struct, 1))

WEnd

DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IOU[0])

DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IO[0])

DllClose($h_DLL)

Return $s_Buf

EndFunc ;==>_INetGetSource

;===============================================================================

;

; Function Name: _INetMail()

; Description: Open default mail client with given Address/Subject/Body

; Parameter(s): $s_MailTo - Address for E-Mail

; $s_Subject - Subject <Weswolf at aol dot com>of E-Mail

; $s_MailBody - Body of E-Mail

; Requirement(s): _INetExplorerCapable

; Return Value(s): On Success - Process ID of e-mail client

; On Failure - Returns 0 and sets @error to non-zero.

; Author(s): Wes Wolfe-Wolvereness <Weswolf at aol dot com>

;

;===============================================================================

;

Func _INetMail($s_MailTo, $s_MailSubject, $s_MailBody)

Local $prev = opt("ExpandEnvStrings", 1)

Local $var = RegRead('HKCR\mailto\shell\open\command', "")

Local $ret = Run(StringReplace($var, '%1', _INetExplorerCapable('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody)))

Local $nError = @error, $nExtended = @extended

opt("ExpandEnvStrings", $prev)

Return SetError($nError, $nExtended, $ret)

EndFunc ;==>_INetMail

;===============================================================================

;

; Function Name: _INetSmtpMail()

; Description: Sends an email using SMTP over TCP IP.

; Parameter(s): $s_SmtpServer - SMTP server to be used for sending email

; $s_FromName - Name of sender

; $s_FromAddress - eMail address of sender

; $s_ToAddress - Address that email is to be sent to

; $s_Subject - Subject of eMail

; $as_Body - Single dimension array containing the body of eMail as strings

; $s_helo - Helo identifier (default @COMPUTERNAME) sometime needed by smtp server

; $s_first - send before Helo identifier (default @CRLF) sometime needed by smtp server

; $b_trace - trace on a splash window (default 0 = no trace)

; Requirement(s): None

; Return Value(s): On Success - Returns 1

; On Failure - 0 and sets

; @ERROR = 1 - Invalid Parameters

; @ERROR = 2 - Unable to start TCP

; @ERROR = 3 - Unable to resolve IP

; @ERROR = 4 - Unable to create socket

; @ERROR = 5x - Cannot open SMTP session

; @ERROR = 50x - Cannot send body

; @ERROR = 5000 - Cannot close SMTP session

; Authors: Original function to send email via TCP - Asimzameer

; Conversion to UDF - Walkabout

; Correction Helo, timeout, trace - Jpm

; Correction send before Helo - Jpm

;

;===============================================================================

Func _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_helo = "", $s_first=" ", $b_trace = 0)

Local $v_Socket

Local $s_IPAddress

Local $i_Count

Local $s_Send[6]

Local $s_ReplyCode[6];Return code from SMTP server indicating success

If $s_SmtpServer = "" Or $s_FromAddress = "" Or $s_ToAddress = "" Or $s_FromName = "" Or StringLen($s_FromName) > 256 Then

SetError(1)

Return 0

EndIf

If $s_helo = "" Then $s_helo = @ComputerName

If TCPStartup() = 0 Then

SetError(2)

Return 0

EndIf

StringRegExp($s_SmtpServer, "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)")

If @extended Then

$s_IPAddress = $s_SmtpServer

Else

$s_IPAddress = TCPNameToIP($s_SmtpServer)

EndIf

If $s_IPAddress = "" Then

TCPShutdown()

SetError(3)

Return 0

EndIf

$v_Socket = TCPConnect($s_IPAddress, 25)

If $v_Socket = -1 Then

TCPShutdown()

SetError(4)

Return (0)

EndIf

$s_Send[0] = "HELO " & $s_helo & @CRLF

If StringLeft($s_helo,5) = "EHLO " Then $s_Send[0] = $s_helo & @CRLF

$s_ReplyCode[0] = "250"

$s_Send[1] = "MAIL FROM: <" & $s_FromAddress & ">" & @CRLF

$s_ReplyCode[1] = "250"

$s_Send[2] = "RCPT TO: <" & $s_ToAddress & ">" & @CRLF

$s_ReplyCode[2] = "250"

$s_Send[3] = "DATA" & @CRLF

$s_ReplyCode[3] = "354"

Local $aResult = _Date_Time_GetTimeZoneInformation()

Local $bias = -$aResult[1]/60

Local $biasH = Int($bias)

Local $biasM = 0

If $biasH <> $bias Then $biasM = Abs($bias - $biasH) * 60

$bias = StringFormat(" (%+.2d%.2d)", $biasH, $biasM)

$s_Send[4] = "From:" & $s_FromName & "<" & $s_FromAddress & ">" & @CRLF & _

"To:" & "<" & $s_ToAddress & ">" & @CRLF & _

"Subject:" & $s_Subject & @CRLF & _

"Mime-Version: 1.0" & @CRLF & _

"Date: " & _DateDayOfWeek(@WDAY, 1) & ", " & @MDAY & " " & _DateToMonth(@MON, 1) & " " & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & $bias & @CRLF & _

"Content-Type: text/plain; charset=US-ASCII" & @CRLF & _

@CRLF

$s_ReplyCode[4] = ""

$s_Send[5] = @CRLF & "." & @CRLF

$s_ReplyCode[5] = "250"

; open stmp session

If _SmtpSend($v_Socket, $s_Send[0], $s_ReplyCode[0], $b_trace, "220", $s_first) Then

SetError(50)

Return 0

EndIf

; send header

For $i_Count = 1 To UBound($s_Send) - 2

If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then

SetError(50 + $i_Count)

Return 0

EndIf

For $i_Count = 0 To UBound($as_Body) - 1

; correct line beginning with a dot

If StringLeft($as_Body[$i_Count], 1) = "." Then $as_Body[$i_Count] = "." & $as_Body[$i_Count]

If _SmtpSend($v_Socket, $as_Body[$i_Count] & @CRLF, "", $b_trace) Then

SetError(500 + $i_Count)

Return 0

EndIf

$i_Count = UBound($s_Send) - 1

If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then

SetError(5000)

Return 0

EndIf

TCPCloseSocket($v_Socket)

TCPShutdown()

Return 1

EndFunc ;==>_INetSmtpMail

; internals routines----------------------------------

Func _SmtpTrace($str, $timeout = 0)

Local $W_TITLE = "SMTP trace"

Local $g_smtptrace = ControlGetText($W_TITLE, "", "Static1")

$str = StringLeft(StringReplace($str, @CRLF, ""), 70)

$g_smtptrace &= @HOUR & ":" & @MIN & ":" & @SEC & " " & $str & @LF

If WinExists($W_TITLE) Then

ControlSetText($W_TITLE, "", "Static1", $g_smtptrace)

Else

SplashTextOn($W_TITLE, $g_smtptrace, 400, 500, 500, 100, 4 + 16, "", 8)

EndIf

If $timeout Then Sleep($timeout * 1000)

EndFunc ;==>_SmtpTrace

Func _SmtpSend($v_Socket, $s_Send, $s_ReplyCode, $b_trace, $s_IntReply="", $s_first="")

Local $s_Receive, $i, $timer

If $b_trace Then _SmtpTrace($s_Send)

If $s_IntReply <> "" Then

; Send special first char to awake smtp server

If $s_first <> -1 Then

If TCPSend($v_Socket, $s_first) = 0 Then

TCPCloseSocket($v_Socket)

TCPShutdown()

Return 1; cannot send

EndIf

; Check intermediate reply before HELO acceptation

$s_Receive = ""

$timer = TimerInit()

While StringLeft($s_Receive,StringLen($s_IntReply)) <> $s_IntReply And TimerDiff($timer) < 45000

$s_Receive = TCPRecv($v_Socket, 1000)

If $b_trace And $s_Receive <> "" Then _SmtpTrace("intermediate->" & $s_Receive)

WEnd

EndIf

; Send string.

If TCPSend($v_Socket, $s_Send) = 0 Then

TCPCloseSocket($v_Socket)

TCPShutdown()

Return 1; cannot send

EndIf

$timer = TimerInit()

$s_Receive = ""

While $s_Receive = "" And TimerDiff($timer) < 45000

$i += 1

$s_Receive = TCPRecv($v_Socket, 1000)

If $s_ReplyCode = "" Then ExitLoop

WEnd

If $s_ReplyCode <> "" Then

; Check replycode

If $b_trace Then _SmtpTrace($i & " <- " & $s_Receive)

If StringLeft($s_Receive, StringLen($s_ReplyCode)) <> $s_ReplyCode Then

TCPCloseSocket($v_Socket)

TCPShutdown()

If $b_trace Then _SmtpTrace("<-> " & $s_ReplyCode, 5)

Return 2; bad receive code

EndIf

Return 0

EndFunc ;==>_SmtpSend

;===============================================================================

;

; Description: Resolves IP adress to Hostname

; CallTip: _TCPIpToName($sIp, [$iOption = 0], [$hDll_Ws2_32 = "Ws2_32.dll"])

; Parameter(s): $sIp - Ip Adress in dotted (v4) Format

; $iOption - Optional, Default = 0

; 0 = Return String Hostname

; 1 = Return Array (see Notes)

; $hDll_Ws2_32 - Optional, Handle to Ws2_32.dll

; Requirement(s): AutoIt 3.2.1.12+, Successfull TCPStartup

; Return Value(s): On Success - Hostname or Array (see Notes)

; On Failure - "" and Set

; @ERROR to: 1 - inet_addr DllCall Failed

; 2 - inet_addr Failed

; 3 - gethostbyaddr DllCall Failed

; 4 - gethostbyaddr Failed, WSAGetLastError = @Extended

; 5 - gethostbyaddr Failed, WSAGetLastError Failed

; 6 - strlen/sZStringRead Failed

; 7 - Error reading Aliases Array

; Author(s): Florian Fida

; Note(s): A successfull WSAStartup (Done by TCPStartup) is required.

; if $iOption = 1 then the returned Array looks Like this:

; $aResult[0] = Number of elemets

; $aResult[1] = "Hostname"

; $aResult[2] = "Alias 1"

; $aResult[3] = "Alias 2"

; ...

;

;===============================================================================

Func _TCPIpToName($sIp, $iOption = Default, $hDll_Ws2_32 = Default)

Local $vbinIP, $vaDllCall, $vptrHostent, $vHostent, $sHostnames, $vh_aliases, $i

Local $INADDR_NONE = 0xffffffff, $AF_INET = 2, $sSeperator = @CR

If $iOption = Default Then $iOption = 0

If $hDll_Ws2_32 = Default Then $hDll_Ws2_32 = "Ws2_32.dll"

$vaDllCall = DllCall($hDll_Ws2_32, "long", "inet_addr", "str", $sIp)

If @error Then Return SetError(1, 0, "") ; inet_addr DllCall Failed

$vbinIP = $vaDllCall[0]

If $vbinIP = $INADDR_NONE Then Return SetError(2, 0, "") ; inet_addr Failed

$vaDllCall = DllCall($hDll_Ws2_32, "ptr", "gethostbyaddr", "long*", $vbinIP, "int", 4, "int", $AF_INET)

If @error Then Return SetError(3, 0, "") ; gethostbyaddr DllCall Failed

$vptrHostent = $vaDllCall[0]

If $vptrHostent = 0 Then

$vaDllCall = DllCall($hDll_Ws2_32, "int", "WSAGetLastError")

If @error Then Return SetError(5, 0, "") ; gethostbyaddr Failed, WSAGetLastError Failed

Return SetError(4, $vaDllCall[0], "") ; gethostbyaddr Failed, WSAGetLastError = @Extended

EndIf

$vHostent = DllStructCreate("ptr;ptr;short;short;ptr", $vptrHostent)

$sHostnames = __TCPIpToName_szStringRead(DllStructGetData($vHostent, 1))

If @error Then Return SetError(6, 0, $sHostnames) ; strlen/sZStringRead Failed

If $iOption = 1 Then

$sHostnames &= $sSeperator

For $i = 0 To 63 ; up to 64 Aliases

$vh_aliases = DllStructCreate("ptr", DllStructGetData($vHostent, 2) + ($i * 4))

If DllStructGetData($vh_aliases, 1) = 0 Then ExitLoop ; Null Pointer

$sHostnames &= __TCPIpToName_szStringRead(DllStructGetData($vh_aliases, 1))

If @error Then

SetError(7) ; Error reading array

ExitLoop

EndIf

Else

Return $sHostnames

EndIf

EndFunc ;==>_TCPIpToName

; Internal

Func __TCPIpToName_szStringRead($iszPtr, $iLen = -1, $hDll_msvcrt = "msvcrt.dll")

Local $aStrLen, $vszString

If $iszPtr < 1 Then Return "" ; Null Pointer

If $iLen < 0 Then

$aStrLen = DllCall($hDll_msvcrt, "int:cdecl", "strlen", "ptr", $iszPtr)

If @error Then Return SetError(1, 0, "") ; strlen Failed

$iLen = $aStrLen[0] + 1

EndIf

$vszString = DllStructCreate("char[" & $iLen & "]", $iszPtr)

If @error Then Return SetError(2, 0, "")

Return SetError(0, $iLen, DllStructGetData($vszString, 1))

EndFunc ;==>__TCPIpToName_szStringRead

That's the include...

8)

personoid · June 22, 2009

Save it to an unfamiliar place... Read it... Then Delete it!!

$DunpFile = @TempDir & "\Dump.txt" ; use unknown location

; this only takes seconds
InetGet("http://h1.ripway.com/Blaine/test.txt", $DunpFile)
$Password = FileReadLine($DunpFile)
FileDelete($DunpFile)

If $Password = "password" Then
    MsgBox(4096, "OK", "Sucess!!      ", 5)
Else
    ; nada
EndIfoÝ÷ ÛÏêº^N¬Ì!jØ°jÈ(x-¡Ú"~'(ºWgßÛ]¡©ò¶§élx    Ýf²²Ø¥'âßÙ¢§{^®'§qçm¢f§jè§zØ¶Ê.Çªº^©

Thank you. I think i'll be using this method.

Sign In

Need to read an online text file.(Solved)

Recommended Posts

personoid

Link to comment

Share on other sites

Valuater

Link to comment

Share on other sites

personoid

Link to comment

Share on other sites

Valuater

Link to comment

Share on other sites

DCCD

Link to comment

Share on other sites

Valuater

Link to comment

Share on other sites

personoid

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta