Bugzilla – Attachment 27 Details for
Bug 28
CRC error ocured while transfering with sftp
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
quick & dirty sftp torture test
test-sftp.pl (text/plain), 1.64 KB, created by
Damien Miller
on 2002-02-14 08:27:08 AEDT
(
hide
)
Description:
quick & dirty sftp torture test
Filename:
MIME Type:
Creator:
Damien Miller
Created:
2002-02-14 08:27:08 AEDT
Size:
1.64 KB
patch
obsolete
>#!/usr/bin/perl > >$SFTP_CLIENT="/usr/bin/sftp"; >$SFTP_SERVER_PROG="/usr/libexec/openssh/sftp-server"; > >$MIN_FILESIZE=0; >$MAX_FILESIZE=5*1024*1024; > >$MIN_BUFLEN=1; >$MAX_BUFLEN=65536; > >$MIN_REQUESTS=1; >$MAX_REQUESTS=32; > >$RANDOM_DEV="/dev/urandom"; # Use /dev/arandom on OpenBSD >$DD="/bin/dd"; >$CMP="/usr/bin/cmp"; > >srand(); > >sub maketestfile() >{ > $randsize = int(rand($MAX_FILESIZE - $MIN_FILESIZE) + $MIN_FILESIZE); > $rand8k = int($randsize / 8192); > $leftover = $randsize % 8192; > > print STDERR "Creating a file of length $randsize\n"; > system("$DD if=$RANDOM_DEV bs=8192 count=$rand8k > test-1.junk 2>/dev/null") == 0 or die; > system("$DD if=$RANDOM_DEV bs=$leftover count=1 >> test-1.junk 2>/dev/null") == 0 or die; >} > >system("echo \"get test-1.junk test-2.junk\" > test-get"); >system("echo \"put test-1.junk test-2.junk\" > test-put"); > >while(1) { > maketestfile(); > > $buflen = int(rand($MAX_BUFLEN - $MIN_BUFLEN) + $MIN_BUFLEN); > $requests = int(rand($MAX_REQUESTS - $MIN_REQUESTS) + $MIN_REQUESTS); > $cmd = "$SFTP_CLIENT -b test-get -B $buflen -R $requests -P $SFTP_SERVER_PROG"; > > print STDERR "$cmd\n"; > system($cmd) == 0 or die; > > print STDERR "Compare...\n"; > system("$CMP test-1.junk test-2.junk") == 0 or die "Corrupt"; > unlink("test-2.junk") or die; > > $buflen = int(rand($MAX_BUFLEN - $MIN_BUFLEN) + $MIN_BUFLEN); > $requests = int(rand($MAX_REQUESTS - $MIN_REQUESTS) + $MIN_REQUESTS); > $cmd = "$SFTP_CLIENT -b test-put -B $buflen -R $requests -P $SFTP_SERVER_PROG"; > > print STDERR "$cmd\n"; > system($cmd) == 0 or die; > > print STDERR "Compare...\n"; > system("$CMP test-1.junk test-2.junk") == 0 or die "Corrupt"; > unlink("test-2.junk"); > unlink("test-1.junk"); >};
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 28
: 27