PHP (hex2bin, bin2hex) convert ASP

-- PHP 2009. 7. 30. 12:01
,
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.
  Function Bin2Hex(strBin)
    Dim i
    Dim strHex
    Dim strHexChar
   
    strHex = ""
   
    For i=1 To Len(strBin)
      strHexChar = Hex(Asc(Mid(strBin,i,1)))
     
      If Len(strHexChar) < 2 Then
        strHexChar = "0" & strHexChar
      End If
     
      strHex = strHex & strHexChar
    Next
   
    Bin2Hex = strHex
  End Function
 
  Function Hex2Bin(strHex)
    Dim i
    Dim strBin
   
    strBin = ""
   
    For i=1 To Len(strHex) Step 2
      strBin = strBin & Chr(CLng("&H" & Mid(strHex,i,2)))
    Next
   
    Hex2Bin = strBin
  End Function

'-- PHP' 카테고리의 다른 글

Apache에 PHP설정  (0) 2012.09.10
require, require_once, include, include_once  (0) 2012.07.18
php소스를 asp로 변환할 때 주의사항 (바이트연산)  (0) 2009.07.30
php 함수 리스트  (0) 2009.07.29
PHP에서 Asp처럼 CreateObject 쓰기  (0) 2007.11.02
posted by 어린왕자악꿍

티스토리툴바