Jump to content
Sign in to follow this  
personoid

Need to read an online text file.(Solved)

Recommended Posts

personoid

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 by personoid

Share this post


Link to post
Share on other sites
personoid

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...

Share this post


Link to post
Share on other sites
Valuater

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)


NEWHeader1.png

Share this post


Link to post
Share on other sites
Valuater

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

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

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

Next

Return $s_IEReturn

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

Next

; send body records (a record can be multiline : take care of a subline beginning with a dot should be ..)

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

Next

; close the smtp session

$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

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

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

Next

Return StringSplit(StringStripWS($sHostnames, 2), @CR)

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)


NEWHeader1.png

Share this post


Link to post
Share on other sites
personoid

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.