>>function HtoE(cStr){ >>var cNew=""; >>for (var i=0; i<cStr.length; i=i+2){ >> cNew+= "%" + cStr.substr(i,2); >> } >>return unescape(cNew); >>}>>
>#Define HEAP_ZERO_MEMORY 0x8 > >m.lcString = Filetostr(Getfile()) >m.lnLen = Len(m.lcString) > >Declare Integer GetProcessHeap In win32api > >Declare Integer HeapAlloc In win32api ; > Integer hHeap, ; > Integer dwFlags, ; > Integer dwBytes > >Declare Integer HeapFree In win32api ; > Integer hHeap, ; > Integer dwFlags, ; > Integer lpMem > >m.lnHeap = GetProcessHeap() > >m.lnSeconds = Seconds() >m.lnMemBlock1 = HeapAlloc(m.lnHeap, 0x8, m.lnLen) >m.lnMemBlock2 = HeapAlloc(m.lnHeap, 0x8, m.lnLen * 3) > >Sys(2600, m.lnMemBlock1, m.lnLen, m.lcString) > >For m.lnPos = 1 To m.lnLen > m.lcChar = Sys(2600, m.lnMemBlock1 + m.lnPos - 1, 1) > m.lnOffset = (m.lnPos - 1) * 3 > Sys(2600, m.lnMemBlock2 + m.lnOffset, 3, [%] + Strconv(m.lcChar, 15)) >Endfor > >m.lcEscHex = Sys(2600, m.lnMemBlock2, m.lnLen * 3) > >HeapFree(m.lnHeap, 0, m.lnMemBlock1) >HeapFree(m.lnHeap, 0, m.lnMemBlock2) > >?[Time: ], Seconds() - m.lnSeconds, [Bytes: ], m.lnLen >?[Escaped Hex: ], Left(m.lcEscHex, 30) >?[StrConv Equivalent: ], Left(Strconv(m.lcString, 15), 20) > >Strtofile(m.lcEscHex, Putfile()) >>
#Define HEAP_ZERO_MEMORY 0x8 m.lcString = Filetostr(Getfile()) m.lnLen = Len(m.lcString) Declare Integer GetProcessHeap In win32api Declare Integer HeapAlloc In win32api ; Integer hHeap, ; Integer dwFlags, ; Integer dwBytes Declare Integer HeapFree In win32api ; Integer hHeap, ; Integer dwFlags, ; Integer lpMem lnHeap = GetProcessHeap() lnSeconds = Seconds() lnMemBlock2 = HeapAlloc(m.lnHeap, 0x8, m.lnLen * 3) Sys(2600, m.lnMemBlock2, m.lnLen * 3, REPLICATE([%], m.lnLen * 3)) lnMemBlock1 = HeapAlloc(m.lnHeap, 0x8, m.lnLen*2) Sys(2600, m.lnMemBlock1, m.lnLen*2, STRCONV(m.lcString,15)) mem1_1 = m.lnMemBlock1 - 1 For lnPos = 1 To m.lnLen*2 STEP 2 =Sys(2600, m.lnMemBlock2 + m.lnPos*1.5 , 2, Sys(2600, m.lnMemBlock1 + m.lnPos , 2)) Endfor HeapFree(m.lnHeap, 0, m.lnMemBlock1) lcEscHex = Sys(2600, m.lnMemBlock2, m.lnLen * 3) HeapFree(m.lnHeap, 0, m.lnMemBlock2) ?[Time: ], Seconds() - m.lnSeconds, [Bytes: ], m.lnLen ?[Escaped Hex: ], Left(m.lcEscHex, 30) ?[StrConv Equivalent: ], Left(Strconv(m.lcString, 15), 20) Strtofile(m.lcEscHex, Putfile())