problem sa kodiranjem,pretpostavljam

Code:

Private Sub Form_Load()
Dim fso, fs
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.CreateTextFile("C:\Fajl.txt")
Dim str As String
str = ""
For n = &H80 To &H9F
str = str & Chr(n)
Next n
fs.Write str
fs.Close
Set fs = Nothing
Set fs = fso.OpenTextFile("C:\Fajl.txt", 1)
str = fs.ReadAll
Set fs = Nothing
Set fso = Nothing
Debug.Print str
End Sub

Code:
3b0cd18f7ba643012ef28c6a3e7b80311f8bc54d0f264ab3012be8c104fa383b0cd18f7ba643012ef28c6a3e7b80311f8bc54d0f264ab3012be8c104fa38

Code:

Dim Slovo As String
'Bajt
Dim Bajt As Byte
Bajt = 65 ' ASCI 65 = A
Slovo = Chr(Bajt) ' Dobijamo A u Slovo
Debug.Print Slovo ' Dobijamo A na izlazu
Debug.Print Asc(Slovo) ' Dobijamo 65 na izlazu
'Niz bajtova
Dim BajtNiz(3) As Byte
BajtNiz(1) = 67 ' ASCI 67 = C
Slovo = Chr(BajtNiz(1)) ' Dobijamo C u Slovo
Debug.Print Slovo ' Dobijamo C na izlazu
Debug.Print Asc(Slovo) ' Dobijamo 67 na izlazu

Code:

Dim fn As Integer
dim key(0 to 127) As Byte
fn = FreeFile
Open "file.ext" For Binary Access Read Lock Write As #fn
   get #fn,, key()
close #fn

Code:

dim pos as integer
fn = FreeFile
Open "file2.ext" For Binary Access Write Lock Write As #fn
   pos = findPositionOfFirstStar() ' ovde ubaci logiku/funkciju koja ce da ti pronadje gde pocinju tih 128 zvezdica (na kojoj poziciji)
  put #fn, pos, key()
close #fn

Code:

open KRIPTO for binary as #3   'kripto je binarni fajl sa kljucem
poc_lok=FindStart-1   'findstart funkcija koja trazi 128 *
duz=FileLen(template_exe)      'template_exe je exe fajl sa putanjama i definisanom const od 128 *
open template_exe for binary as #1
open new_exe for binary as #2      'new_exe je novi exe fajl u kom je integrisan kljuc
ofset=0
tst_pod=&h30
for i=0 to duz-1
get #1,,pom_pod
if((i=poc_lok+ofset) and i<poc_lok +broj_bajtova))  then   'broj_bajtova=128
get#3,,tst_pod
put #2,,tst_pod
ofset=ofset+2
else
put #2,,pom_pod

Code:

Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const CREATE_NEW = 1
Private Const OPEN_EXISTING = 3
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const CREATE_ALWAYS = 2
Private Const INVALID_HANDLE_VALUE = -1
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Option Base 1 ' baza nizova je index 1 ... a ne 0

Private Function CopyHex(CrFile As String, InFile As String, OutFile As String) As Boolean
CopyHex = False
Dim hCr As Long, hIn As Long, hOut As Long
Dim CrBuffer() As Byte, InBuffer() As Byte, OutBuffer() As Byte
Dim bWrote As Long, bRead As Long
Dim fSz As Long, I As Long, n As Long, m As Long
'I
bRead = 0
hCr = CreateFile(CrFile, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
If hCr = INVALID_HANDLE_VALUE Then Debug.Print "Greska u otvaranju HEX fajla": Exit Function
fSz = GetFileSize(hCr, 0)
If fSz <> 128 Then Debug.Print "HEX fajl nema 128 bajtova": Exit Function
ReDim CrBuffer(fSz)
ReadFile hCr, CrBuffer(1), fSz, bRead, ByVal 0&
CloseHandle hCr
If bRead <> fSz Then Debug.Print "Greska u citanju fajla " & CrFile: Exit Function
'II
bRead = 0
hIn = CreateFile(InFile, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
If hIn = INVALID_HANDLE_VALUE Then Debug.Print "Greska u otvaranju fajla " & InFile: Exit Function
fSz = GetFileSize(hIn, 0)
If fSz = 0 Then Debug.Print "Greska u otvaranju fajla " & InFile: Exit Function
ReDim InBuffer(fSz)
ReadFile hIn, InBuffer(1), fSz, bRead, ByVal 0&
CloseHandle hIn
If bRead <> fSz Then Debug.Print "Greska u citanju fajla " & InFile: Exit Function
ReDim OutBuffer(fSz)
'Prepisujemo bajtove i nalazimo ***
n = 0: m = 0
For I = 1 To fSz
If I <= fSz - 127 And  m = 0 Then
If InBuffer(I) = CByte(Asc("*")) And InBuffer(I + 127) = CByte(Asc("*")) Then ' mali trik :)
Dim b As Boolean
b = True
For n = I To I + 127
If Not Chr(InBuffer(I)) = "*" Then b = False
Next n
If b = True Then m = I
End If
End If
OutBuffer(I) = InBuffer(I)
Next I
If m = 0 Then Debug.Print "Nemamo niz ****": Exit Function
For I = m To m + 127
OutBuffer(I) = CrBuffer(I - m + 1)
Next I
'III
hOut = CreateFile(OutFile, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, CREATE_ALWAYS, 0, 0)
If hOut = INVALID_HANDLE_VALUE Then Debug.Print "Greska u kreiranju fajla " & OutFile: Exit Function
WriteFile hOut, OutBuffer(1), fSz, bWrote, ByVal 0&
CloseHandle hOut
If fSz <> bWrote Then Debug.Print "Greska pri upisu u fajl " & OutFile: Exit Function
CopyHex = True
End Function

Private Sub Form_Load()
'CrFile je HEX fajl od 128 bajtova, InFile je fajl sa 128 * a OutFile je proizvod gde su zvezdice iz InFile zamenjena sadrzajem HEX fajla
Dim CrFile As String, InFile As String, OutFile As String
CrFile = "": InFile = "": OutFile = "" ' popuniti
If CopyHex(CrFile, InFile, OutFile) Then MsgBox "Ok"
End Sub

Code:

Open crFile For Binary Access Read Write As #1

Code:

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long