idpacker.pas

木马源程序,供大家研究

{*********************************************************}
{    Turbo Pascal-Routinen zum Identifizieren von 187     }
{       verschiedenen Typen komprimierter Dateien         }
{                                                         }
{    Turbo Pascal routines to identify 187 different      }
{            types of compressed files                    }
{                                                         }
{           Version 3.14.07 / 12.06.2003                  }
{                             06-12-2003                  }
{                                                         }
{            (C) 1994-2003, Juergen Peters                }
{                                                         }
{       eMail : [e-mail]                           }
{       WWW   : http://www.graybeast.de                   }
{       FTP   : ftp://graybeast.dyndns.org                }
{               ftp://graybeast.2y.net                    }
{               ftp://graybeast.dyn.ee                    }
{               ftp://graybeast.dyns.cx                   }
{               (wenn eine URL nicht funktioniert,        }
{                andere probieren)                        }
{               (if one URL doesn't work try another)     }
{                                                         }
{                 Released as Freeware                    }
{                                                         }
{ Dieser Source ist noch in keinster Weise optimiert, er  }
{ tut lediglich, was er soll (hoffe ich).                 }
{ Eine Dokumentation gibt es auch nicht, aber ich glaube, }
{ es d乺fte auch so alles klar sein...                    }
{ Der Autor 乥ernimmt keine Haftung f乺 irgendetwas ;-))  }
{                                                         }
{ This source isn't yet optimized in any way, it simply   }
{ does, what it is intended to do (hopefully).            }
{ Another documentation than the comments in it is not    }
{ available, but I hope it's all clear nevertheless.      }
{ The author is not to be made responsible for anything   }
{ this source does to your computer... ;-))               }
{*********************************************************}

{ Letzte 巒derungen: 04.04.95: - Erkennung von BSN-EXE-Dateien verbessert }
{           1.53:    13.05.95: - Erkennung von AIN-Dateien verbessert     }
{                              - Packer BS2/BSArc und GZIP hinzugef乬t    }
{           1.54:    20.05.95  - Packer ACB hinzugef乬t                   }
{                    21.05.95  - Packer MAR hinzugef乬t                   }
{                              - ACB-Erkennung verbessert                 }
{           1.55:    24.05.95  - Packer CPShrink hinzugef乬t              }
{                              - Packer JRC hinzugef乬t                   }
{                              - Packer JARCS hinzugef乬t                 }
{                              - Packer Quantum hinzugef乬t               }
{                              - Packer ReSOF hinzugef乬t                 }
{                    25.05.95  - Erkennt nun auch BSN-Sfxes, die nicht    }
{                                die Extension .EXE haben                 }
{           2.00     27.05.95  - Archiveinleseroutinen komplett 乥erarbei-}
{                                tet. Archivheader wird jetzt in einen    }
{                                Puffer eingelesen, dadurch gro醗r Ge-    }
{                                schwindigkeitsgewinn                     }
{                              - Ungepackte Crush-Dateien hinzugef乬t     }
{                              - Packer ARX (LHArc-Clone) hinzugef乬t     }
{                    02.06.95  - Erkennt Sfx-Dateien von UC2 Pro          }
{           2.01     06.06.95  - Erkennt mit UCEXE gepackte Files         }
{                    08.06.95  - Erkennung von WWPack (EXE-Packer)        }
{           2.02     12.06.95  - Formate von YAC und Quark werden erkannt }
{           2.03     18.06.95  - Probleme mit 0 Byte-Files und Lesen nach }
{                                Dateiende beseitigt (Dank an Christoph   }
{                                Schuppius f乺 den Hinweis!)              }
{                    27.06.95  - ACB 1.07-Erkennung                       }
{                    29.06.95  - Bugfix bei Funktion IsEXE                }
{           2.04     01.07.95  - Auch RAR-OS/2-Sfx-Dateien werden erkannt }
{                    02.07.95  - X1-eigenes Format wird erkannt           }
{                    05.07.95  - Codec- und Codec-DOS-Sfx werden erkannt  }
{                              - AMGC-Format wird identifiziert           }
{                              - NuLIB-Format wird erkannt                }
{                              - PAKLeo-Format wird erkannt               }
{                    09.07.95  - Format TGZ wird erkannt                  }
{                              - WWPack-Datafile wird erkannt             }
{                              - ACB 1.08a wird identifiziert             }
{                    18.07.95  - ACB 1.10a, ChArc und PSA werden erkannt  }
{                    20.07.95  - Format ZAR wird erkannt                  }
{                    27.07.95  - F刲schlicherweise wurden viele ungepackte}
{                                EXE-Dateien als ZAR-Archive erkannt      }
{                    29.07.95  - Auch Read Only-Files werden jetzt erkannt}
{                    09.08.95  - ACB 1.13a wird identifiziert             }
{                    19.08.95  - Erneut ZAR-Bugfix                        }
{                    25.08.95  - Format TPK wird als LZS-Clone erkannt    }
{           2.05     06.10.95  - Verbesserte FileExist-Routine            }
{                    07.10.95  - Packer LHARK (-lh7-) wird erkannt        }
{           2.06     03.11.95  - ACB 1.14a wird identifiziert             }
{                    04.11.95  - CrossePAC, Freeze, KBoom und NSQ werden  }
{                                erkannt                                  }
{                    14.11.95  - Format DPA wird identifiziert            }
{           2.07     20.02.96  - ACB 1.15b-Format wird erkannt            }
{                    22.02.96  - ACB 1.17a-Format wird identifiziert      }
{                    27.02.96  - ACB 1.20a wird erkannt                   }
{                    29.02.96  - ACB-Erkennung verallgemeinert; nicht mehr}
{                                jede Version mu