Joining files without recoding?

I simply want to take some movie clips that are all in the same format, join them together (or take parts out) and save to one resultant movie file. For example, I like to use Photo Booth to record video journal entries. But I'd like to take a bunch of them, combine them and then save them to 1 file. Since they are all in the same format and type, I know it's possible to merge them together without recoding, but I don't know if you can do this in iMovie or not?
If not, is there a cheap program that can do this fairly quickly?

Thanks for the suggestions. I know iMovie can do what I want, but apparently not without recoding on export. And I was just looking for something quick and easy that would simply allow me to take a bunch of similar movie clips and combine and/or clip them without recoding.
Thanks for the Quicktime Pro suggestion. But after some additional searching, I was thinking about trying this one called "SimpleMovieX" which is apparently a better substitute for QTP. Are you guys familiar with it?
http://simplemoviex.com/

Similar Messages

Software to join mpeg files without conversion?

Hi,
I have a Sony DSC-T700 camera... I want to join several clips so I can upload them to youtube. However I don't want to be waiting a long time, I would rather just have they joined together without any re-encoding. Anyone know some good, preferably free software for this?
I have mov files but I guess they are mpeg4 format...

With respect, Google isn't that much of a friend here -- I've been looking for exactly the same thing (to join together two eyetv recordings, following a crash during the middle of a programme) and the Google search linked to in the previous post doesn't seem to yield anything of use. The recordings are already multiplexed: surely it can't be too difficult, from a programming point of view, to stitch the two recordings together? Anyway, there doesn't seem to be anything to do it...
I considered Streamclip, but aside from the issues mentioned above, the download page gives all sorts of imminent-death-and-destruction warnings apropos Snow Leopard: I'm on Snow Leopard so I'm not prepared to risk it!
Edward.

Write xmp sidecar files without need to export masters - script

I've written a script to write xmp sidecar files for referenced and online images (the 2 conditions in the script) of the selected images. I looked for a while at system events and other stuff to be able to write the xmp file, but i'm not a programmer, so in the end i chose the long and dirty way to do it.
This script will export all iptc expanded fields as aperture does (creating basically the same file). It can be easily adjusted to include other tags, even custom ones. I don't know how to get at the adjustments for images, otherwise those could be included as well.
If anyone has the energy to clean this up and make it faster, feel free to do so. Next, I'm going to try to write a script to do the opposite, import xmp sidecars for imported online and referenced files.
Here it goes (thanks to Brett Gross for the database part to find the master filename):
--script to create sidecar xmp files for referenced files without having to export masters. parts of the script (finding the file name) are by brett gross
property p_sql : "/usr/bin/sqlite3 "
global g_libPath
on run
my getLibPath()
--counter for processed images, reset, just in case
set mastercount to 0
tell application "Aperture"
if not (exists selection) then
display dialog "You have to select at least one image" buttons {"OK"} default button 1
return
else
display dialog "You have selected " & (count of selection) & " images." & return & "Continue?" default button 1
end if
set theSel to selection
--run through the selected images
repeat with currentpic from 1 to count of theSel
tell item currentpic of theSel
-- only apply to referenced and online images
if referenced and online then
set mastercount to mastercount + 1
set curID to id
--find the master file path and name - this part by brett gross, thanks
set libPOSIX to POSIX path of g_libPath
set libDBPOSIX to (libPOSIX & "/Aperture.aplib/Library.apdb") as string
set theScript to p_sql & (quoted form of libDBPOSIX) & " \"select ZFILEUUID from ZRKVERSION where ZUUID='" & curID & "'\""
set ZFILEUUID to do shell script theScript
# ---------- Get the master's path
set theScript to p_sql & (quoted form of libDBPOSIX) & " \"select ZIMAGEPATH from ZRKFILE where ZUUID='" & ZFILEUUID & "'\""
set ZIMAGEPATH to do shell script theScript
# ---------- Get the master's disk name
set theScript to p_sql & (quoted form of libDBPOSIX) & " \"select ZFILEVOLUMEUUID from ZRKFILE where ZUUID='" & ZFILEUUID & "'\""
set ZFILEVOLUMEUUID to do shell script theScript
set theScript to p_sql & (quoted form of libDBPOSIX) & " \"select ZNAME from ZRKVOLUME where ZUUID='" & ZFILEVOLUMEUUID & "'\""
set diskName to do shell script theScript
set imgPath to (diskName & "/" & ZIMAGEPATH)
--end brett gross part
--strips extension, seems to work for files and paths with more than one period
set oldlim to AppleScript's text item delimiters
set AppleScript's text item delimiters to "."
try --remove last extension only
set contador to text item -1 of imgPath
set noExtension to Unicode text 1 thru -((count of contador) + 2) of imgPath
on error --handle files with no extensions
set noExtension to imgPath
end try
set AppleScript's text item delimiters to oldlim
--create the file and path name with the .xmp extension for writing
set xmpPath to "/Volumes/" & noExtension & ".xmp" as Unicode text
--convert posix path to alias for easier write and read handling
set xmpPath to POSIX file xmpPath as file specification
-- header for xmp file
set xmpheader to ("<?xpacket begin='' id=''?>
<x:xmpmeta xmlns:x='adobe:ns:meta/' x:xmptk='XMP toolkit 2.9-9, framework 1.6'>
<rdf:RDF xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#' xmlns:iX='http://ns.adobe.com/iX/1.0/'>") & return
-- footer for xmp file
set xmpfooter to ("</rdf:RDF>
</x:xmpmeta>
<?xpacket end='w'?>") & return
--xmp content, part 1
--check for existence of iptc tags, create content or empty string depending on existance of tags
if (exists IPTC tag "Contact") or (exists IPTC tag "Country/PrimaryLocationCode") then
set xmpcontentpartone to ("<rdf:Description rdf:about='' xmlns:Iptc4xmpCore='http://iptc.org/std/Iptc4xmpCore/1.0/xmlns/'>") & return
try
set CountryCode to value of IPTC tag "Country/PrimaryLocationCode"
set xmpcontentpartone to xmpcontentpartone & tab & "<Iptc4xmpCore:CountryCode>" & CountryCode & "</Iptc4xmpCore:CountryCode>" & return
end try
try
set CreatorContactInfo to value of IPTC tag "Contact"
set xmpcontentpartone to xmpcontentpartone & tab & "<Iptc4xmpCore:CreatorContactInfo>" & CreatorContactInfo & "</Iptc4xmpCore:CreatorContactInfo>" & return
end try
set xmpcontentpartone to xmpcontentpartone & ("</rdf:Description>") & return
else
set xmpcontentpartone to ""
end if
--xmp content, part 2
--check for existence of iptc tags, create content or empty string depending on existance of tags
if (exists IPTC tag "Category") or (exists IPTC tag "City") or (exists IPTC tag "Country/PrimaryLocationName") or (exists IPTC tag "Credit") or (exists IPTC tag "DateCreated") or (exists IPTC tag "Headline") or (exists IPTC tag "Province/State") or (exists IPTC tag "Source") or (exists IPTC tag "SpecialInstructions") or (exists IPTC tag "SupplementalCategory") or (exists IPTC tag "Writer/Editor") then
set xmpcontentparttwo to ("<rdf:Description rdf:about='' xmlns:photoshop='http://ns.adobe.com/photoshop/1.0/'>") & return
try
set Category to value of IPTC tag "Category"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:Category>" & Category & "</photoshop:Category>" & return
end try
try
set City to value of IPTC tag "City"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:City>" & City & "</photoshop:City>" & return
end try
try
set Country to value of IPTC tag "Country/PrimaryLocationName"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:Country>" & Country & "</photoshop:Country>" & return
end try
try
set Credit to value of IPTC tag "Credit"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:Credit>" & Credit & "</photoshop:Credit>" & return
end try
try
set DateCreated to value of IPTC tag "DateCreated"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:DateCreated>" & DateCreated & "</photoshop:DateCreated>" & return
end try
try
set Headline to value of IPTC tag "Headline"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:Headline>" & Headline & "</photoshop:Headline>" & return
end try
try
set State to value of IPTC tag "Province/State"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:State>" & State & "</photoshop:State>" & return
end try
try
set Source to value of IPTC tag "Source"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:Source>" & Source & "</photoshop:Source>" & return
end try
try
set Instructions to value of IPTC tag "SpecialInstructions"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:Instructions>" & Instructions & "</photoshop:Instructions>" & return
end try
try
set SupplementalCategory to value of IPTC tag "SupplementalCategory"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:SupplementalCategory>" & SupplementalCategory & "</photoshop:SupplementalCategory>" & return
end try
try
set CaptionWriter to value of IPTC tag "Writer/Editor"
set xmpcontentparttwo to xmpcontentparttwo & tab & "<photoshop:CaptionWriter>" & CaptionWriter & "</photoshop:CaptionWriter>" & return
end try
set xmpcontentparttwo to xmpcontentparttwo & ("</rdf:Description>") & return
else
set xmpcontentparttwo to ""
end if
--xmp content, part 3
--check for existence of iptc tags, create content or empty string depending on existance of tags
if (exists IPTC tag "Byline") or (exists IPTC tag "Caption/Abstract") or (exists IPTC tag "CopyrightNotice") or (exists IPTC tag "Keywords") or (exists IPTC tag "ObjectName") then
set xmpcontentpartthree to ("<rdf:Description rdf:about='' xmlns:dc='http://purl.org/dc/elements/1.1/'>") & return
try
set creator to value of IPTC tag "Byline"
set xmpcontentpartthree to xmpcontentpartthree & tab & "<dc:creator><rdf:Seq><rdf:li>" & creator & "</rdf:li></rdf:Seq></dc:creator>" & return
end try
try
set description to value of IPTC tag "Caption/Abstract"
set xmpcontentpartthree to xmpcontentpartthree & tab & "<dc:description><rdf:Alt><rdf:li xml:lang='x-default'>" & description & "</rdf:li></rdf:Alt></dc:description>" & return
end try
try
set rights to value of IPTC tag "CopyrightNotice"
set xmpcontentpartthree to xmpcontentpartthree & tab & "<dc:rights><rdf:Alt><rdf:li xml:lang='x-default'>" & rights & "</rdf:li></rdf:Alt></dc:rights>" & return
end try
--keywords, slightly different, as they need to be written as a list and not as a string
--i don't think it's a problem if we create an empty list if there are no keywords present.
set xmpcontentpartthree to xmpcontentpartthree & tab & "<dc:subject><rdf:Bag>" & return
--make list item for every keyword
try
repeat with n from 1 to count of keywords
set cursubject to name of (keyword n)
set xmpcontentpartthree to xmpcontentpartthree & tab & tab & "<rdf:li>" & cursubject & "</rdf:li>" & return
end repeat
end try
set xmpcontentpartthree to xmpcontentpartthree & tab & "</rdf:Bag></dc:subject>" & return
try
set title to value of IPTC tag "ObjectName"
set xmpcontentpartthree to xmpcontentpartthree & tab & "<dc:title><rdf:Alt><rdf:li xml:lang='x-default'>" & title & "</rdf:li></rdf:Alt></dc:title>" & return
end try
set xmpcontentpartthree to xmpcontentpartthree & ("</rdf:Description>") & return
else
set xmpcontentpartthree to ""
end if
--part four. aperture doesn't seem to export anything there
set xmpcontentpartfour to "<rdf:Description rdf:about='' xmlns:photomechanic='http://ns.camerabits.com/photomechanic/1.0/'>
</rdf:Description>" & return
--part five. rating
set xmpcontentpartfive to "<rdf:Description rdf:about='' xmlns:xap='http://ns.adobe.com/xap/1.0/'>" & return
try
set Rating to main rating
set xmpcontentpartfive to xmpcontentpartfive & tab & "<xap:Rating>" & Rating & "</xap:Rating>" & return
end try
set xmpcontentpartfive to xmpcontentpartfive & "</rdf:Description>" & return
--join everything
set xmptext to xmpheader & xmpcontentpartone & xmpcontentparttwo & xmpcontentpartthree & xmpcontentpartfour & xmpcontentpartfive & xmpfooter
--write file
my writexmpFile(xmptext, xmpPath)
end if
end tell
end repeat
display dialog "Processed " & mastercount & " referenced and online image(s)." buttons {"OK"} default button 1
end tell
end run
-- write xmp sidecar file routine
on writexmpFile(theContents, xmpFileName)
--tell application "Finder"
try
open for access xmpFileName with write permission
set eof of xmpFileName to 0
write (theContents) to xmpFileName starting at eof
close access xmpFileName
on error
try
display dialog xmpFileName
close access xmpFileName
end try
end try
--end tell
end writexmpFile
--this part copied from Brett Gross-------------------------------------------------------------------------- --------------------------------
on getLibPath()
tell application "System Events" to set p_libPath to value of property list item "LibraryPath" of property list file ((path to preferences as Unicode text) & "com.apple.aperture.plist")
if ((offset of "~" in p_libPath) is not 0) then
-- set p_posix to POSIX file p_libPath
set p_script to "/bin/echo $HOME"
set p_homePath to (do shell script p_script)
set p_offset to offset of "~" in p_libPath
set p_path to text (p_offset + 1) thru -1 of p_libPath
set g_libPath to p_homePath & p_path
else
set g_libPath to p_libPath
end if
end getLibPath
--end brett gross part

imigra wrote:
I've written a script to write xmp sidecar files for referenced and online images (the 2 conditions in the script) of the selected images. I looked for a while at system events and other stuff to be able to write the xmp file, but i'm not a programmer, so in the end i chose the long and dirty way to do it.
This script will export all iptc expanded fields as aperture does (creating basically the same file). It can be easily adjusted to include other tags, even custom ones.
Excellent stuff!
I don't know how to get at the adjustments for images, otherwise those could be included as well.
They are stored as binary data in the Version XML files at the bottom level of the Library package. You can also have a look around in the ZRKIMAGEADJUSTMENT table, but again the actual settings for each adjustment are in binary form.
If anyone has the energy to clean this up and make it faster, feel free to do so.
As far as I can remember, Aperture uses the 'proper' IPTC tag names when accessing them via AppleScript, so you may be able to do a loop through all the IPTC tags for each image, rather than picking out each specific one. But that would need checking. The EXIFTools site is a good place to find out about the different ways that IPTC data can be described.
Next, I'm going to try to write a script to do the opposite, import xmp sidecars for imported online and referenced files.
Don't rush unless you feel like it - I've already started planning out a free (as in beer and speech) XMP importer with a GUI so that you can choose how to map the XMP CORE tags that don't exist in Aperture. You've given me an extra idea, though - if we can decide on a set of custom tags, my importer could map the XMP CORE tags to them and your exporter could export those tags.
Thanks for the work!
Ian
P.S. I'll check through your script tomorrow, some of the database tables changed between 1.5.6 and 2.0, so you might need to add in a version check to be really thorough.

In Snow Leopard, there was a quick look feature that allowed you to look at files without opening the program. It doesn't show up in Lion on my iMac. Any ideas? Thanks

In Snow Leopard, there was a quick look feature that allowed you to look at files without opening the program. It doesn't show up in Lion on my iMac. Any ideas? Thanks

While in Finder, select the file (click on its icon once) then press the Spacebar.

File-RFC-File (without BPM)- Issue

Hi All,
I am working on a File-RFC-File (without BPM) scenario in PI 7.1.
My scenario is having few problems like, its not able to delete the file from the source directory path (for which we have delete permissions) and it is an NFS system and it shows an error in the Sender file CC.
"Error: com.sap.aii.af.service.cpa.impl.exception.CPAObjectKeyException: Value of key must not be null: ObjectId"
But it gets processed successfully and provides a written paramter which I could see in MONI, but again doesn't write the file in the target directory. Could you please provide your inputs and let me know if I need to do any additional settings w.r.to PI7.1.
These are the parameters which I have specified in the Sender File adapter
Processing sequence
AF_Modules/RequestResponseBean     Local Enterprise Bean     1
CallSapAdapter     Local Enterprise Bean     2
AF_Modules/ResponseOnewayBean Local Enterprise Bean     3
Module configuration:
1     PassThrough     true
3     receiverChannel     <FilereceiverCCname>
3     receiverService     <Receiver Bus System>
Regards,
Nithiyanandam

Hello,
Check out in module configuration tab for any "type error" or spell mistakes.
Check out this thread which might be useful for you :[ File - RFC - File without a BPM - Possible from SP 19.|File - RFC - File without a BPM - Possible from SP 19.]
regards
Ramesh

Download ZIP file without changing file extension

I regularly download a zipped csv file, of the format: "filename.csv.gz". As the name does not change, Firefox adds a digit to distinguish it, so for example I get "filename.csv-3.gz". This is a pain as it changes the file extension which means that I cannot open the extracted file without first renaming it. I want to keep an archive of all the files, so deleting them each time isn't really an option, and neither is moving them to a different location each time. Is there any way the naming convention for downloads can be changed?

I think you have to disable it in your Operating system:
8dot3NameCreation
[http://support.microsoft.com/kb/121007]

How to open a text file without using dialog box

I can open a file using dialog box but I want to open a file without using any dialog box for writing.
With the following commands a new file is created.
File outputFile = new File("outagain.txt");
FileWriter out = new FileWriter(outputFile);
I want to open an existing file and put some more text in it using FileWriter or any other object
rgds,
Arsalan

import java.io.*;
class UReader
    BufferedReader in;
    BufferedReader input;
    String fileName;
    public UReader(String fileName)
        this.fileName = null;
        this.fileName = fileName;
        try
            in = new BufferedReader(new FileReader(fileName));
            input = new BufferedReader(new FileReader("A.b"));
        catch(IOException _ex) { }
    public final String getContent()
        String txt = "";
        try
            while(in.ready())
                txt = txt + in.readLine();
                txt = txt + "\n";
            in.close();
            txt.trim();
        catch(IOException _ex) { }
        return txt;
    public final String getLine(int row)
        try
            input = new BufferedReader(new FileReader(fileName));
        catch(IOException _ex) { }
        String txt = null;
        if(row <= getRows()) {
            try
                for(int i = 0; i < row; i++)
                    txt = input.readLine();
                input.close();
            catch(IOException _ex) { }
        } else {
            txt = "Index out of Bounds";
        return txt;
    public final int getRows()
        try
            input = new BufferedReader(new FileReader(fileName));
        catch(IOException _ex) { }
        String txt = null;
        int rows = 0;
        try
            while(input.ready())
                txt = input.readLine();
                rows++;
            input.close();
        catch(IOException _ex) { }
        return rows;
import java.io.*;
import java.util.*;
class UWriter
    PrintWriter out;
    String fileName;
    String[] txt;
    static int NEW_LINE = 1;
    static int APPEND = 0;
    public UWriter(String s)
        fileName = null;
        txt = null;
        fileName = s;
        try
            out = new PrintWriter(new BufferedWriter(new FileWriter(s, true)));
        catch(IOException ioexception) { }
    public final void addContent(String s, int i)
        int l = 0;
        StringBuffer sb = new StringBuffer(s);
        s.replaceAll("\n\n", "\n###\n");
        StringTokenizer str = new StringTokenizer(s, "\n");
        String token = null;
        while (str.hasMoreTokens()) {
            ++l;
            token = str.nextToken();
        str = new StringTokenizer(s, "\n");
        txt = new String[l];
        int k = 0;
        String test;
        while (str.hasMoreTokens()) {
            test = str.nextToken();
            if (test.equals("###")) test = "";
            txt[k++] = test;
        if(i == 0) {
            try
                for (int j = 0; j < txt.length; ++j) {
                    out.println(txt[j]);
                out.close();
            catch(Exception ioexception) { }
        } else {
            try
                out.println();
                for (int j = 0; j < txt.length; ++j) {
                    out.println(txt[j]);
                out.close();
            catch(Exception ioexception1) { }
    public final void writeContent(String s)
        int l = 0;
        s.replaceAll("\n\n", "###");
        StringTokenizer str = new StringTokenizer(s, "\n");
        String token = null;
        while (str.hasMoreTokens()) {
            ++l;
            token = str.nextToken();
        str = new StringTokenizer(s, "\n");
        txt = new String[l];
        int k = 0;
        String test;
        while (str.hasMoreTokens()) {
            test = str.nextToken();
            if (test.equals("###")) test = "";
            txt[k++] = test;
        try
            PrintWriter bufferedwriter = new PrintWriter(new BufferedWriter(new FileWriter(fileName, false)));
            for (int j = 0; j < txt.length; ++j) {
                bufferedwriter.println(txt[j]);
            bufferedwriter.close();
        catch(IOException ioexception) { }
}Maybe they are not the best codes, i wrote them a long time ago, so dont ask why i did anything wierd. :D
But anyway it works.

How to convert a .class file into .java file without .jad using DeJDecompil

Hi all,
I am using DeJDecompiler and working with swing applications.If I try to convert a .class file into .java file,it is converting into .jad file only.Fine but if I try to save that file into .java file,It is giving lot of errors in that program.When I went into that program the total style of the program is changed and TRY-CATCH block is not recognised by the dejdecompiler,hence If I try to include some methods in the existing .java file thus got,I could not do.Kindly help me.
If I get the .java file without error then I can process the rest of the functionality.
Thanks in advance
With kind Regs
Satheesh.K

Not so urgent today then!
http://forum.java.sun.com/thread.jsp?thread=553576&forum=31&message=2709757
I'm still not going to help you to steal someone�s code.

How can we get the artset from a .ai file without opening it?

Hello All,
I have one .ai file, lets say sample.ai file. located in C drive. so the complete file path is "C:\Sample.ai".
and lets assume the sample.ai file has one traingle shape(3 path type arts) in it.
Now I want to get the 3 path arts (artset) from sample.ai file without opening it in AI.
The function protoype is like below
AIArtSet& artSet GetArtSetFromAFile( ai::FilePath& filePath );
Is there any API like above function in AI? or is it possible to get the art(s) from a file without opening it in AI?

Not to my knowlege. The API only operates on active documents as far as I know.

Is there any way to create 3D PDF file without having the model tree ?

Is there any way to create 3D PDF file without having the model tree ?
3D communication is good but sometime we don't want the receiver to be able to study every components in model.
or any way to make the receiver cannot use model tree and measurement tool ????
Thank you very much

You can remove the assembly tree by doing a roundtrip in 3D Toolkit, here's how:
- start Acrobat 3D
- drag & drop a CAD file
- click on 3D Annot to activate
- right-click on 3D
- select 'Edit in 3D Toolkit'
- 3D Toolkit launches
- click in 'Scene Tree' panel
- right-click on top assembly name
- select 'Tools->Collapse Hierarchy'
- select 'File->Save'
- select 'File->Exit'

How to replace or remove last 500 bytes of a file without rewriting all the file?

Hi everyone,
Usually I only ask for help when I can't find a solution for several days or weeks... And guess what? That just happen!
So, this is what i am trying to do:
I have a program to ZIP folder and protect them with password, then it encrypts the zip file.
That it's working fine, until the user forgets his password.
So, what I want to do is give the user a Recovery Password option for each ZIP file created. I can't use the Windows Registry because the idea is to be able to recover the password in any computer.So i came up with an idea...
In simple terms, this will work like this:
0 - Choose folder to ZIP
1 - Ask user for recover details (date of birth, email etc)
2 - ZIP folder with password
3 - Encrypt ZIP file
4 - Encrypt recover details and convert it to HEX
5 - Add recover details (in HEX) to the end of the ZIP file (last bytes)
6 - Add "5265636F76657244657461696C73" which is the text "RecoverDetails" in HEX
7 - Add "504B0506000000000000000000000000000000000000" this is the final bytes of a ZIP file and will make the Operating System think that is a ZIP file (i know that will give an error when we try to open it.. the ideia is to change the
extension later and use my software to do all the work to access this ZIP/folder again)
So, explaining what it's here, I want to say that I managed how to do all of this so far. The point number 6 will help us to determine where the recover details are in the file, or if they actually exist because user can choose not to use them.
In order to unlock this ZIP and extract it's contents, I need to reverse what I've done. That means, that need to read only the last 500 bytes (or less if the file is smaller) of the ZIP and remove those extra bytes I added so the program can check
if the user is inputing a correct password, and if so decrypt contents and extract them.
But, if the user insert a wrong password I need to re-add those bytes with the recover details again to the ZIP file.
The second thing is, if the user forgets his password and asks to recover it, a form will be shown asking to insert the recover detail (date of birth, email etc), so we need to reed the last 500 bytes of the ZIP, find the bytes in number 6 and remove the
bytes before number 6, remove bytes in number 6 and number 7, and we will have the recover details to match against the user details input.
I have all done so far with the locking process. But i need help with the unlocking.
I am not sure if it's possible, but this what i am looking for:
Read last 500 bytes of a file, remove the bytes with recover details and save the file. Without reading the whole file, because if we have a 1GB file that will take a very long time. Also, i don't want to "waste" hard drive space creating a new
clone file with 1GB and then delete the original.
And then add them back "in case user fails the password" which should be exactly the same.
This sounds a bit confusing I know, even to me, I am writing and trying to explain this the better I can.. Also my English is not the best..
Here it goes some code to better understanding:
'READ LAST 500 BYTES OF ZIP FILE TO CHECK IF IT CONTAINS RECOVER DETAILS
Dim oFileStream As New FileStream(TextBox_ZIP_to_Protect.Text & ".zip", FileMode.Open, FileAccess.Read)
Dim oBinaryReader As New BinaryReader(oFileStream)
Dim lBytes As Long = oFileStream.Length
oBinaryReader.BaseStream.Position = lBytes - 500
Dim fileData As Byte() = oBinaryReader.ReadBytes(500)
oBinaryReader.Close()
oFileStream.Close()
Dim txtTemp As New System.Text.StringBuilder()
For Each myByte As Byte In fileData
txtTemp.Append(myByte.ToString("X2"))
Next
Dim RecoveryDetailsPass_Holder = txtTemp.ToString()
'Dim Temp_2 = txtTemp.ToString()
'RichTextBox1.Text = txtTemp.ToString()
If txtTemp.ToString.Contains("505245434F47414653") Then
'we have password recovery details(the numbers mean RecoverDetails in HEX)
'next we will get rid of everything before and after of string "cut_at"
Dim mystr As String = RecoveryDetailsPass_Holder 'RichTextBox1.Text
Dim cut_at As String = "505245434F47414653"
Dim x As Integer = InStr(mystr, cut_at)
' Dim string_before As String = mystr.Substring(0, x - 1)
Dim string_after As String = mystr.Substring(x + cut_at.Length - 1)
RecoveryDetailsPass_Holder = RecoveryDetailsPass_Holder.Replace(string_after.ToString, "")
RecoveryDetailsPass_Holder = RecoveryDetailsPass_Holder.Replace("505245434F47414653", "") ' this is RecoverDetails in HEX
RecoveryDetailsPass_Holder = RecoveryDetailsPass_Holder.Replace("504B0506000000000000000000000000000000000000", "") ' this is the bytes of an empty zip file
'AT THIS POINT WE HAVE ONLY THE RECOVER PASSWORD DETAILS (date of birth, email etc) IN THE VARIABLE "RecoveryDetailsPass_Holder"
'////////////////////////////////////////////////////// TO DEBUG
'MsgBox(string_after.ToString & "505245434F47414653")
'InputBox("", "", string_after.ToString)
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ TO DEBUG
'Temp_2 = Temp_2.Replace(RecoveryDetailsPass_Holder.ToString, "")
Now that we have the recover details, we need to remove them from ZIP in order to the software try to unzip it with the password provided by the user on the GUI.
If the user needs to recover the password we have the details already in RecoveryDetailsPass_Holder variable and just need to match them against user input details.
If the user fails, we need to put the RecoveryDetailsPass_Holder back on the file.
Any question just ask, it's a bit trick to explain i think, but please ask.
Anyone know how to do this?
Many thanks in advanced.
Nothing is impossible!
@ Portugal
Vote if it's helpfull :)

@ ALL
Thank you very much for you help. I know that if I'm "playing" with bytes you should assume that I know a lot of VB.net, but I don't know that much unfortunately. I am not a beginner but I am still very fresh and I probably do stuff that work but
probably not in the best way...
Anyway, I will explain the idea of this little software I'm making. Once I wanted to create a program to protect folders with password, and I came up with something to change folder permissions to lock access to them, and that actually worked fine and quickly.
However, I managed how to "crack" the protection by going to folder properties, security tab and then give permissions back to my username. So that, to me, wasn't a safer system to protect folders, also I want the ability to use passwords. So I search
and search online for a way to do it, and someone replied (to someone with the same question as me) that the best option would be to create a zip with all contents of the folder, with password and then change the extension from .zip to .whatever and register
the new extension .whatever on the Windows Registry, so that file will have an icon and open with my software.
So I did...The program zips everything, change the extension and I added the encryption to avoid people changing the extension to ZIP or trying to open with 7-Zip or similar and be able to see the protected files names in the .zip/.whatever
Answering to all of you now:
@Armi
"System.IO.FileStream.SetLength"
I know I tried that but I erased the code because it didn't work for some reason, I don't remember why sorry, was long time before I created this post.
The last code I was trying to use was this:
' Set the stream position to the desired location of the stream.
Dim fileStream As IO.FileStream = _
New IO.FileStream(TextBox_ZIP_to_Protect.Text & ".zip", IO.FileMode.Append)
Try
' Set the stream (OFFSET) position to the desired location of the stream.
fileStream.Seek(210, IO.SeekOrigin.Current)
Dim Bytes_do_ZE As Byte() = HexStringToByteArray(Temp_2.ToString)
'Write Characters ASCII
For Each Byte_Do_Zeca As Byte In Bytes_do_ZE
fileStream.WriteByte(Byte_Do_Zeca)
Next
Finally
fileStream.Close()
End Try
and we need this:
Private Shared Function HexStringToByteArray(ByRef strInput As String) As Byte()
Dim length As Integer
Dim bOutput As Byte()
Dim c(1) As Integer
length = strInput.Length / 2
ReDim bOutput(length - 1)
For i As Integer = 0 To (length - 1)
For j As Integer = 0 To 1
c(j) = Asc(strInput.Chars(i * 2 + j))
If ((c(j) >= Asc("0")) And (c(j) <= Asc("9"))) Then
c(j) = c(j) - Asc("0")
ElseIf ((c(j) >= Asc("A")) And (c(j) <= Asc("F"))) Then
c(j) = c(j) - Asc("A") + &HA
ElseIf ((c(j) >= Asc("a")) And (c(j) <= Asc("f"))) Then
c(j) = c(j) - Asc("a") + &HA
End If
Next j
bOutput(i) = (c(0) * &H10 + c(1))
Next i
Return (bOutput)
End Function
That code, as I understand, is to search for the OFFSET of the bytes in the file and start to write from there... That OFFSET should be the beginning of the 500 bytes read on the code before. I got the OFFSET position "210" reading the file with
the HEX editor "HxD - Hexeditor v1.7.7.0" but using the OFFSET won't work because every file, password, recover details and so on, are different and so the file size, changing the OFFSET I
think.
@Reed Kimble
Does that sound like something which might work for you?
Thanks for your help. That might be some solution, however it seams a bit of the same problem where we need to read the bytes again to get the recover details. But, as I said in this post, because this is meant to password protect folders, do you think that
will apply as well?
@Crazypennie
Thanks for your reply.
All this appears really weak. The user has your application since he need it to open the file .... and the code in the application contain the code to read the file without knowing the password. Therefore anyone can read your code and retrieve the
data without the password ... if he knows VB.
The application can only open the file if the user didn't use a password to protect the file. Because the file is encrypted and needs to be unencrypted first.
When the application tries to open/read the file, will need to decrypt it first and then check for a password and do the validation. Also the application is with the code masked/protected which i think it might not be easy for reverse engineering.
- You need to use a web server and a symmetric key encryption
This a good idea, besides I don't know how to implement it. However the idea is to be able to:
1 - Protect a folder anywhere in any Windows computer (portable app)
2 - Recover password details (security question) in any computer, online and offline
And I think we need a computer always connected to the Internet to use that method, right?
@ Mr. Monkeyboy
Thank you very much for your effort.
I just wanted to let you know that the zip method you are using is no longer supported.
I didn't actually knew that. Thanks for letting me know.
Do you require the compressed encrypted files to actually be Zip files or could they just be compressed files that have nothing to do with Zip?
No, it doesn't need to be a .zip extension. I am actually using my own extension. It starts as a Zip but then I changed to my own extension which I have registered on the Windows Registry.
@ ALL
Thanks again to all for trying and spending time helping me.
By the way, I might not be able to answer or try any code during the weekend... It's easter break and family is around. Have a nice easter everyone. :)
Nothing is impossible! Imagination is the limit!

Regarding reading the data from the files without using Stremas

hai to all of u...
here i have a problem where i have to read the data from the files without using any streams.
please guide me how to do this one,if possible by giving with an example
Thanks & Regard
M.Ramakrishna

Simply put, you can't.
By why do you need to?

Export table data in a flat file without using FL

Hi,
I am looking for options where I can export table data into a flat file without using FL(File Layout) i.e., by using App Engine only.
Please share your experience if you did anything as this
Thanks

A simple way to export any record (table/view) to an csv fiel, is to create a rowset and loop through all record fields, like below example code
Local Rowset &RS;
Local Record &Rec;
Local File &MYFILE;
Local string &FileName, &strRecName, &Line, &Seperator, &Value;
Local number &numRow, &numField;
&FileName = "c:\temp\test.csv";
&strRecName = "PSOPRDEFN";
&Seperator = ";";
&RS = CreateRowset(@("Record." | &strRecName));
&RS.Fill();
&MYFILE = GetFile(&FileName, "W", %FilePath_Absolute);
If &MYFILE.IsOpen Then
   For &numRow = 1 To &RS.ActiveRowCount
      &Rec = &RS(&numRow).GetRecord(@("RECORD." | &strRecName));
      For &numField = 1 To &Rec.FieldCount
         &Value = String(&Rec.GetField(&numField).Value);
         If &numField = 1 Then
            &Line = &Value;
         Else
            &Line = &Line | &Seperator | &Value;
         End-If;
      End-For;
      &MYFILE.WriteLine(&Line);
   End-For;
End-If;
&MYFILE.Close(); You can of course create an application class for generic calling this piece of code.
Hope it helps.
Note:
Do not come complaining to me on performance issues ;)

Saving a PDF file without the comments

In Acrobat Reader, is it possible to save a copy of a PDF file without the comments.
I'm doing a PhD, and would like to be able to send some scientific papers to colleagues without the annotation I may have added. Of course, manually removing all the comments is not a good solution.

In the Comment panel, go to the Comments List, press Ctrl+A and then Delete.

How do I save a pdf as an html file without losing formatting?

How do I save a pdf as an html file without losing formatting? My coworker is able to do this on her Adobe 9 by saving to html css 4.0 - I have Adobe 11 and have not been able to save as an html at all without loosing formatting.

Are the PDF files that you are attempting to Save As HTML tagged?

Joining files without recoding?

Similar Messages

Maybe you are looking for