OS/2 Shareware BBS: 10 Tools/10-Tools.zip/rbemx144.zip/ruby-1.4.4/sample/trojan.rb

Text File | 1999-08-13 | 333b | 16 lines

#! /usr/local/bin/ruby

path = ENV['PATH'].split(File::PATH_SEPARATOR)

for dir in path
  if File.directory?(dir)
    for f in d = Dir.open(dir)
      fpath = dir+"/"+f
      if File.file?(fpath) && (File.stat(fpath).mode & 022) != 0
    printf("file %s is writable from other users\n", fpath)
      end
    end
    d.close
  end
end