Hash.xys 0.4

"Sort by file"
 {
 $Files = get('SelectedItemsPathNames', '|', 'a');
 $Report = '';

 global $g_Sha1;
 global $g_Md5;
 global $g_Crc;

 foreach($File, $Files)
 {
 $Name = getpathcomponent($File , 'file', );
 $Size = report('{Size B}', $File, , );

 $g_Crc = hash('crc32', $File, '1');
 $g_Md5 = hash('md5', $File, '1');
 $g_Sha1 = hash('sha1', $File, '1');

 $Report = $Report."$Name<crlf>----------------------------------------<crlf>Size: $Size Bytes<crlf>CRC : $g_Crc<crlf>MD5 : $g_Md5<crlf>SHA : $g_Sha1<crlf 2>";
 }

 text $Report;
 }

"Sort by algorythm"
 {
 $Files = get('SelectedItemsPathNames', '|', 'a');
 $Report = '';

 global $g_Sha1;
 global $g_Md5;
 global $g_Crc;

 /*
  * Hash: SHA1
  */
 $Report = "---------------Hash: SHA1---------------<crlf>";
 foreach($File, $Files)
 {
 $Name = getpathcomponent($File , 'file', );
 $Size = report('{Size B}', $File, , );
 $g_Sha1 = hash('sha1', $File, '1');
 $Report = "$Report$g_Sha1 $Name <crlf>";
 }
 $Report = "$Report<crlf>";

  /*
   * Hash: MD5
   */
 $Report = "$Report---------------Hash:  MD5---------------<crlf>" ;
 foreach($File,$Files)
 {
 $Name = getpathcomponent($File , 'file', );
 $Size = report('{Size B}', $File, , );
 $g_Md5 = hash('md5', $File, '1');
 $Report = "$Report$g_Md5         $Name <crlf>";
 }
 $Report = "$Report<crlf>";

  /*
   * Hash: CRC32
   */
 $Report = "$Report---------------Hash:  CRC---------------<crlf>" ;
 foreach($File,$Files)
 {
 $Name = getpathcomponent($File , 'file', );
 $Size = report('{Size B}', $File, , );
 $g_Crc = hash('crc32', $File, '1');
 $Report = "$Report$g_Crc                                 $Name <crlf>";
 }

 $Report = "$Report<crlf>";
 text ($Report, '1000', '500', , , );
 }