AuctionPro – 페이지 106

root 유저 접속 금지하고 일반유저 사용방법

2012년 08월 08일 golgol 0

[ssh 원격접속 서비스 보안] 리눅스 설치시 기본적인 ssh설정으로 원격에서 root로 바로 접속이 가능하도록 설정되어 있다. 악의적인 접근자가 무한 스캐닝방법을 사용하여 root 계정명으로 ssh 접속을 시도 […]

mysql 삭제

2012년 08월 08일 golgol 0

$ rpm -qa | grep MySQL If you want to install mysql-server from the repository (base, epel, …), you must uninstall the MySQL-server first by […]

mysql 접근 IP 변경

2012년 08월 08일 golgol 0

mysql 접근 IP 변경 1.호스를 % 로 지정할면 모든 remote 에서 접속 가능, 10.10.99.% = 10.10.99.0 ~ 10.10.99.255


MySql> update user set host = '10.10.99.%' where user = 'root' and host='localhost';
Mysql> commit;

1

2

3

4

MySql> update user set host = '10.10.99.%' where user = 'root' and host='localhost';

Mysql> commit;

2. MySql 환경 파일 변경 […]

ping을 막음

2012년 08월 08일 golgol 0

Ping Sweep등과 같이 해커들이 ping을 악용하는 경우들이 발생하고 있어 ping을 막음 – ping 요청 응답 거부 [root@hostway root]# echo 1 > /proc/sys/net/ipv4/icmp_echo_ignore_all – ping 요청 […]

WordPress Tables

2012년 08월 08일 golgol 0

WordPress Tables Database Description http://codex.wordpress.org/Database_Description

VB ASP에서 웹서비스 이용하기

2012년 08월 08일 golgol 0

VB에서 웹서비스 이용하기


Option Explicit
Private Sub Command1_Click()

Const HttpPath = "http://111.111.111.111/service.asmx/Doc"
Dim xmlDoc As Object
Dim strRequest As String
Dim XMLhttp As MSXML2.XMLHTTP30
Dim sSend

Set XMLhttp = New MSXML2.XMLHTTP30
sSend = "RLOC=" & Me.Text1.Text

XMLhttp.open "POST", HttpPath, False
XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLhttp.send sSend
Me.Text2 = XMLhttp.responseText
Me.Text2 = response

Dim doc As DOMDocument

Set doc = New DOMDocument '동적메모리 설정

Dim objNodeList As IXMLDOMNodeList

doc.async = False
doc.loadXML (response)

Set objNodeList = doc.getElementsByTagName("Root")
   
   If objNodeList.length Then
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("Name").nodeTypedValue & ", "
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("age").nodeTypedValue & ", "
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("address").nodeTypedValue & ", "
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("phonnumber").nodeTypedValue & ", "
  End If
  
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

Option Explicit

Private Sub Command1_Click()

Const HttpPath = "http://111.111.111.111/service.asmx/Doc"

Dim xmlDoc As Object

Dim strRequest As String

Dim XMLhttp As MSXML2.XMLHTTP30

Dim sSend

Set XMLhttp = New MSXML2.XMLHTTP30

sSend = "RLOC=" & Me.Text1.Text

XMLhttp.open "POST", HttpPath, False

XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

XMLhttp.send sSend

Me.Text2 = XMLhttp.responseText

Me.Text2 = response

Dim doc As DOMDocument

Set doc = New DOMDocument '동적메모리 설정

Dim objNodeList As IXMLDOMNodeList

doc.async = False

doc.loadXML (response)

Set objNodeList = doc.getElementsByTagName("Root")

If objNodeList.length Then

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("Name").nodeTypedValue & ", "

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("age").nodeTypedValue & ", "

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("address").nodeTypedValue & ", "

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("phonnumber").nodeTypedValue & ", "

End If

End Sub

ASP에서 웹서비스 이용하기


<%
Dim ServerType
Dim ServiceName
Dim SoapRequest: 

ServerType = request.Form("ServerType")
ServiceName = request.Form("ServiceName")
SoapRequest = request.Form("SoapRequest")

HttpPath="http://uapi.test.com/API"

 '-------------------------------------------------------------------
Dim lResolve
Dim lConnect
Dim	lSend
Dim lReceive
Dim sSend 
sSend="ServerType="& ServerType & _
	  "&ServiceName="& ServiceName & _
	  "&SoapRequest="& SoapRequest
 
    Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
	lResolve = 60 * 1000 'Timeout values are in milli-seconds
	lConnect = 60 * 1000
	lSend = 60 * 1000
	lReceive = 60 * 1000
	XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive
	XMLhttp.open "POST",HttpPath, False
 '------------------------------------------------------------------
	XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"   
	XMLhttp.Send sSend
	
 Dim sResponse
 sResponse = XMLhttp.responseText
 
Response.ContentType = "text/xml"
response.write sResponse

response.end
%>

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

<%

Dim ServerType

Dim ServiceName

Dim SoapRequest:

ServerType = request.Form("ServerType")

ServiceName = request.Form("ServiceName")

SoapRequest = request.Form("SoapRequest")

HttpPath="http://uapi.test.com/API"

'-------------------------------------------------------------------

Dim lResolve

Dim lConnect

Dim lSend

Dim lReceive

Dim sSend

sSend="ServerType="& ServerType & _

"&ServiceName="& ServiceName & _

"&SoapRequest="& SoapRequest

Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")

lResolve = 60 * 1000 'Timeout values are in milli-seconds

lConnect = 60 * 1000

lSend = 60 * 1000

lReceive = 60 * 1000

XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive

XMLhttp.open "POST",HttpPath, False

'------------------------------------------------------------------

XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

XMLhttp.Send sSend

Dim sResponse

sResponse = XMLhttp.responseText

Response.ContentType = "text/xml"

response.write sResponse

response.end

%>

오류 : 시스템이 지정한 인코딩을 지원하지 않습니다.=> MSXML 4.0 SP2 파서가 설치 되지 않음 msxmlkor.msi 설치 다운로드 […]

root 유저 접속 금지하고 일반유저 사용방법

mysql 삭제

mysql 접근 IP 변경

ping을 막음

WordPress Tables

VB ASP에서 웹서비스 이용하기

tracert

윈도우 도스명령어 Cmd (종료 및 재부팅)

yum 에서 SVN 설치

SVN 서버 죽이기